ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[Murat OSMA]

İl İlçe listesi üzerinden, İlleri ve seçime bağlı olarak İlçe adlarını diğer Veri Doğrulama listesine alıp hızlıca seçim yapmak için hazırlanmıştır.

Faydalı olması dileğiyle.

İlgili sayfanın kod kısmına bu kodları yazabilirsiniz..

Kod: Tümünü seç

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Range("A2:A1000"), Target) Is Nothing And Target.Count = 1 Then
        Set Liste = Sheets("VeriTabanı")
        Set SD = CreateObject("Scripting.Dictionary")
        For Each Evn In Liste.Range("A2:A" & Liste.Range("A65536").End(3).Row)
            SD(Evn.Value) = ""
        Next Evn
        Target.Validation.Delete
        Target.Validation.Add xlValidateList, Formula1:=Join(SD.keys, ",")
        SendKeys "%{down}"
    End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("A2:A1000"), Target) Is Nothing And Target.Count = 1 Then
      If Target <> "" Then
       Set Liste = Sheets("VeriTabanı")
       Set SD = CreateObject("Scripting.Dictionary")
       For Each Evn In Liste.Range("A2:A" & Liste.Range("A65536").End(3).Row)
         If Evn.Value = Target Then SD(Evn.Offset(, 1)) = ""
       Next Evn
       Target.Offset(, 1).Validation.Delete
       Target.Offset(, 1).Validation.Add xlValidateList, Formula1:=Join(SD.keys, ",")
       a = SD.keys
       Target.Offset(, 1) = a(0)
       If SD.Count > 1 Then Target.Offset(, 1).Select: SendKeys "%{down}"
          Else
       Target.Offset(, 1) = ""
     End If
    End If
End Sub

Örnek dosya ek'tedir.

Makro ile Veri Doğrulama İl-İlçe Listesi.rar

[sinanplater]

Teşekkürler Murat Bey, konu ile bağlantılı olduğunu düşündüğüm linki bu vesileyle paylaşıma sunuyorum.



viewtopic.php?f=6&t=14206&start=0

[Murat OSMA]

Veri Doğrulama ile ilgili değil ama olsun.

[sinanplater]

Etkileşimli combobox örneği olarak kullanılabilir. Seçilen ile göre gelen ilçe isimleri ...

[Murat OSMA]

Bağlantılı ComboBox'lara bir örnek daha ekledim.

http://www.excelvba.net/viewtopic.php?f=6&t=21504

[sinanplater]

Bu olayı projelerde kullanıyorum ve gerçekten çok işe yarıyor. Görsellik ve kullanımı açısından muhteşem ...

[Murat OSMA]

Siz işi biliyorsunuz zaten.

[sensizsoldum]

merhaba, ben<>de bunu arıyordum yapanın eline sağlık

[erkanokman]

Murat bey çalışmanızdan dolayı teşekkürler.

[vba_kadir]

Murat hocam, bunun Userform da Combobox için olanını da yazabilirmisiniz.
Mümkünse aynı dosyaya bir form ekleyebilirseniz çok sevinirim.

[Murat OSMA]

Üstteki mesajları okumadınız sanırım.

[vba_kadir]

[Murat OSMA]

[EfeM]

Bir kaç gündür fırsat buldukça araştırdığım bir konuydu harika bir rehber oldu Murat Bey, emeğinize sağlık.
Aynı zamanda bu dosyanız ile birlikte, daha önce araştırıp çözüm bulamadığım bir sorun ile dha karşılaştım. Kodlarınız çok net ve temiz. İlişikte ekran görüntüsünü verdiğim onarım hatasını veriyor. Bir çözüm bulamadığım için bir iki projemi bu yüzden soğuyup buraktım.
Ekran alıntısını da ekliyorum.

Saygılarımla.

[abdi123456]

Değerli Üsdatlar merhaba,

Hocamız paylaşmış fakat onarım hatasını düzeltme şansımız var mıdır.

ExcelOnarımHatası.PNG

Teşekkürler,

İyi çalışmalar.