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.
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.