Renkli hücrelerde saydırma sorunu

[hakanimamoglu]

Ekteki dosyada Renkli hücreleri sayan fonksiyonu kullanarak resnkli hücreleri saydırıyorum. Ama değişiklik yaptığımda saymıyor. Değişiklik yapması için sadece biçim fırçası ile değişiklik yapmam gerekiyor.

Ben üstteki renk sıkalasından değişiklik yaptığımda nasıl saydırırım.

Teşekkürler

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırırsanız, hücreyi boyadıktan sonra başka hücreye geçtiğinizde otomatik hesaplama yapar, başka biz çözüm aklıma gelmedi:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Calculate
End Sub

 

[hakanimamoglu]

Denedim ama hala aynı şekilde hocam ?

 

[hakanimamoglu]

Function renklidolusay(Adres As Range, Renkno, islem As Integer)
Dim c As Range
On Error Resume Next
Toplam = 0
If islem = 1 Then
For Each c In Adres
If c.Interior.ColorIndex = Renkno And c <> "" Then Toplam = Toplam + 1 'dolu olan hücre sayısı

Next
End If

renklidolusay = Toplam
End Function
Bu fonksiyona ekleme ile olabilir mi ?

 

[YUSUF44]

Aynı şekilde olamaz. Kodları ilgili sayfanın (ALTIEYLÜL) kod bölümüne yapıştırdığınıza emin olunuz. Sayfa adına sağ tıklayıp Kod görüntüle deyin ve çıkan sayfaya yapıştırın.

 

[hakanimamoglu]

altıeylül değil ama tüm sayfalara yapıştırmıştım. Yaklaşık 20 alt sayfa olduğu için ama

 

[YUSUF44]

Muhtemelen ben yanlış hatırlıyorum. Kodu ilk yazdığımda başka hücreyi seçince hesaplama yapıyordu diye hatırlıyorum ama şu anda nedense yapmıyor. Kusura bakmayın.

 

[hakanimamoglu]

Yok estafurullah hocam çözüm adına öyle dedim yoksa hata bulmak değil maksat

 

[Korhan Ayhan]

Merhaba,

Ekteki örnek dosyayı deneyiniz.