Soru Açılır liste

Katılım
21 Ekim 2019
Mesajlar
26
Excel Vers. ve Dili
2016
Merhaba arkadaşlar
Açılır listede c2 seç dim c13 hücresine kendi
gitsin makro kodu yazamadım yarım edermisiniz
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,235
Excel Vers. ve Dili
Excel : 2010
Bu şekilde deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$2" Then [C13].Activate
If Target.Address = "$D$2" Then [D15].Activate
End Sub
 
Son düzenleme:
Katılım
21 Ekim 2019
Mesajlar
26
Excel Vers. ve Dili
2016
Buna benzer bir kod yazdım çalışıyor sorun aynı sayfada başka bir hücrede aynı kodu ikinci sefer yazınca hata veriyor onu nasıl yapabilirim
 
Katılım
21 Ekim 2019
Mesajlar
26
Excel Vers. ve Dili
2016
Bu şekilde deneyiniz.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$2" Then [C13].Activate
End Sub
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 bilirmiyim
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,235
Excel Vers. ve Dili
Excel : 2010
İkinci bir kod satırı ekleyip hücre adreslerini değiştiriniz.

Not : Yukarıdaki kodu güncelledim.
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,235
Excel Vers. ve Dili
Excel : 2010
Sizin yazdıklarınıza göre kodları deneyerek gönderiyoruz, örnek dosya ekleyiniz.
 
Katılım
21 Ekim 2019
Mesajlar
26
Excel Vers. ve Dili
2016
teşekkür ederim hocam
kasa tablom var kendin derme çakma yapdım
6 satır var
B sutunda tarih C sutunda veri dogrulama gelir gider D-E açiklama G toplam kasa
c veri dorulama seçdikden sonra D kendi gecsin kodu
diyer yazdıgın kod lar yukarıdan asağıya aynı sutun olunca
yan yana yazdırmayı yapamadım
 
Katılım
21 Ekim 2019
Mesajlar
26
Excel Vers. ve Dili
2016
teşekkür ederim hocam
kasa tablom var kendin derme çakma yapdım
6 satır var
B sutunda tarih C sutunda veri dogrulama gelir gider D-E açiklama G toplam kasa
c veri dorulama seçdikden sonra D kendi gecsin kodu
diyer yazdıgın kod lar yukarıdan asağıya aynı sutun olunca
yan yana yazdırmayı yapamadım
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,235
Excel Vers. ve Dili
Excel : 2010
Selç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
 
Katılım
21 Ekim 2019
Mesajlar
26
Excel Vers. ve Dili
2016
Selç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 denedim oldu iyide oldu teşekkür ederim zahmet verdik kandiliniz mübarek olsun
 
Katılım
21 Ekim 2019
Mesajlar
26
Excel Vers. ve Dili
2016
Selç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 misin
 
Üst