2 farkı sütundaki aynı kodları bulma

[deasn]

Merhaba AveB sutünlardaki 2 aynı kod u nasıl bulup renklendirme yapabilirim yardımcı olursanız sevinirim

 

[deasn]

yardımcı olabilcek yokmu

 

[Husgvarna]

yardımcı olabilcek yokmu

Aşağıdaki kodları (Sayfa1 e buton ekleyerek) deneyin.

 Private Sub CommandButton1_Click()
Range("a2:b65000").Interior.ColorIndex = xlNone
For a = 2 To [a65536].End(3).Row
x = 1
Cells(a, "a") = LTrim(Cells(a, "a"))
If WorksheetFunction.CountIf(Range("b2:b65000"), Cells(a, "a")) > 0 Then
b = WorksheetFunction.CountIf(Range("b2:a65000"), Cells(a, "a"))
For c = 1 To b
Set d = Range("b" & x + 1 & ":b65000").Find(What:=Cells(a, "a"), LookIn:=xlValues)
If Not d Is Nothing Then
Cells(d.Row, "b").Interior.ColorIndex = 6
Cells(a, "a").Interior.ColorIndex = 6
x = d.Row
End If: Next: End If:
Cells(a, "a") = " " & Cells(a, "a")
Next

End Sub

 

[deasn]

Makro ekleyemedim ama ben bi yerde hatamı yapıyorum

 

[Mesafe]

Aşağıdaki kodları (Sayfa1 e buton ekleyerek) deneyin.

 Private Sub CommandButton1_Click()
Range("a2:b65000").Interior.ColorIndex = xlNone
For a = 2 To [a65536].End(3).Row
x = 1
Cells(a, "a") = LTrim(Cells(a, "a"))
If WorksheetFunction.CountIf(Range("b2:b65000"), Cells(a, "a")) > 0 Then
b = WorksheetFunction.CountIf(Range("b2:a65000"), Cells(a, "a"))
For c = 1 To b
Set d = Range("b" & x + 1 & ":b65000").Find(What:=Cells(a, "a"), LookIn:=xlValues)
If Not d Is Nothing Then
Cells(d.Row, "b").Interior.ColorIndex = 6
Cells(a, "a").Interior.ColorIndex = 6
x = d.Row
End If: Next: End If:
Cells(a, "a") = " " & Cells(a, "a")
Next

End Sub

Hocam süper olmuş elinize sağlık. Bu uygulamayı karşılaştırma dosyalarında hatta extre kontrolünde, mutabakat yapmada kullanabilirim.
Emeğinize sağlık

 

[Husgvarna]

Makro ekleyemedim ama ben bi yerde hatamı yapıyorum

Ek dosyayı inceleyin.

 

[starmetin]

Arkadaşlar merhabalar ,

konu açmadan önceden yapılan paylaşımlara bakarak sorunumu çözmeye çalıştım.

bu kod istediğime yakın ancak eksik olan tarafı aynı olanı bir kez işaretlemiyor hepsini işaretliyor.

Yapmaya çalıştığım A ve B kolonundaki aynı olan rakamların işaretlenmesini istiyorum.
Örnek olarak A kolonunda 10 rakamı bir tane ve B kolonunda 10 rakamı iki tane 10 olduğunu varsayalım B kolonundaki ki 10 rakamının bir tanesinin işaretlenmesini istiyorum.

Kısaca yapmak istedğim A ve B kolonu içindekiler karşılaştırılarak aynı olmayan "farklı" rakamları bulmaya çalışıyorum.

çok teşekkürler.