yeni kriter ekleme

[cartok]

yeni kriter ekleme yardım

merhabalar,
ben aşağıdaki makro ile istediğim verileri elde edebiliyorum.
Ancak bununla ilgili siz değerli üstadlara 2 sorum olacak.

1.Bu formülde dizi, örnek hücre ve değer olmak üzere 3 kriter var. buna 2. bir değer alanı nasıl oluşturabiliriz?
2.Veri alanında değisiklik olduğunda otomatik olarak hesaplamaları değiştirmiyor. Yeniden formülün üstüne gelip enter'lamak gerekiyor. Bunu nasıl otomatikleştirebiliriz?

Şimdiden teşekkür ederim.

Public Function RenkSayN(Dizi As Range, Ornek_Hucre, Değer As String)
Toplam = 0
For Each Hucre In Dizi
If Hucre.Font.ColorIndex = Ornek_Hucre.Font.ColorIndex And _
Hucre.Interior.Color = Ornek_Hucre.Interior.Color And _
Hucre.Font.Bold = Ornek_Hucre.Font.Bold And _
Hucre.Font.Italic = Ornek_Hucre.Font.Italic And _
Hucre.Font.Underline = Ornek_Hucre.Font.Underline And _
Hucre.Font.Size = Ornek_Hucre.Font.Size And _
Hucre.Font.Name = Ornek_Hucre.Font.Name And _
Hucre = Değer Then
Toplam = Toplam + 1
End If
Next
RenkSayN = Toplam
End Function

 

[cartok]

yardım edecek biri yok mu arkadaşlar?
acaba ben mi anlatamadım?

 

[Korhan Ayhan]

Selamlar,

1- Birinci sorunuzu örnek dosya ekleyerek açıklarmısınız.

2- Sayfada hücrelerde renk değiştirme işlemi hiçbir olayı tetiklemediği için kullandığınız formülü otomatik hesaplatmak mümkün değildir. Ama tabiki çözüm üretilebilir. Aşağıdaki kodu formülü kullandığınız sayfanın kod bölümüne uygularsanız. Veri alanında herhangi bir hücrenin biçim özelliklerini değiştirip farklı bir hücreyi seçtiğinizde otomatik olarak hesaplama yapılacaktır.

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

 

[Necdet]

Merhaba,

İsteğiniz tam açık değil, 2. bir değer eklenir mi diye soruyorsunuz ama ne için onu belirtmiyorsunuz.

Değer'in yanına Değer2 as string diyebilirsiniz de, bunu nasıl kontrol etmek istiyorsunuz o belli değil.

 

[cartok]

merhabalar
aşağıdaki dosyada anlatmaya çalıştım

 

[cartok]

dosya ekledim arkadaşlar.
Çözüm yok mu?