RENKLERİ SAYMA

[adige18]

ÖRNEKTE DE GÖRECEĞİNİZ GİBİ RENKLERİ SAYMAK İSTİYORUM ÖYLE BİR ŞEY MÜMKÜN İSE YARDIMCI OLURSANIZ SEVİNİRİM TŞK. İYİ ÇALIŞMALAR

 

[adige18]

PARDON RENKLERİ SAYMA YAZICAKTIM

 

[mehmett]

PARDON RENKLERİ SAYMA YAZICAKTIM

Düzeltildi.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki linkte bu konu daha önce işlenmişti. İncelermisiniz.

http://www.excel.web.tr/viewtopic.php?t=15438

 

[mehmett]

G4, H4 ve I4 hücrelerine renkleri sayacak fonksiyonları yazdım, ama bu fonksiyonlar "renkleri" değil "renk kodlarını" sayıyor. Bunun için önce sayfaya eklediğim düğmeyi tıklayıp renkli yazıların yanındaki hücrelere renk kodlarını yazdırmanız gerekiyor.

Listenizdeki isimler 17 den fazla olursa aşağıda verdiğim kodlardaki 17 sayısını değiştirebilirsiniz.

[vb:1:3fca2ff5ec]Sub Renkkodları()
For a = 1 To 17
Cells(a, 2) = Cells(a, 1).Font.ColorIndex
Next
End Sub[/vb:1:3fca2ff5ec]

 

[realenigma]

linkte sorun var sanırım