Otomatik KTF aktivasyonu

[Onur5k]

bir modül kod yazılarak bir sütundaki sarı renksiz hücrelerin toplanması ile ilgili bir ADD_İN yapılmıştır. İlgili fonksiyon tanımı şuanda çalışıyor ancak sarı renksiz hücre sarıya boyandığında toplamdan otomatik düşüm gerçekleşmiyor. F9 a basmak yada formülün yazılı olduğu hücreye tekrar giriş yaparak enter a basmak gerekiyor.

otomatik olarak formülün kontrolünü sağlayamıyorum. kullanmış olduğum kod :

Function SarıRenksizToplam(Alan As Range)
Application.Volatile
Dim v, Sarı_topla, Genel_topla
Sarı_topla = 0
Genel_topla = 0
For Each v In Alan
If IsNumeric(v.Value) Then Genel_topla = Genel_topla + v.Value
If v.Interior.ColorIndex = 6 Then
If IsNumeric(v.Value) Then Sarı_topla = Sarı_topla + v.Value
End If
Next v
SarıRenksizToplam = Genel_topla - Sarı_topla
End Function

formülün otomatik çalışması için ne yapmak gerekir. Yardımlarınızı rica ederim.

Saygılarımla

 

[Muzaffer Ali]

Merhaba.

Formüller tabını açın / Hesaplamalar / Hesaplama seçenekleri / Otomatik seçin.

 

[Onur5k]

Merhaba.

Formüller tabını açın / Hesaplamalar / Hesaplama seçenekleri / Otomatik seçin.

Merhaba bu seçenek aktif o seçeneği denedim. Yine olmuyor maalesef.

SYG

 

[Zeki Gürsoy]

Hücre rengi değişikliği formül tetiklemez.

 

[Onur5k]

Bu örnek dosyada hücre rengi değişikliği formül tetikliyor ama.
ben bu çalışmayı farklı bir excele aktardım. Otomatik hali bunda çalışıyor ancak benim çalışmam da işlemiyor.

 

[Merhum İdris SERDAR]

.

Çünkü, eklediğiniz dosyanın sayfa kodunda kodlar varda ondan.

.

 

[Onur5k]

farklı bir dosyada aynı çalışmayı nasıl yapabilirim İdris Hocam?

syg

 

[Merhum İdris SERDAR]

.

Başka bir dosyada aşağıdaki kodu sayfanın kod bölümüne yazın.

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

.

 

[Onur5k]

idris hocam tekrar aynı konu hakkında bir görüş almak istiyorum. en son yazdığınız kodu sayfa kod bölümüne yazdığımda istediğim oluyor problem yok. sarı renge manuel boyadığımda toplamdan otomatik düşüm sağlanıyor.
ilgili hücrelere koşullu biçimlendirme için bir formülle otomatik renklendirme yaptığımda ise ilgili formül ve otomatik değer güncelleme çalışmıyor. Bu sorun neyden kaynaklı olabilir?

Yardımlarınızı rica ederim

SYG

 

[Korhan Ayhan]

Koşullu biçimlendirme de hücrenin fiziksel rengi değişmez sadece görsel olarak renkli görürsünüz. Bu sebeple sonuç alamıyorsunuz.

Sonuç almak için ilgili hücredeki koşulu sorgulayabilirsiniz. Ya da KTF yerine normal SUB (Makro) yazmalısınız. Bunda da koşullu biçimlendirme rengini sorgulayan Range("A1").DisplayFormat.Interior.ColorIndex komutunu kullanabilirsiniz. (Uyarı : Bu komut KTF'de çalışmaz)