X sayfasının a2 hücresinde bulunan kelimeyi Y sayfasında bulup bulunan satırı silme

[umutaliadali]

Merhaba Arkadaşlar,

X sayfasının a2, a3, a4, a5 ve a6 hücresinde bulunan kelimeleri Y sayfasında bulup bulundukları satırı silmek istiyorum. Örneğin X sayfasının a2 hücresinde bulunan "Ali Kaya" ismi eğer y sayfasının a sütununda bulunuyorsa, bulunduğu satırı silelim.

Şimdiden teşekkürler.

 

[alicimri]

Aşağıdaki kod x sayfasının A sütununda 2 satırdan başlayarak, y sayfasında A sütunundaki eşleşen satırları siler.

Sub Makro1()
say = Sheets("x").Range("A" & Cells.Rows.Count).End(3).Row
On Error Resume Next
For i = 2 To say
 Sheets("y").Rows(Sheets("y").Columns(1).Find(What:=Sheets("x").Range("A" & i).Value, SearchFormat:=False).Row).Clear
  Next
End Sub

 

[umutaliadali]

Aşağıdaki kod x sayfasının A sütununda 2 satırdan başlayarak, y sayfasında A sütunundaki eşleşen satırları siler.

Sub Makro1()
say = Sheets("x").Range("A" & Cells.Rows.Count).End(3).Row
On Error Resume Next
For i = 2 To say
Sheets("y").Rows(Sheets("y").Columns(1).Find(What:=Sheets("x").Range("A" & i).Value, SearchFormat:=False).Row).Clear
  Next
End Sub

Çok teşekkür ederim hocam.