Pues lo primero un saludo para todos y lo segundo la esperanza de una solucion para mis comienzos en Libreoffice.
bien pues llevo ya varios excel convertidos a Libreoffice(mejor dicho:rehechos en Libreoffice), pero con este calc tengo problemas con un combobox situado en un formulario, ya e conseguido a base de mucho buscar que el combobox me liste una columna situada en la misma hoja, pero no consigo que el valor seleccionado en el combo me lo traslade a la primera celda vacia de otra columna(una sola columna).
Este es el codigo de la macro que e podido encontrar:
Código: Seleccionar todo
Global oControl As Object
Sub Main
Dim oFormulario As Object
Dim HojaDatos As Object
Dim co1 As Long
oFormulario = CargarDialogo( "Cctos" )
oControl = oFormulario.getControl( "ComboBox1" )
HojaDatos = ThisComponent.getSheets.getByName( "Conceptos" )
co1 = 1
Do Until HojaDatos.getCellByPosition(0,co1).getString = ""
oControl.addItem( HojaDatos.getCellByPosition(0,co1).getString, oControl.getItemCount)
co1 = co1 + 1
Loop
oFormulario.execute()
oFormulario.dispose()
End Sub
Function CargarDialogo( Nombre As String ) As Object
'Cargamos la librería Standard en memoria
DialogLibraries.LoadLibrary( "Standard" )
'Cargamos el cuadro de diálogo en memoria
CargarDialogo = CreateUnoDialog( DialogLibraries.Standard.getByName( Nombre ) )
End Function
y me gustaria que el concepto seleccionado me lo plasmase en la columna "D" de la hoja "AnaMet" en la primera celda vacia que encuente.
Esperando su ayuda les quedo agradecido de antemano.
Saludos.