Sayfa 1 ile sayfa 2 deki ortaklari sayfa 1 de goruntuleme veya silmek istiyorum

[Ogun]

Sayfa1 de order number altinda numaralar var sayfa2 de bu numaralarin hepsi yok fakat benzerleri var.
Sunu yapmak istiyorum sayet sayfa1 olan order numberlari sayfa ikideki ile karsilastirip ve sayfa ikide
olanlari sayfa1 den silmek istiyorum veya gostermemek. Bunu nasil yapmamm gerekir.
Kisacasi: Sayfa1 ile sayfa2 de ortak sayilari birinci sayfada goruntulemek istemiyorum bunun icin hangi
makroyu kullanmam lazim veya nasil bir cozum onerirsiniz?


Excel dosyasini ekte bulabilirsiniz.

Simdiden cok tesekkurlerimi iletirim.

Ogun

 

[Kemal Demir]

Sn.Ogun

Sub ayıkla()
For i = [a65536].End(3).Row To 2 step-1
If Sheets("Sayfa2").Range("a" & i).Value = Sheets("Sayfa1").Range("a" & i).Value Then
Sheets("Sayfa1").Rows(i).Delete
End If
Next
End Sub

Yukarıdaki Kod'u kullanabilirsiniz.Test Edilmedi Bilginize.

 

[mehmett]

Ben de aşağıdaki makroyu önerecektim.

Sub sil()
son = [a65536].End(3).Row
For x = son To 2 Step -1
say = Application.WorksheetFunction.CountIf(Sheets("sayfa2").[A:A], Cells(x, 1))
If say > 0 Then
Rows(x).Delete
End If
Next
End Sub