Soru Kod düzenleme

[35ibo45]

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If [C10] = 0 And [C17] = 0 Then
[E15] = "KASADA PARAMIZ YOK"
End if

Arkadaşlar merhaba.
Yukarıdaki kodların aslı daha uzun. Ben örnek teşkil etmesi açısından kısaltarak buraya ekledim.
Bu kodlarla E15 hücresine bilgi yazdırıyorum. Ancak, değişikliği onaylaması için E15 hücresini tekrar aktif etmek zorunda kalıyorum. (F2+Enter)
İsteğim şu :
E15 hücresini tekrar aktif etmek zorunda kalmadan, bu kodların bağlantılı olduğu hücrelerin herhangi birinde değişiklik olduğu anda sonucu E15 hücresine yazdırsın.
Umarım anlatabilmişimdir. Şimdiden teşekkürler.

 

[35ibo45]

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If [C10] = 0 And [C17] = 0 Then
[E15] = "KASADA PARAMIZ YOK"
End if

Arkadaşlar merhaba.
Yukarıdaki kodların aslı daha uzun. Ben örnek teşkil etmesi açısından kısaltarak buraya ekledim.
Bu kodlarla E15 hücresine bilgi yazdırıyorum. Ancak, değişikliği onaylaması için E15 hücresini tekrar aktif etmek zorunda kalıyorum. (F2+Enter)
İsteğim şu :
E15 hücresini tekrar aktif etmek zorunda kalmadan, bu kodların bağlantılı olduğu hücrelerin herhangi birinde değişiklik olduğu anda sonucu E15 hücresine yazdırsın.
Umarım anlatabilmişimdir. Şimdiden teşekkürler.

Güncel

 

[Korhan Ayhan]

Merhaba,

Eğer kod içinde bahsi geçen C10 ve C17 hücreleri formülle değişiyorsa kodlarınızı sayfanın hesaplama olayına yazmanız daha doğru olacaktır.

 

[35ibo45]

Merhaba,

Eğer kod içinde bahsi geçen C10 ve C17 hücreleri formülle değişiyorsa kodlarınızı sayfanın hesaplama olayına yazmanız daha doğru olacaktır.

Korhan Hocam merhaba..
Öncelikle ilginize teşekkür ederim.
İlk satırı,
Private Sub Worksheet_calculate()
şeklinde değiştirince sorun çözüldü.
Tekrar teşekkür ederim.