- Katılım
- 24 Temmuz 2019
- Mesajlar
- 181
- Excel Vers. ve Dili
- 2010 ve 2016 Türkçe
- Altın Üyelik Bitiş Tarihi
- 19-10-2023
Merhaba arkadaşlar. Seçili hücrenin rengine sahip hücreleri saydırmak için aşağıdaki vba kodunu kullanmaktayım. Ama şöyle bir sorun var. Bu formül kendini yenilemiyor. Ancak formülü yazdığım hücreye çift tıklayıp sonra enter dersem güncelliyor. Otomatikleştirmenin yolu var mı? Excel ayarlarında hesaplama otomatikte zaten.
Kod:
Function Renksay(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
Renksay = Renksay + 1
End If
Next datax
End Function