listboxdan veri silmek

[udentr2002]

merhaba arkadaşlar
listboxdan textboxlara şu kodla veri getiriyorum

Private Sub ListBox1_Click()
Dim x As Integer

For x = 1 To 17
Controls("TextBox" & x) = ListBox1.Column(x - 1)
Next
End Sub

ve listboxda işaretli veriyi hem nasıl silebilirim 17 kolonluk bir listbox işaretli olan tüm satırı sayfadan ve listboxdan silsin nasıl bir kod yazmalıyım .
şimdiden ilgilenen arkadaşlara teşekkür ederim

 

[ileriexcel]

Private Sub ListBox1_Click()
On Error Resume Next
Cells(ListBox1.ListIndex + 1, 1).Select
Range(ActiveCell.Offset(0, 0).Address(False, False), ActiveCell.Offset(0, 10).Address(False, False)).Delete shift:=xlUp
End Sub

 

[udentr2002]

hocam

işaretli olanı silmiyor bi üst satırı siliyıor

 

[ileriexcel]

Cells(ListBox1.ListIndex + 1, 1).Select
ListIndex + 2 yapıp deneyiniz.

 

[tufan03]

Arkadaşlar listboxta mausla seçtiğimiz bir satırı o anda nasıl sileriz.