iki ayrı sayfadaki verileri karşılaştırma

[akoctr]

Merhaba bir tanesinde 80000 bin kayıt diğerinde 600 kayıt olan iki excel sayfası var bunlardan 600 lük sayfayı 8000 bin içinde aratıp aynı olanların renklerini farklılaştırma istiyorum yardımcı olursanız sevinirim.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub BulRenklendir()
 
    Dim c As Range, Adr As Variant, i As Long
    Dim S1 As Worksheet, S2 As Worksheet
    
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
 
    S1.[A:A].Interior.ColorIndex = xlNone
    S2.[A:A].Interior.ColorIndex = xlNone
 
    With S1.Range("A1:A" & S1.Cells(Rows.Count, "A").End(xlUp).Row)
      For i = 1 To S2.Cells(Rows.Count, "A").End(xlUp).Row
         Set c = .Find(S2.Cells(i, "A"), , xlValues, xlWhole)
           If Not c Is Nothing Then
             Adr = c.Address
               Do
                  S1.Cells(c.Row, "A").Interior.ColorIndex = 36
                  S2.Cells(i, "A").Interior.ColorIndex = 36
               Set c = .FindNext(c)
               Loop While Not c Is Nothing And c.Address <> Adr
           End If
        Next i
    End With
    
    Set c = Nothing
    Set S1 = Nothing: Set S2 = Nothing
 
End Sub

.