2 Sayfada da Ortak Olanları Filtrele

[baydeniro]

Merhaba arkadaşlar. 2 sayfanın A sütununda da bulunan verilerin kod ile filtrelenmesi mümkün mü ? Örnek dosya ekte.

 

[Murat OSMA]

Geçen gün bu tarz konuya cevap vermiştim...

Bkz: http://www.excel.web.tr/f48/mukerrer-sayylary-dioer-sayfalarda-bul-t117463.html

Bağlantıdaki kodu dosyanıza göre uyarladım.

Sub Emre()
    Dim Syf As Worksheet
    Dim Evn As Range
    Dim i As Integer
    For Each Syf In Worksheets
        For i = 2 To Sheet1.Range("A2").CurrentRegion.Rows.Count
            If Syf.Name <> "ANKARA" Then
                Set Evn = Syf.Cells.Find(Sheet1.Cells(i, "A"))
                If Not Evn Is Nothing Then
                    Evn.Interior.ColorIndex = 36
                    Sheet1.Cells(i, "A").Interior.ColorIndex = 36
                End If
            End If
        Next i
    Next Syf
    i = Empty: Set Evn = Nothing: Set Syf = Nothing
End Sub

Not: Şu an sadece aynı olan verilerin renklendirilmesi yapılmaktadır...

 

[baydeniro]

Çok teşekkürler sayın Murat Osma.

 

[Murat OSMA]

Rica ederim Serdar Bey, iyi günler...