Eşleştirme Yardım

[marmarabil]

İyi çalışmalar

Excelde iki adet sayfam var
birinci sayfada a sütununda 60 adet sayı var. 8790, 12345, 15678 .... gibi

ikinci sayfada ise a sütununda sayılar b sütununda isimler ve c sütununda telefon numaraları var .a sütunundaki sayılar 8790, 8870, 8945, 8977,.... gibi

yapmak istediğim,
ikinci sayfada, birinci sayfadaki sayıları bulacağım ve diğer sayıları sileceğim.

yani 8790 kalsın 8870,8945,8977 satıları silinsin istiyorum.

anlatabldiysem ne mutlu bana. konularda aradım yakın uygulamalar var lakin benimkine uyarlayamadım. yardımcıolursanız sevinirim.

 

[Orion1]

Birinci sayfa dediğiniz sayfanın adını ben Sayfa1 olarak kabul ettim.Başka bir isimse aşağıda kırmızı ile yazdığım yere siz o ismi yazın.

Sub satir_sil()
Dim i As Long, k As Range
Application.ScreenUpdating = False
For i = Cells(65536, "A").End(xlUp).Row To 1 Step -1
    Set k = Sheets("[B][COLOR="Red"]Sayfa1[/COLOR][/B]").Range("A:A").Find(Cells(i, "A").Value, , xlValues, xlWhole)
    If Not k Is Nothing Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamadır.", vbOKOnly + vbInformation, "E V R E N"
End Sub