[ jaskojsako @ 28.01.2024. 19:32 ] @
Pozdrav
Imao bi par pitanja u vezi macro kodova u excelu office da izmjenim za libre office
Ako ima voljni da pomognu,unaprijed hvala.
Imam ovaj kod koji povlaci klijente sa lista klient u listbox i nakon oznacavanja u listboxu ubacuje na list form na odredjena mjesta.
Trenutno kad otvorim svoj excel macro enabled dokument u libre ofice na dugme on pokaze formu medjutim ne ubacuje klijente u listbox,tako da ne mogu
vidjeti da li bi i oznacenog klienta u listboxu ubacio na list form

U prilogu kod

Citat:


Private Sub UserForm_Initialize()
'set ListBox properties on initialization of UserForm

With ListBox1
.ColumnHeads = True
.ColumnCount = 2
.ColumnWidths = "100;1"
.RowSource = "=Klient!A2:K500"
.MultiSelect = fmMultiSelectSingle
.TextColumn = 2
.BoundColumn = 2
End With

End Sub

Private Sub ListBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim I As Long
If ListBox1.ListIndex >= 0 Then
I = ListBox1.ListIndex
Sheets("form").Range("E2") = ListBox1.List(I, 0)
Sheets("form").Range("E3") = ListBox1.List(I, 1)
Sheets("form").Range("E4") = ListBox1.List(I, 2)
Sheets("form").Range("E5") = ListBox1.List(I, 4)
Sheets("form").Range("O4") = ListBox1.List(I, 3)
Sheets("form").Range("V2") = ListBox1.List(I, 8)

Sheets("form").Range("D41") = ListBox1.List(I, 9)
Sheets("form").Range("B44") = ListBox1.List(I, 2)
Sheets("form").Range("B8") = ListBox1.List(I, 6)







End If

End Sub