Soru Açılır liste

[Sel_cuk]

Merhaba arkadaşlar
Açılır listede c2 seç dim c13 hücresine kendi
gitsin makro kodu yazamadım yarım edermisiniz

 

[Seyit Tiken]

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

 

[Sel_cuk]

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

 

[Sel_cuk]

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]

İkinci bir kod satırı ekleyip hücre adreslerini değiştiriniz.

Not : Yukarıdaki kodu güncelledim.

 

[Sel_cuk]

İkinci bir kod satırı ekleyip hücre adreslerini değiştiriniz.

Yapdin hata
compile error
Ambiguous name detected : worksheet_change
Bu sorun yapiyor

 

[Seyit Tiken]

Yukarıdaki kodu güncelledim.

 

[Sel_cuk]

Yukarıdaki kodu güncelledim.

Hocam denedim olmadı yeni aynı hata

 

[Seyit Tiken]

Sizin yazdıklarınıza göre kodları deneyerek gönderiyoruz, örnek dosya ekleyiniz.

 

[Sel_cuk]

Sizin yazdıklarınıza göre kodları deneyerek gönderiyoruz, örnek dosya ekleyiniz.

hocam ek dosyayı göremedim
bide ilk yazdıgınız kod ile güncelledigim dedigiz kod arasında bir fark yok bida baka bilirmisiniz

 

[Sel_cuk]

hocam ek dosyayı göremedim
bide ilk yazdıgınız kod ile güncelledigim dedigiz kod arasında bir fark yok bida baka bilirmisiniz

yeni gördüm hocam şimdi deneyecegim

 

[Sel_cuk]

yeni gördüm hocam şimdi deneyecegim

hocam tesekkür ederim çalişiyor
bir sorum daha vardı c2 ile c13 aynı sekilde c13 ile c14 için lazım
aynı kodu denedim olmadı ikisinden biri çalişdı diyeri çalişmıyor

 

[Sel_cuk]

yeni gördüm hocam şimdi deneyecegim

Seyit hocam çok teşekkür ederim çalıştı güzelde oldu elinize sağlık
Bir soru daha sorsam cevap yazarmisiniz?

 

[Seyit Tiken]

Buyurun ...

 

[Sel_cuk]

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

 

[Sel_cuk]

Buyurun ...

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]

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

 

[Sel_cuk]

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

 

[Sel_cuk]

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