Hücre renklendirme

[kemalist]

Arkadaşlar Merhaba benim yapmak istediğim:"A;B;C;D;E;F" Sütunlarındaki "AYNI" olan verilerin renginin örnekteki gibi aynı olması.Bu Makro ile nasıl yapılabilir? Yardımlarınız için şimdiden teşekkür ederim.

 

[Ömer BARAN]

Merhaba.

İstediğiniz şeyi makro yerine KOŞULLU BİÇİMİLENDİRME (Yanlızca benzersiz veya yinelenenler => yinelenenler) ile yapabilirsiniz.

İlle de kod kullanmak istiyorsanız, aşağıdaki kod'da yer alan;
-- mavi satırlar yukarıda belirttiğim KOŞULLU BİÇİMLENDİRMEyi yapar,
-- kırmızı satırlar ise doğrudan hücre rengini değiştirir.

Kullanmayacağınız kısmı silin.
.

[FONT="Arial Narrow"][B]Sub YİNELENEN()[/B]

[COLOR="Red"]Dim hücre As Range
For Each hücre In Range("A2:F" & [A65536].End(3).Row)
    Range(hücre.Address(0, 0)).Interior.Color = Cells(1, hücre.Column).Interior.Color
    If WorksheetFunction.CountIf(Range("A2:F" & [A65536].End(3).Row), hücre) > 1 Then _
    ActiveSheet.Range(hücre.Address(0, 0)).Interior.Color = [B]vbYellow[/B]
Next hücre[/COLOR]

[COLOR="Blue"]Range("A2:F" & [A65536].End(3).Row).FormatConditions.Delete
With Range("A2:F" & [A65536].End(3).Row)
    .FormatConditions.AddUniqueValues
    .FormatConditions(1).DupeUnique = xlDuplicate
    .FormatConditions(1).Interior.Color = [B]vbYellow[/B]
End With[/COLOR]

[B]End Sub[/B][/FONT]

 

[kemalist]

buradaki hücreleri kopyaladığımızda renkler değişiyor.renkler değişmeden A:F sütunundaki hücreleri Y2 ye nasıl kopyalayabiliriz?

İlginiz için şimdiden teşekkür ederim.

Örnek dosya ektedir.