[RESUELTO] ComboBox en Cuadro de Dialogo Basic
Publicado: Mié Ene 04, 2017 7:13 pm
Hola muy buenas.
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:
este codigo me lista los valores de la columna "A" de la hoja "Conceptos".
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.
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.