-
DİKKAT !
Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.
Giriş yap veya Şimdi kayıt olrenkli yazıları saymak
-
H
Çözüldü Renkli yazıları saymak
Merhaba arkadaşlar; bu kod ile Function Hücre_Renk_Say(range_data As Range, criteria As Range) As Long Dim datax As Range Dim xcolor As Long xcolor = criteria.Interior.ColorIndex For Each datax In range_data If datax.Interior.ColorIndex = xcolor Then Hücre_Renk_Say = Hücre_Renk_Say + 1 End If...- Hacı Bayram ÖZKAN
- Konu
- renkli yazıları saymak
- Cevaplar: 7
- Forum: Genel VBA Makro Soruları
-