Koşul ve Açılır Liste

[kemalfarukdogan]

Merhaba,

Örneğin A3 sutününde açılır liste var. Ancak A1 sutününde "istanbul" yazdığında A3 sutününde açılır listeden bağımsız "ankara" yazsın. Yani duruma göre açılır listeyi kullanmak yada kullanmamak istiyorum. Kullanmadığımda da yerine istediğim metin gelsin istiyorum.

Yardımlarınızı bekliyorum, çok teşekkürler şimdiden. İyi çalışmalar.

 

[kemalfarukdogan]

Merhaba,

Örneğin A3 sutününde açılır liste var. Ancak A1 sutününde "istanbul" yazdığında A3 sutününde açılır listeden bağımsız "ankara" yazsın. Yani duruma göre açılır listeyi kullanmak yada kullanmamak istiyorum. Kullanmadığımda da yerine istediğim metin gelsin istiyorum.

Yardımlarınızı bekliyorum, çok teşekkürler şimdiden. İyi çalışmalar.

İşin içinden çıkamadım arkadaşlar, önerilerinizi rica ediyorum.

 

[AdemCan]

Merhaba,
Çalışma sayfanızın kod bölümüne şu kodları ekleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Range("A1").Value = "İstanbul" Then Range("A3").Value = "Ankara"
Application.EnableEvents = True
End Sub

 

[Seyit Tiken]

 

[kemalfarukdogan]

Merhaba,
Çalışma sayfanızın kod bölümüne şu kodları ekleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Range("A1").Value = "İstanbul" Then Range("A3").Value = "Ankara"
Application.EnableEvents = True
End Sub

Çok teşekkür ederim.

 

[kemalfarukdogan]

Merhaba,
Çalışma sayfanızın kod bölümüne şu kodları ekleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Range("A1").Value = "İstanbul" Then Range("A3").Value = "Ankara"
Application.EnableEvents = True
End Sub

Eğer tüm bunu tüm sütuna uygulamak istersem sadece sutünun harf kodunu mu yazıyorum. örneğin sadece "A" gibi.

Kusura bakmayın bilmediğimden soruyorum.

 

[AdemCan]

Estağfurullah kusur olur mu hiç.
Bilgi paylaşımı, paylaşırken öğretmek ve öğrenmek, yardımcı olmak için var bu Forum.

Kodu sütuna uygulamak içinde; Çalışma Dosyanızın örneğini, dosya paylaşım sitelerinden birine yükleyip, ilgili bağlantı adresini burada paylaşıp, dosya üzerinde nasıl bir çalışma istediğinizi de açıklarsanız, yardımcı olmak isteyen arkadaşların ve sizin sonuca ulaşmanız daha kolay olur.

 

[kemalfarukdogan]

Estağfurullah kusur olur mu hiç.
Bilgi paylaşımı, paylaşırken öğretmek ve öğrenmek, yardımcı olmak için var bu Forum.

Kodu sütuna uygulamak içinde; Çalışma Dosyanızın örneğini, dosya paylaşım sitelerinden birine yükleyip, ilgili bağlantı adresini burada paylaşıp, dosya üzerinde nasıl bir çalışma istediğinizi de açıklarsanız, yardımcı olmak isteyen arkadaşların ve sizin sonuca ulaşmanız daha kolay olur.

Merhaba hocam şimdi bu makroyu tüm sütuna uygulamak istiyorum. Örnek dosya linkteki .rar dadır.

http://s7.dosya.tc/server3/t44vys/Ornek1.rar.html

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Range("A1").Value = "Almanya" Then Range("B1").Value = "Yok"
Application.EnableEvents = True
End Sub

 

[AdemCan]

Merhaba,
Hafta sonu Foruma bakamadım kusura bakmayın.
Ama Makroyu tüm sütun için uygulamak isimli konuda sorunuz cevaplanmış.
Hayırlı günler, iyi çalışmalar.