hucre renklerine gore islem yaptirma hk.

[zetkatamet]

Arkadaslar,
Hucre rengine gore toplama islemi yaptirmak istiyorum. Yardimci olurmusunuz. Dosya ekte.
Umarim makrosuz yapilabilir. Nedense makrodan hep kacasim geliyor. Sununda farkindayim isteklerimin beni yavas yavas makroya dogru surukleyecek sanirim.
Saygilar.

 

[hurkanpisirici]

Merhaba ;

Eklediğim dosyada renk ile ilgili bir sürü işlem bulabilirsiniz.Saygılar.

 

[zetkatamet]

cok tesekkur ederim, cok faydali bir paylasim oldu.
iyi calismalar dilerim.

 

[hurkanpisirici]

Sayın zetkatamet rica ederim.Kolay gelsin.

 

[zetkatamet]

rica etsem ekteki dosyaya bakabilirmisiniz. sari ve kirmizi hucre renkli olanlari sn.hurkan pisirici nin gonderdigi ornege gore uyarladim toplamin olacagi yerde #AD? olarak cikmakta. Hucre bicimlendirden sayi da denedim, genel de denedim olmadi.
tesekkurler.

 

[hurkanpisirici]

Function renksay(Aralık As Range, _
Renkİndeksi As Integer, _
Optional OfText As Boolean = False) As Long
'Bu fonksiyon belirtilen aralıktaki zemin renginin kaç tane olduğunu verir
'
'
Dim rng As Range
Application.Volatile True

For Each rng In Aralık.Cells
If OfText = True Then
renksay = renksay - _
(rng.Font.ColorIndex = Renkİndeksi)
Else
renksay = renksay - _
(rng.Interior.ColorIndex = Renkİndeksi)
End If
Next rng

End Function


sayfada kodlar kullanılmış sayın zetkatamet bu kodu modül olarak kaydederseniz çalışır.

 

[zetkatamet]

tesekkurler, makrosuz olamayacak. saygilar.

 

[hurkanpisirici]

özür dilerim bende sonradan farkettim.