listeyi içeren satırı silme makrosu

[turkanet]

Merhaba

aşağıdaki makro ile "data" sayfasındaki d sütunundaki listeyi "az" sayfasının a sütununda arayor, listeden hücre bulursa az sayfasının a sütunundan siliyor.

tersi olursa yani

"data" sayfasındaki A sütunundaki listeyi "az" sayfasının D sütununda arayıp, listeden hücre bulursa az sayfasının d sütunundan silmesi için makroyu nasıl değiştirebiliriz?

tşk


Sub aaaaaaaaaaa()
Dim son As Long, i As Long
son = az.Range("a65536").End(3).Row
dizi = (data.Range("d1:d" & data.Range("d65536").End(3).Row).Value)
For a = LBound(dizi) To UBound(dizi)
For i = son To 1 Step -1
If az.Cells(i, "a").Value Like "*" & dizi(a, 1) & "*" Then az.Rows(i).Delete
Next i, a
Erase dizi
son = Empty: i = Empty: a = Empty
End Sub

 

[Murat OSMA]

Merhaba Ahmet Bey,

Bu şekilde bir dener misiniz ? :dusun:

Sub aaaaaaaaaaa()
Dim son As Long, i As Long
son = az.Range("d65536").End(3).Row
dizi = (data.Range("a1:a" & data.Range("a65536").End(3).Row).Value)
For a = LBound(dizi) To UBound(dizi)
For i = son To 1 Step -1
If az.Cells(i, "d").Value Like "*" & dizi(a, 1) & "*" Then az.Rows(i).Delete
Next i, a
Erase dizi
son = Empty: i = Empty: a = Empty
End Sub

 

[turkanet]

Minnettarım...

 

[Murat OSMA]

Estağfurullah Ahmet Bey...

Saygılar