Soru A Sayfasında Olan Veri B Sayfasında Varsa A Sayfasındaki İlgili Satırı Silme

[TURKOLOG]

Merhaba herkese
OCAK sayfası B7:B aralığında olan veri KONTROL sayfası F2:F aralığında varsa OCAK sayfasındaki ilgili satırın/ SATIRLARIN komple silinmesi için aşağıdaki kodu yazmaya çalıştım ama olmadı
Yardım edebilecek olan var mı

Sub Sil()
'If Sheets("OCAK").Range("B7:B") = Sheets("KONTROL").Range("F2:F) Then LookIn:=xlValues, lookat:=xlWhole).Row
    Dim Bul As Range
    
    Set Bul = Sheets("OCAK").Range("B7:B").Find(Sheets("KONTROL").Range("F2:F"), , , xlWhole)

Bul.Rows.Delete

End Sub

 

[Orion1]

Buyurun

Sub sil()
Dim i As Long, sonsat As Long, sonsat2 As Long, s1 As Worksheet, s2 As Worksheet
Set s1 = Sheets("OCAK")
Set s2 = Sheets("KONTROL")
sonsat = s1.Cells(Rows.Count, "B").End(xlUp).Row
sonsat2 = s2.Cells(Rows.Count, "F").End(xlUp).Row
For i = sonsat To 7 Step -1
    If WorksheetFunction.CountIf(s2.Range("F" & sonsat2 & ":F" & sonsat2), s1.Range("B" & i).Value) <> 0 Then
        s1.Range("B" & i).EntireRow.Delete
    End If
Next
MsgBox "İşlem Tamam"
End Sub

 

[TURKOLOG]

Buyurun

Sub sil()
Dim i As Long, sonsat As Long, sonsat2 As Long, s1 As Worksheet, s2 As Worksheet
Set s1 = Sheets("OCAK")
Set s2 = Sheets("KONTROL")
sonsat = s1.Cells(Rows.Count, "B").End(xlUp).Row
sonsat2 = s2.Cells(Rows.Count, "F").End(xlUp).Row
For i = sonsat To 7 Step -1
    If WorksheetFunction.CountIf(s2.Range("F" & sonsat2 & ":F" & sonsat2), s1.Range("B" & i).Value) <> 0 Then
        s1.Range("B" & i).EntireRow.Delete
    End If
Next
MsgBox "İşlem Tamam"
End Sub

Hocam malesef kod ocak sayfasından veriyi bulup ilgili satırı silmedi .
Dosyayı ekliyorum .