İki kriterli Find komutu

[seddur]

Merhaba.Aşağıdaki kod ile textbox7 ve textbox17'deki değere göre Anasayfada bulunan verileri(satırları) silmek istiyorum Ancak find komutunu iki kriterli olarak yazamadım.Bir de aşağıdaki kod sadece tek satırı siliyor halbuki textbox7 ve textbox17 değerler birden fazla satırda var hepsini tek seferde silsin istiyorum.Yardımcı olabilirseniz sevinirim.(Textbox7 deki değerler Anasayfa "A" sutununda,textbox17'deki değerler Anasayfa "D" sutununda yer almaktadır.)

Private Sub CommandButton11_Click()
Dim bul As Variant
Set bul = Sheets("Anasayfa").Range("a:a").Find(TextBox7, LookAt:=xlWhole)
If Not bul Is Nothing Then
Sheets("Anasayfa").Rows(bul.Row).Delete
End If
MsgBox "Kayıt güncellendi"

 

[RBozkurt]

Merhaba, deneyiniz.
*Userform1'i düzenleyin.

Sub DeleteRow()

    Dim searchRange As Range
    Dim searchRange2 As Range
    Dim deleteRange As Range
    Dim deleteRange2 As Range
    Dim searchText As String
    Dim searchText2 As String
   
    searchText = UserForm1.TextBox7.Value
    searchText2 = UserForm1.TextBox17.Value
   
    Set searchRange = Range("A:A").Find(What:=searchText, LookIn:=xlValues)
    Set searchRange2 = Range("D:D").Find(What:=searchText2, LookIn:=xlValues)
   
    If Not searchRange Is Nothing Then
        Set deleteRange = Range(searchRange, searchRange.End(xlToRight))
        deleteRange.EntireRow.Delete
    End If
   
    If Not searchRange2 Is Nothing Then
        Set deleteRange2 = searchRange2
        deleteRange2.EntireRow.Delete
    End If
    MsgBox "Kayıt güncellendi !"
End Sub

 

[seddur]

Tamamdır,çalışıyor.Katkınız için Teşekkür ederim.

 

[RBozkurt]

Kolay gelsin.