[VBA] List Box με πολλαπλές στήλες

[anestaki]

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

ListBox1.List = Range(.Cells(2, 5), .Cells(Rows.Count, 5).End(xlUp)).Value

[Tasos]

Καλησπέρα!

Γιώργο δες το παράδειγμα στο συνημμένο.

Πρόσεξε τις ιδιότητες ColumnCount και MultiSelect του στοιχείου ελέγχου "ListBox1".

Καλή συνέχεια!

Τάσος

[anestaki]

Καλησπέρα σε όλους
Τάσο σε ευχαριστώ.
Μαζί με τα επιλεγμένη γραμμή στην λίστα μπορούμε να διαγράφουμε και τα δεδομένα.

Private Sub cmdRemoveListSelectedItem_Click()
    Dim i As Long
    For i = ListBox1.ListCount - 1 To 0 Step -1
        If ListBox1.Selected(i) Then
            ListBox1.RemoveItem i
        End If
    Next
End Sub

[anestaki]

Αρχική Δημοσίευση από anestaki

Καλησπέρα σε όλους
Τάσο σε ευχαριστώ.
Μαζί με τα επιλεγμένη γραμμή στην λίστα μπορούμε να διαγράφουμε και τα δεδομένα.

Private Sub cmdRemoveListSelectedItem_Click()
    Dim i As Long
    For i = ListBox1.ListCount - 1 To 0 Step -1
        If ListBox1.Selected(i) Then
            ListBox1.RemoveItem i
        End If
    Next
End Sub

Ok το βρήκα:
Φύλλο15.Range("c" & 2 + i) = ""
Φύλλο15.Range("d" & 2 + i) = ""
Φύλλο15.Range("e" & 2 + i) = ""
Φύλλο15.Range("f" & 2 + i) = ""
Φύλλο15.Range("g" & 2 + i) = ""
Φύλλο15.Range("h" & 2 + i) = ""
Φύλλο15.Range("i" & 2 + i) = ""
Φύλλο15.Range("j" & 2 + i) = ""