[anestaki]

Καλησπέρα σε όλους
Στο συνημμένο ανοίγοντας την φόρμα θα πρέπει να εμφανίζονται όλες η αριθμημένες στήλες , και δεν μπορώ να καταλάβω πιο είναι το λάθος.
Κάθε βοήθεια δεκτή σας ευχαριστώ εκ΄των πρότερων Γιώργος.

Dim i As Long, x As Integer, LastRow As Long
    LastRow = stoixia.Cells(Rows.Count, 14).End(xlUp).Row
    If LastRow > 1 Then
        With ListBox1
        .ColumnCount = 14
.ColumnWidths = "140;0;0;0;0;60;60;60;60;60;60;60;60;60"
            .Clear
            For i = 11 To LastRow
                .AddItem
                For x = 0 To 9
                    .List(i - 11, x) = stoixia.Cells(i, x + 14)
                Next
            Next
        End With
    End If