Hello Ismael Fanlo,
Gracias, perdona pero estuve indispuesto para acceder al correo.
Nuevamente gracias y comentar� los resultados.
Pero estar�a bien que a�adiesen esa funci�n en la versi�n definitiva.
Best regards,
======= At 2005-06-04, 23:17:34 you wrote: =======
>Hola, Lobo Blanco! :-)
>
>White Wolf escribi�:
>> Saludos.
>>
>> En Excel si se empieza ha escribir y saltamos a la celda contigua
>> por la derecha con el tabulador y as� siguiendo la fila. Al pulsar la tecla
>> "Enter" el cursor de celda se situa no en la celda que se haya justo debajo
>> de la �ltima sino que pasa a la fila inferior pero debajo de la celda donde
>> empezamos a escribir.
>> �Es posible hacerlo en Calc?
>>
>
>No recordaba esa caracter�stica de Excel, pero pens� que era muy �til,
>pues en ocasiones conviene introducir los datos en filas, m�s que en
>columnas.
>
>Encontr� una soluci�n...
>
>Creas una macro grabando las pulsaciones Ctrl+Izda e Intro.
>
>Esa macro la asocias a una combinaci�n de teclas como Mayusc+Intro
>(habitualmente eso provoca introducir el dato y situarse en la celda
>superior en vez de la inferior, pero supongo que no lo usas). Lo har�s
>en Herramientas -> Configurar.
>
>Ahora ya puedes hacer lo que deseas, con la salvedad de que al llegar al
>final de la fila, introduzcas el dato con May�sc+Intro; la celda activa
>pasar� a ser la inferior al extremo izquierdo de la lista.
>
>El c�digo que genera la macro (por si te cuesta grabarla) es:
>
>..........................................
>sub intro_modificado
>rem ----------------------------------------------------------------------
>rem define variables
>dim document as object
>dim dispatcher as object
>rem ----------------------------------------------------------------------
>rem get access to the document
>document = ThisComponent.CurrentController.Frame
>dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
>
>rem ----------------------------------------------------------------------
>dim args1(1) as new com.sun.star.beans.PropertyValue
>args1(0).Name = "By"
>args1(0).Value = 1
>args1(1).Name = "Sel"
>args1(1).Value = false
>
>dispatcher.executeDispatch(document, ".uno:GoLeftToStartOfData", "", 0,
>args1())
>
>rem ----------------------------------------------------------------------
>dispatcher.executeDispatch(document, ".uno:JumpToNextCell", "", 0, Array())
>
>
>end sub
>..........................................
>
>Espero que te haya sido de utilidad,
>
>
>--
>Ismael Fanlo
>
>http://superalumnos.net
>"S�lo el conocimiento nos hace libres"
>
>http://www.apif.info
>Asociaci�n de Profesores de Inform�tica Freelance
>
>---------------------------------------------------------------------
>To unsubscribe, e-mail: [EMAIL PROTECTED]
>For additional commands, e-mail: [EMAIL PROTECTED]
>
= = = = = = = = = = = = = = = = = = = =
White Wolf
[EMAIL PROTECTED]
2005-06-12
