Forum - VBA LISTBOX

Forum (https://www.ms-office.gr/forum/)

- Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)

- - [VBA] LISTBOX (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/3031-listbox.html)

Καλημέρα σε όλους
Ακόμη ένα πρόβλημα που με παιδεύει .
Ο παρακάτω κώδικας μου εμφανίζει μια κενή γραμμή από εγράφη False.

Κώδικας:

LastRow = pelates.Cells(Rows.Count, 1).End(xlUp).Row

    If LastRow > 1 Then

    ListBox1.RowSource = ""

        With ListBox1

            .Clear

            For i = 2 To LastRow

                For x = 0 To 9

           If Range("l2").Cells(i - 1, 1) = True Then

           .AddItem

           .List(i - 2, x) = pelates.Cells(i, x + 1)

                End If

                Next

            Next

 

        End With

      End If

Καλησπέρα
Γιώργο κοίτα το συνημμένο
Θανάσης

Καλησπέρα
Θανάση σε ευχαριστώ για ακόμη μια φόρα

Καλησπέρα
Μια ερώτηση που πρέπει να την έχω ξανακάνει η ListBox πόσες στήλες εμφανίζει.