Ülke şehir- veri doğrulama

[basridogan]

Herkese selam

Arkadaşlar ekteki dosyayı buradan indirmiştim. A4'de ülkeyi seçtiğimde A5'te şehirlerini listeliyor. Ama bu veri doğrulamayı başka hücrelerde kullanamiyorum. worksheet'teki kodda A4 sabitlenmiş.
Başka hücrelerde de kullanabilmem için kodu nasıl değiştirmeliyim.

Yarrdımcı olusanız sevinirim.

 

[Levent Menteşoğlu]

Bunun için hangi hücrelerde işlem yapmak istediğinizi belirtirseniz yardımcı olalım.

 

[basridogan]

Ã?rneğin Sayfa1'de B2:B100 arasında ülkelerin, C2:C100 arasında şehirlerin veri doğrulamasını yapmak istiyorum. Veya B sütununda ülkeler,C sütunuda şehirler gibi de olabilir.
İlginize teşekkür ederim. Maaşallah çok hızlısınız.

 

[Levent Menteşoğlu]

Sayfa1 in kod sayfasında bulunan aşağıdaki kodun referanslarını değiştirmeniz gerekir.

[vb:1:1163c19873]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$4" Then Exit Sub
On Error Resume Next
Set s1 = Sheets("sayfa2")
ilksat = [sayfa2!a1:a65536].Find([a4].Value).Row
If ilksat = 2 Then ilksat = 1
sonsat = WorksheetFunction.CountIf([sayfa2!a:a], [a4].Value) + ilksat - 1
adr = "R" & ilksat & "C2:" & "R" & sonsat & "C2"
ActiveWorkbook.Names.Add Name:="ad", RefersToR1C1:="=Sayfa2!" & adr
[b4].Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=ad"
End With
End Sub
[/vb:1:1163c19873]

Birde açılan kutu konulacak hücrelerin sayfa adı ve hücre isimlerini verebilirmisiniz.

 

[basridogan]

Koddaki sabit olan [a4] activecell olarak kullanılamaz mı?
Yada bir (i) değişkeni olarak yapılamaz mı?

 

[Levent Menteşoğlu]

Bu istediğinizi yapmak oldukça zor bir iştir. yukarıdaki kod A4 hücresinden seçilen ülke adına göre çalışacak şekilde tasarlanmıştır.

 

[hsayar]

örnek dosyayı yeniden yükleme şanıs olan yada yeni ülkeler ve illeri(kentleri) veritabnaı elinde olan var mı?