[ 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 |