Karşılaştırma

[ANTALYA 01]

Merhabalar

Ekteki Çalışmada Makronun B sütunu ile A sütunu karşılaştırmasını B VE A sütunundaki aynı verilerin hücre rengini SARIYA A sütununda olupta B sütununda olmayan verilerin hücrelerin rengini açık yeşile boyamasını rica ederim.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub test()
Range("a1:b10000").Interior.ColorIndex = 0
For Each suta In Range("a1:a" & [a65536].End(xlUp).Row)
For Each sutb In Range("b1:b" & [b65536].End(xlUp).Row)
If suta = sutb Then
suta.Interior.ColorIndex = 6
sutb.Interior.ColorIndex = 6
End If
Next
Next
For Each suta In Range("a1:a" & [a65536].End(xlUp).Row)
If suta.Interior.ColorIndex <> 6 Then
suta.Interior.ColorIndex = 35
End If
Next
End Sub

 

[ANTALYA 01]

F

Tşk.Ederim.Tam istediğim gibi