[anestaki]

Καλημέρα σε όλους
Ακόμη ένα πρόβλημα που με παιδεύει .
Ο παρακάτω κώδικας μου εμφανίζει μια κενή γραμμή από εγράφη 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