Listboxdan seçilen veriyi silmek

[crackerdent]

Arkadaşlar
Ã?ncelikle excel.web.tr mizin 1. yılı hepimize kutlu olsun. Bu siteye girmeye başladığımdan beri bilgim en az ikiye katlanmıştır. Bize bu kadar düzeyli ve faydalı bir siteyi sunan herkese canı gönülden teşekkür ediyorum.
Benim sorumla ilgili örneği incelerseniz çok sevinirim.
Herkese Selamlar.

 

[Levent Menteşoğlu]

Commandbuttona aşağıdaki kodu yazın.

[vb:1:abaa6b94b3]Private Sub CommandButton1_Click()
sor = MsgBox("SEÇTİÐİNİZ VERİ SİLİNECEK ONAYLIYORMUSUNUZ", vbYesNo)
If sor = vbNo Then Exit Sub
Rows(ListBox1.ListIndex + 1).EntireRow.Delete
[a2] = 1
[a2].AutoFill Destination:=Range("A2:A" & Cells(65536, 2).End(xlUp).Row), Type:=xlFillSeries
End Sub
[/vb:1:abaa6b94b3]

 

[crackerdent]

Teşekkürler