Aynı rakamları bulup hücre boyama

[hakan_demirkan]

Arkadaşlar benim yapmak istediğim şey sayfa 1' in A sütunun daki sayılar sayfa 2'nin A sütununda da varsa bunların hücrelerini sarı yapsın ama bütün satırı yapacak ; ve bir buton koyarak bu sarı hücreleri de silmek istiyorum; kolay gelsin

 

[Huseyinkis]

Arkadaşlar benim yapmak istediğim şey sayfa 1' in A sütunun daki sayılar sayfa 2'nin A sütununda da varsa bunların hücrelerini sarı yapsın ama bütün satırı yapacak ; ve bir buton koyarak bu sarı hücreleri de silmek istiyorum; kolay gelsin

Boyamak için.

Sub Makro1()
Set s1 = Sheets("Sayfa1")
Set S2 = Sheets("Sayfa2")
For i = 1 To s1.Range("A65536").End(3).Row
deger = WorksheetFunction.CountIf(S2.Range("A:A"), s1.Cells(i, "A"))
If deger > 0 Then
Rows(i).Select
Selection.Interior.Color = vbYellow
End If
Next
End Sub

Sarı olanları silmek için

Sub Makro2()
For i = Range("A65536").End(3).Row To 1 Step -1
If Cells(i, "A").Interior.Color = vbYellow Then
Rows(i).Delete
End If
Next
End Sub

 

[hakan_demirkan]

teşekkürler hocam deniycem