sutun icinde ayni olan degerleri bulma

[earthofdevil]

Hocalarim merhaba inanin ben bu siteden cok sey ogrendim.ve de ogrenmeye devam edecegim herkesten Allah razi olsun.
Simdi yardiminiza ihtiyacim olan konuya gelelim ekteki listede G sutundaki degerleri karsilastirip ayni olanlari ayni renge boyamayi nasil yapabilirim..

cok tesekkür ederim butun yardimci olmak isteyenlere

 

[AS3434]

İnceleyin.

http://www.excel.web.tr/forumdisplay.php?f=120

 

[earthofdevil]

tesekkürler

 

[N.Ziya Hiçdurmaz]

Sub test()
For a = [g65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("g1:g" & a), Range("g" & a)) > 1 Then Cells(a, "g").Interior.ColorIndex = 6
Next
End Sub