makro sorunu

Katılım
21 Ocak 2018
Mesajlar
8
Excel Vers. ve Dili
2013 TR
merhabalar.
aşağıda paylaşmış olduğum makroda hücre aralığına sonradan ilave edilen aynı renkli herhangi bir rakamı veya rakamları aynı renkli rakamların toplama hücresine anında eklemiyor. F9 tuşuyla yenileme yaptıktan sonra ekleme yapıyor.. Yardımcı olabilir misiniz ?

Public Function RENKTOPLA(pRange1 As Range, pRange2 As Range) As Double
'Update 20140210
Application.Volatile
Dim rng As Range
Dim xTotal As Double
xTotal = 0
For Each rng In pRange1
If rng.Font.Color = pRange2.Font.Color Then
xTotal = xTotal + rng.Value
End If
Next
RENKTOPLA = xTotal
End Function
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,167
Excel Vers. ve Dili
2019 Türkçe
Merhaba.
Formüller tabını açın. Hesaplama Seçenekleri = Otomatik seçin.
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,167
Excel Vers. ve Dili
2019 Türkçe
Başka bir sorun yok.

Aynı kodu başka bir excel dosyasında deneyin, çalışacaktır.
 
Katılım
21 Ocak 2018
Mesajlar
8
Excel Vers. ve Dili
2013 TR
Başka bir sorun yok.

Aynı kodu başka bir excel dosyasında deneyin, çalışacaktır.
denemesini yaptım olmadı farklı tablo farklı veri yine olmadı .. başka bir cihazda deneme yapacağım artık .. veya officce sürümü bilemiyorum ..
var olan veride sıkıntı yok hemen hesaplama yapıyor ama tabloya ekleme yaptığınızda veri rengini değiştirdiğinizde otomatik olarak bir türlü almıyor .. ilginiz için teşekkür ederim .
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,167
Excel Vers. ve Dili
2019 Türkçe
Soruyu iyi anlamadım herhalde.
Sanırım siz font rengi değiştirince otomatik toplamasını istiyorsunuz.
Eğer öyleyse renk değiştirildiğinde fonksiyon hesaplama yapmaz.
Fonksiyon otomatik hesaplaması için değer değişmesi gerekir.
 

dEdE

Destek Ekibi
Destek Ekibi
Katılım
1 Temmuz 2005
Mesajlar
2,605
Excel Vers. ve Dili
Ofis 2013 TR 64 Bit
Eğer öyleyse renk değiştirildiğinde fonksiyon hesaplama yapmaz.
Fonksiyon otomatik hesaplaması için değer değişmesi gerekir.
Ya da renk değişikliğinin Biçim Boyacısı ile yapılması gerekir.
 
Katılım
21 Ocak 2018
Mesajlar
8
Excel Vers. ve Dili
2013 TR
Soruyu iyi anlamadım herhalde.
Sanırım siz font rengi değiştirince otomatik toplamasını istiyorsunuz.
Eğer öyleyse renk değiştirildiğinde fonksiyon hesaplama yapmaz.
Fonksiyon otomatik hesaplaması için değer değişmesi gerekir.


aynen öyle .. önceden yazılmış değer sevki gelince font rengi değişecek böylece toplam sevk adedi değişecek.. biçim boyacısı ile bir deneme yapalım bakalım sonuç ne olacak
 
Katılım
21 Ocak 2018
Mesajlar
8
Excel Vers. ve Dili
2013 TR
biçim boyacısı da işe yaramadı ..
eğer mail adresiniz varsa taslağı size atayım siz daha detaylı bir inceleme yapın .. sorunu görerek çözebilirsiniz belki
sizin içinde uygunsa
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,167
Excel Vers. ve Dili
2019 Türkçe
dosya.tc gibi bir paylaşım sitesine ekleyebilirsiniz.
 

dEdE

Destek Ekibi
Destek Ekibi
Katılım
1 Temmuz 2005
Mesajlar
2,605
Excel Vers. ve Dili
Ofis 2013 TR 64 Bit
Merhaba,
biçim boyacısı da işe yaramadı ..
12 no.lu mesajdaki dosyanızı inceledim. M6 hücresindeki 50 sayısını biçim boyacısı ile kırmızı yaptım ve çalıştı. Diğer hücrelerde de denedim sorunsuz çalışıyor. Ayrıca formülünüze göre Kırmızıları Siyah yaptığımda da çalışıyor.
Biçim boyacısı, Kopyala/Özel Yapıştır/Biçimleri işlemini taklit eder ve Application.Volatile komutunu tetikler. Dosya/Seçenekler/Formüller/Hesaplama Seçeneklerinin/Otomatik olduğundan eminseniz ve sizde çalışmıyorsa başka bir sorun var demektir.
 
Katılım
21 Ocak 2018
Mesajlar
8
Excel Vers. ve Dili
2013 TR
Merhaba,

12 no.lu mesajdaki dosyanızı inceledim. M6 hücresindeki 50 sayısını biçim boyacısı ile kırmızı yaptım ve çalıştı. Diğer hücrelerde de denedim sorunsuz çalışıyor. Ayrıca formülünüze göre Kırmızıları Siyah yaptığımda da çalışıyor.
Biçim boyacısı, Kopyala/Özel Yapıştır/Biçimleri işlemini taklit eder ve Application.Volatile komutunu tetikler. Dosya/Seçenekler/Formüller/Hesaplama Seçeneklerinin/Otomatik olduğundan eminseniz ve sizde çalışmıyorsa başka bir sorun var demektir.


ilginize çok teşekkür ederim. daha önce de yazdığım gibi sanırım ofis uygulamamda sorun var . çünkü F9 tuşunu kullanmadan otomatik olarak çalışmıyor. tekrardan teşekkür ederim
 
Üst