sil makrosu oluşturma

[zevki.sefali]

Private Sub CommandButton1_Click()

Dim X As Long

Application.ScreenUpdating = False

For X = Range("A65536").End(3).Row To 1 Step -1
If InStr(1, Cells(X, 1), "hotmail", vbTextCompare) > 0 Then Rows(X).Delete
Next

Application.ScreenUpdating = True

MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
arkadaşlar sayfa1 in a1 hücresine yazdığım değeri sayfa2 nin b sütununda bulup o satırı sile bilmesi için yukardaki makroyu nasıl düzeltmem gerek. ayrıca CommandButton düğmesininde sayfa1 de olması gerek

 

[N.Ziya Hiçdurmaz]

yanıt

Sub satirsil()
Dim sat As Long
With Sayfa2
    For sat = .Cells(65536, "b").End(xlUp).Row To 1 Step -1
        If .Cells(sat, "b") = Sayfa1.[a1].Value Then
            .Cells(sat, "b").EntireRow.Delete
        End If
    Next
End With
End Sub

 

[zevki.sefali]

Teşekkürler elinize sağlık