worksheet change olayı

[mbldn]

saygıdeğer hocalarım,sevgili arkadaşlar;
ekli dosyada yapmak istediğim olay, detay sayfasına manuel olarak not girişi yapıldığında makronun tetiklenmesi ve ilgili sütuna kodda belirtilen işlemi yapması makro çalıştıra tıkladığımda işlem yapıyor ancak hücre değiştirildiğinde silindiğinde change olayına kodu yazdığım halde bazen çalışıyor çoğunlukla çalışmıyor bazı hücrelere girmiş olduğum formüller var ve formüllerin geçersiz ad hatasına dönüştüğünü görmekteyim. formül içeren hücreye girip enter ile çıktığımda hata kalkıyor. ama her makro çalışmak istediğinde aynı hatayı veriyor.
yardımcı olabilecek arkadaşlara şimdiden teşekkürler...

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [b1:ay28]) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Unprotect Password:="1983"
    Application.EnableEvents = False
    Range("t8:u28").ClearContents
    
    Call not_aktar
    Call oys
    
    Application.EnableEvents = True
    Protect Password:="1983"
    Application.ScreenUpdating = True
End Sub

 

[mbldn]

Selamlar,

Aşağıdaki şekilde denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [b1:ay28]) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Unprotect Password:="1983"
    Application.EnableEvents = False
    Range("t8:u28").ClearContents
    
    Call not_aktar
    Call oys
    
    Application.EnableEvents = True
    Protect Password:="1983"
    Application.ScreenUpdating = True
End Sub

Korhan Hocam günaydın;
sıkıntı şu ki sayfada manuel veri girişi yaptığımda formüllü hücreler ad hata değeri döndürüyor dolayısı ile de makro çalışmıyor gözüküyor (değeri hücreden alamadığı için) ad hatasını neden verir acaba benim pc de eksik olan birşeyler mi var?