DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Seyit hocam çalışıyor teşekkür ederim aynı sayfada bu kodu iki yere C2 ile c13 arasın bide D2 ile d15 arasından çalıştıra bilirmiyimBu şekilde deneyiniz.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$2" Then [C13].Activate
End Sub
Yapdin hataİkinci bir kod satırı ekleyip hücre adreslerini değiştiriniz.
Hocam denedim olmadı yeni aynı hataYukarıdaki kodu güncelledim.
hocam ek dosyayı göremedimSizin yazdıklarınıza göre kodları deneyerek gönderiyoruz, örnek dosya ekleyiniz.
yeni gördüm hocam şimdi deneyecegimhocam ek dosyayı göremedim
bide ilk yazdıgınız kod ile güncelledigim dedigiz kod arasında bir fark yok bida baka bilirmisiniz
hocam tesekkür ederim çalişiyoryeni gördüm hocam şimdi deneyecegim
Seyit hocam çok teşekkür ederim çalıştı güzelde oldu elinize sağlıkyeni gördüm hocam şimdi deneyecegim
teşekkür ederim hocamBuyurun ...
Hocam denedim oldu iyide oldu teşekkür ederim zahmet verdik kandiliniz mübarek olsunSelçuk bey, örnek dosya yüklerseniz daha sağlıklı cevaplar alırsınız.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C1:C1000]) Is Nothing Then Exit Sub
Target.Offset(, 1).Activate
End Sub
Hocam merhaba bu vermiş olduğum kod çok işime yaradı teşekkür ederim aynısını C den d ye içinde yapmaya çalıştım ama olmadı yardımcı olabilir misinSelçuk bey, örnek dosya yüklerseniz daha sağlıklı cevaplar alırsınız.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C1:C1000]) Is Nothing Then Exit Sub
Target.Offset(, 1).Activate
End Sub