Boyanan Hücrelerin diğer sayfada "0" gözükmesi

[serdargunes58]

merhaba arkadaşlar.
umarım açık ve net ifade edebilirim sorunumu. Excelde 2 adet sayfam var. "ÖRNEK" safyasında veriler elle giriliyor. diğer safya ise "KESİM" bu sayfada "ÖRNEK" sayfasına formüllerle bağlıdır.
şimdi gelelim sorunuma "ÖRNEK" sayfasında bazı hücreleri boyamam gerekiyor. ve bu boyadığım hücreler "KESİM" sayfasında karşılık gelen hücrelerin "0" değerini gözükmesi gerekiyor.
örnek dosya ektedir.
şimdiden herkese teşekkür ederim.

iyi çalışmalar

 

[Levent Menteşoğlu]

Bu isteğinizi standart fonksiyonlarla yapamazsınız. Kesim sayfasında aşağıdaki gibi bir kullanıcı tanımlı fonksiyon kullanabilirsiniz.

Function renkkontrol(adres As Range)
If adres.Interior.ColorIndex <> -4142 Then
renkkontrol = 0
Else
renkkontrol = adres
End If
End Function

 

[serdargunes58]

levent bey;
öncelikle cevabınız için teşekkürler. ama benim bunu yapabilecek bilgi birikimine sahip değilim. Size zahmet vaktiniz var ise gönderdiğim örneğe bunu işleyip gönderebilir misiniz.
şimdiden teşekkürler...

 

[Korhan Ayhan]

Aşağıdaki işlemleri uygulayınız.

Dosyanızı açın.
ALT+F11 tuşlarına basarak kod editörünü açın.
INSERT menüsünden Module seçeneğini seçin.
Böylece boş bir modül eklemiş olacaksınız.
Levent beyin önerdiğini kodları sağ tarafta gördüğünüz beyaz pencereye uygulayın.
Sonra kod editörü penceresini kapatın.

KESİM sayfasındaki K9 hücresindeki formülü aşağıdaki gibi değiştirin ve alt hücrelere sürükleyin.

=renkkontrol(ÖRNEK!X12)

Bu adımları izlerseniz kolaylıkla yapabilirsiniz.

 

[serdargunes58]

korhan bey;

dediklerinizi yaptım. teşekkür ederim işime yaradı. yanlız bir eksiğim kaldı ve bu çok önemli.
bir değişiklik yaptığımda her seferinde k9 hücresindeki değeri diğer hücrelere sürüklemem gerekiyor ya da dosyayı kaydedip geri açmam gerekiyor. bununla uğraşmadan otomatik olarak hücreyi boyadığım da değerleri "0" yapsa. otomatik mümkün değilse bir tuş atayabilirmiyiz. yani bir değişiklik yaptığımda KESİM sayfasına geleyim kısayol tuşuna tıklayayım ve formül çalışsın.

eğer ikiside mümkün değilse herşey için hem levent beye hem size çok teşekkür ederim. bu şekilde de işime yarayacaktır.

kolay gelsin...

 

[Levent Menteşoğlu]

Bu durumda kesim sayfasında F9 tuşuna basarsanız formüller otomatik olarak güncellenir.

 

[serdargunes58]

Sebebini bilmiyorum ama F9 tuşu bende çalışmıyor. bunun yerine CTRL+ALT+F9 yapıyorum ve çalışıyor. aslın bir sorunum daha var belkide bu şekilde olması gerekiyor net bir bilgim yok. dosyayı "Makro İçerebilen Excel Çalışma Kitabı" olarak kaydettiğimde sorunsuz çalışıyor. eğer bu sayfayı "Excel Çalışma Kitabı" olarak kaydetmek mümkünse süper birşey olacak benim için. eğer değilse bu şekilde de işimi şükürler olsun ki halledebiliyorum.
yardımlarınız için teşekkür ederim.

 

[Levent Menteşoğlu]

Sebebini bilmiyorum ama F9 tuşu bende çalışmıyor. bunun yerine CTRL+ALT+F9 yapıyorum ve çalışıyor. aslın bir sorunum daha var belkide bu şekilde olması gerekiyor net bir bilgim yok. dosyayı "Makro İçerebilen Excel Çalışma Kitabı" olarak kaydettiğimde sorunsuz çalışıyor. eğer bu sayfayı "Excel Çalışma Kitabı" olarak kaydetmek mümkünse süper birşey olacak benim için. eğer değilse bu şekilde de işimi şükürler olsun ki halledebiliyorum.
yardımlarınız için teşekkür ederim.

.xls olarak kaydedin.

 

[Ömer]

Sebebini bilmiyorum ama F9 tuşu bende çalışmıyor. bunun yerine CTRL+ALT+F9 yapıyorum ve çalışıyor.

Function renkkontrol(adres As Range)
[COLOR=red]Application.Volatile[/COLOR]
If adres.Interior.ColorIndex <> -4142 Then
renkkontrol = 0
Else
renkkontrol = adres
End If
End Function

F9 ile hesaplama için kırmızı satırı ilave etmeniz gerekir.

Yada kırmızı satırı ilave etmeden, Kesim sayfasının kod bölümüne aşağıdaki kodları ilave edersiniz. Yani kod sizin adınıza crtl+alt+f9 yapar.

Private Sub Worksheet_Activate()
    Application.SendKeys "%^{F9}"
End Sub

Tercihe göre kırmızı satırı ilave edip sadece

Application.SendKeys "{F9}"

Şeklinde de kullanabilirsiniz. Tercih sizin.

Ben olsam kırmızı satırı ilave edip aşağıdaki gibi kullanırım. Bu şekilde kodlar F9 u sizin adınıza yapar.

Private Sub Worksheet_Activate()
    Application.SendKeys "{F9}"
End Sub

.

 

[serdargunes58]

valla ne diyeceğimi bilmiyorum.

tek kelime ile süpersiniz. klavyenize sağlık