Şartlı Silme

[seddur]

Merhaba.Aşağıdaki kod ile Liste sayfası "B" sutununda bulunan veriyi listbox3'den seçtiğimde sayfadan siliyorum.Ancak "B" sutununda benzer veri olduğundan "A" sutununda bulunan No'ya (Textbox1'de kayıtlı) ,"D" sutununda bulunan Tarihe (Textbox3'de kayıtlı) ve "G" sutununa karşılık gelen hücre boşsa sayfadan ve listbox3'den silinsin istiyorum.Yardımcı olabilirseniz sevinirim.

Dim a, i As Integer
Dim ara As Variant
If MsgBox("Seçtiginiz Veri Silinecek,Eminmisiniz?", vbYesNo) = vbYes Then
For a = 0 To ListBox3.ListCount - 1
If ListBox3.Selected(a) Then
ara = ListBox3.List(a, 1)
Sheets("Liste").Range("B:B").Find(what:=ara, lookat:=xlWhole).EntireRow.Delete
End If
Next
End If

 

[seddur]

Sorunu çözdüm.Başlık açmadan yeni bir konu hakkında yardım isteyeceğim.Aşağıdaki kod ile Listbox3,4.kolonundaki sayısal veriyi 1 azaltıyorum.Ancak kod listbox3^de en son satırdaki veriyi azaltıyor benim istediğim hangi satırı seçersem o satırın 4.kolonundaki veriyi azaltsın.Teşekkür Ederim.

Private Sub CommandButton15_Click()
Dim a As Byte
For a = ListBox3.ListCount - 1 To 20
If ListBox3.Selected(a) = True Then
ListBox3.List(a, 4) = Int(ListBox3.List(a, 4)) - 1
End sub