ho iniziato a usare calc per migliorare la gestione del magazzino e sul forum ho trovato delle guide utilissime.
Vorrei un aiutino per modificare una macro, premetto che non ci capisco niente
Sono delle macro che ho trovato qua sul forum scritte da gaetanopr, avrei necessita di fonderle insieme.
EDIT: spiego meglio
vorrei modificare la macro "RiempiListBox" per farla funzionare con una combobox già presente.
Codice: Seleziona tutto
Dim oDialogo1 As Object, oDoc As Object, Sheet As Object
Dim oListBox As Object, oComboBox As Object
Sub Main
DialogLibraries.LoadLibrary( "Standard" )
oDialogo1 = CreateUnoDialog( DialogLibraries.Standard.Dialog1)
oComboBox = oDialogo1.getControl("ComboBox1")
oListBox = oDialogo1.getControl("ListBox1")
oDoc = ThisComponent
Sheet = oDoc.Sheets(0)
CellRange = Sheet.getCellRangeByName("A3:C3")
Dati = CellRange.GetDataArray
oComboBox.getModel.StringItemList = Dati(0)
oDialogo1.Execute()
oDialogo1.dispose()
End Sub
Sub RiempiListBox
Dati = Sheet.getCellRangeByName(oComboBox.SelectedText).GetDataArray
svc = createUnoService("com.sun.star.sheet.FunctionAccess")
Dati1 = svc.callFunction("TRANSPOSE", Array(Dati))
oListBox.getModel.StringItemList = Dati1(0)
End Sub
mi pare di capire che queste indichino le celle che contengono i "nomi definiti" da cercareCellRange = Sheet.getCellRangeByName("A3:C3")
a me servirebbe indicare la colonna.
questa è la sintassi corretta?CellRange = Sheet.getCellRangeByName("A2:A" & LastRow)
spero mi possiate aiutare.
Grazie.