plaka kodundan şehir bulma vba

[sparta193]

yardımmm :yardim: :yardim: :yardim:

Türkiye’deki tüm il adları ve trafik kodlarının girildiği ekran formunda
verilen trafik kodunun hangi ile ait olduğunu gösteren program nasıl hazırlanır ??

 

[Murat OSMA]

http://www.mediafire.com/download/0v7ucta3kvn1e31/il-ilce-veritabanı.rar

 

[sparta193]

kodları gözükmüyo benim tam olarak sormak istediğim inputboxla girilen değerin hangi ile eşit olduğunu bulan tek kod sayfası içerisinde.

 

[levo26]

Merhaba,

Fonksiyon ile olur.

 

[Necdet]

yardımmm :yardim: :yardim: :yardim:

Türkiye’deki tüm il adları ve trafik kodlarının girildiği ekran formunda
verilen trafik kodunun hangi ile ait olduğunu gösteren program nasıl hazırlanır ??

Basit bir örnek hazırladım, kendinize uyarlayınız.

iller adlı bir sayfa olmalı, A1 den itibaren iller yazılmalı.
A1 = Adana
A2 = Adıyaman vs gibi

Sub Sehir()
    
    Dim Plaka   As Integer
    
    Plaka = Application.InputBox("İl Kodunu Giriniz", Type:=1)
    
    If Not Plaka = 0 Then MsgBox Plaka & " Plakalı İl : " & Sheets("iller").Range("A" & Plaka)
    
End Sub

 

[sparta193]

eyvallah kardeşim. peki hiç excelde bunu yapmadan vba içerisinde if ve for döngüleriyle yapılabilirmi ???