Tengo libreOffice Calc en la oficina y le estoy haciendo una hoja de cálculo a unos compañeros que utilizan a modo de base de datos.
La versión que utilizo es la 6.0.7.3.
Para que no se líen, quiero que los datos los pongan mediante un formulario (Datos -> Formulario..) pero previo a esto, hay que seleccionar todo el rango de datos actual. Como resulta que la información que tienen aquí se la he rescatado de una tabla Access (que queremos dejar), ya tienen 1200 registros, y quiero evitarles tener que andar haciendo la selección a mano, quiero ponerles una macro.
La macro tiene que seleccionar todo el rango de datos, y luego abrir la opción de menú Datos -> Formulario..
El que me seleccione me ha llegado a funcionar, pero no lo de abrir la opción de menú.
El problema está en que al principio me seleccionaba la macro lo oportuno, pero ahora, no coge todo el rango, se queda solo en unas pocas filas.
Si ejecuto a mano los comandos de la macro, es decir las combinaciones CTRL+Shift+ flechas izda y CTRL+Shift+ flechas abajo se queda donde mismo se queda la macro.
Tengo que ejecutar varias veces la combinación CTRL+Shift+ flechas abajo para llegar al final del conjunto de datos. Antes no pasaba, pero algo hay en los datos que no selecciono todo de una vez.
¿Hay alguna combinación para seleccionar todos las celdas con datos de alguna manera?
¿Que puede haber en los datos que hagan que no detecte que en ese punto no se terminan los datos (no hay filas en blanco...)?
¿Se puede poner en una macro que ejecute " Datos -> Formulario..?"
Gracias por adelantado!!!
mi macro es :
Código: Seleccionar todo
REM ***** BASIC *****
sub Main
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(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$A$1"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "By"
args2(0).Value = 1
dispatcher.executeDispatch(document, ".uno:GoDownToEndOfDataSel", "", 0, args2())
rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "By"
args3(0).Value = 1
dispatcher.executeDispatch(document, ".uno:GoRightToEndOfDataSel", "", 0, args3())
end sub