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.
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.