Private Sub Worksheet_Change(ByVal Target As Range) çalışmıyor,

[hakpin]

Değerki Hocalarım;
Başlıktanda anlaşılacağı üzere enter yaptıkça koddaki sırasıyla hücrelere atlaması gerekirken malesef çalışmıyor , Ekteki dosya üzerinde ayrıntılı olarak açıkladım, Yardımcı olursanız sevinirim. Teşekkürler.

 

[kombo]

Birleştirilmiş hücrelerle işlem yaptığınız için hücre değerlerini tam alamamışsınız. Mesela kodlardaki Z14 aslında Y14 olması lazım. Buna göre tekrar kontrol edin.

 

[Seyit Tiken]

Hücre adreslerini kendinize göre düzenleyin. Örnektir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then [D4].Select
If Target.Address = "$D$4" Then [G7].Select
If Target.Address = "$G$7" Then [D14].Select
End Sub

 

[hakpin]

Private Sub Worksheet_Change(ByVal Target As Range)

Kıymetli hocalarım; sayfa altında kod zaten mevcut.Birleştirilmiş hücreleri çözerek te denedim ama bir türlü çalışmıyor.İlginiz için teşekkür ederim.

 

[Seyit Tiken]

Yukarıda verilen kod, birleştirilmiş hücrelerde de iş görüyor. Yapacağınız tek şey, uyarlamasını yapmaktır.

 

[samurayulus]

Herkese merhaba
worksheet change olayını ben de çalıştıramıyorum.
İnternette yeralan örneklerin çoğunu boş bir excel belgesine kopyalayıp yapıştırmama rağmen hiçbiri çalışmıyor. Acaba benim bilgisayarımda bi dosya mı eksik yardımcı olur musunuz?