Soru Açılır liste

Katılım
21 Ekim 2019
Mesajlar
12
Beğeniler
0
Excel Vers. ve Dili
2016
#1
Merhaba arkadaşlar
Açılır listede c2 seç dim c13 hücresine kendi
gitsin makro kodu yazamadım yarım edermisiniz
 
Katılım
23 Ağustos 2005
Mesajlar
3,951
Beğeniler
63
Excel Vers. ve Dili
Excel : 2010
#2
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
12
Beğeniler
0
Excel Vers. ve Dili
2016
#3
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
12
Beğeniler
0
Excel Vers. ve Dili
2016
#15
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
12
Beğeniler
0
Excel Vers. ve Dili
2016
#16
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
23 Ağustos 2005
Mesajlar
3,951
Beğeniler
63
Excel Vers. ve Dili
Excel : 2010
#17
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
12
Beğeniler
0
Excel Vers. ve Dili
2016
#18
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
 
Üst