Arkadaşlar merhaba,
Listwiev1'de birden fazla seçeneği seçip silmek istiyorum kullandığım koda nasıl ekleme yapmalıyım.
Örneğin ctrl tuşuna basıp bir kaç seçeneği seçip sil dediğimde seçtiklerimin silinmesi gerek.Aşağıdaki kod ile tek tek silme yapabiliyorum.Yada listwiev1 içindeki checkboxes'ları seçerek silebilirmiyim.
Private Sub sil_Click()
On Error Resume Next
Y = ListView1.SelectedItem.Index
X = ListView1.ListItems(Y).ListSubItems(13).Text
cevap = MsgBox("Seçili veriyi silmek istediğinizden emin misiniz?", vbInformation + vbYesNo, "SİLME ONAYI")
If cevap = vbYes Then
Set sh = Sheets("Rapor")
sh.Rows(X).Delete
Set sh = Nothing
ListeGuncelle
End If
End Sub
Listwiev1'de birden fazla seçeneği seçip silmek istiyorum kullandığım koda nasıl ekleme yapmalıyım.
Örneğin ctrl tuşuna basıp bir kaç seçeneği seçip sil dediğimde seçtiklerimin silinmesi gerek.Aşağıdaki kod ile tek tek silme yapabiliyorum.Yada listwiev1 içindeki checkboxes'ları seçerek silebilirmiyim.
Private Sub sil_Click()
On Error Resume Next
Y = ListView1.SelectedItem.Index
X = ListView1.ListItems(Y).ListSubItems(13).Text
cevap = MsgBox("Seçili veriyi silmek istediğinizden emin misiniz?", vbInformation + vbYesNo, "SİLME ONAYI")
If cevap = vbYes Then
Set sh = Sheets("Rapor")
sh.Rows(X).Delete
Set sh = Nothing
ListeGuncelle
End If
End Sub
Son düzenleme: