makro ilk kaydı renklendirmiyor.

[gelibolu]

1. Aşağıdaki makro mükerrerleri renklendirsede ilk kaydı renklendirmiyor.
Ben bütün aynı olanları renklendirmek istiyorum.(f sütununa göre )
2. Peki sadece o hücre değilde o satırı renklendirmek istersem makroda nasıl bir değişiklik yapmam gerekir.İyi akşamlar.


Sub renklendir()
Range("f1:f65536").Interior.ColorIndex = xlNone
For f = [f65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("f1:f" & f), Cells(f, "f")) > 1 Then Cells(f, "f").Interior.ColorIndex = 7
Next
End Sub

 

[Ömer]

Merhaba,

Sorudaki yapmak istediğiniz nedir. Küçük bir örnek dosya ile açıklarmısınız.

 

[gelibolu]

ekledim üstad..

 

[Ömer]

İlk mesajınızda kırmızı işaretlediğim bölüme son değeri yazmanız gerekir.

Örneğin 10 yazarsanız istediğiniz olur. Yada tüm sütuna göre

rows.count

yazın. Yada kod ile son değeri bulup bu değeri yazın.

.

 

[gelibolu]

Yardımların için Teşekkür ederim üstad .
Peki bu tekrar edenlerin belirlenen aralıkta satırını boyaması için kodda nasıl bir değişiklik yapmam gerekir.

 

[Ömer]

Belirlenen aralıktan kastınız nedir. Sorularınız daha detaylı sormaya özen göstermenizi rica ederim.

 

[gelibolu]

Kusura bakmayın. İstediğim mükerrer tespit edilen hücrelerin aynı zamanda A:H sütunları arasındaki satırın da boyanması. Sabrınıza teşekkür ederim.

 

[Ömer]

Cells(f, "f").Interior.ColorIndex = 7

Kodlarda, yukarıdaki bölümü aşağıdakiyle değiştirin.

Range ("A" & f & ":H" & f).Interior.ColorIndex = 7

 

[gelibolu]

Teşekkür ederim. Yeni gördüm . Elinize sağlık