Mükerrer sayıları diğer sayfalarda bul

[orkuncan5]

Ana sayfadaki sayıları diğer sayfalarda bulup eğer mükerrer varsa hem ana sayfadaki hemde diğer sayfadaki mükerrerleri boyayacak kod lazım.

 

[Murat OSMA]

Şu kodları bir deneyiniz;

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

 

[orkuncan5]

Aynen istediğim gibi.Teşekkür ederim.

 

[Murat OSMA]

Rica ederim, iyi günler...