satır silme makrosunda düzeltme

[damra2005]

Private Sub CommandButton2_Click()
If MsgBox(ListBox1.Text & " adlı kişiye ait bilgiler silinecektir, emin misiniz?", vbYesNo, "Personel Silme") = vbYes Then Rows(ListBox1.ListIndex + 1).Delete
End Sub

bu makro ile 1. satır daki tüm bilgiler siliniyor. ben satırdaki A sütunu ile
F sütunu arasındaki sütunların silinmesini istiyorum. bu makroda nasıl bir düzeltme yapılabilir.

 

[damra2005]

yardımcı olabilecek üstadların işi çok herhalde

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:fe4f20044d]Private Sub CommandButton2_Click()
If MsgBox(ListBox1.Text & " adlı kişiye ait bilgiler silinecektir, emin misiniz?", vbYesNo, "Personel Silme") = vbYes Then
sat = ListBox1.ListIndex + 1
Range("A" & sat & ":F" & sat).Delete
End If
End Sub
[/vb:1:fe4f20044d]