[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) = ""