iki kritere göre okul adı seçme

[Yesilyurtlu]

Birinci açılır pencerede İl, İkinci pencerede İlçe adı seçtikten sonra Üçüncü açılır pencerede Okul adlarının çıkması için yardımcı olabilir misiniz?
Not : Sadece Malatya ili için veriler girilmiştir

 

[snx111]

sayın yeşilyurtlu dosyanız ekte

 

[snx111]

kullandığım kodlar ;

Private Sub ComboBox1_Change()


End Sub

Private Sub ComboBox1_DropButtonClick()

son = Sayfa1.Cells(Rows.Count, 1).End(xlUp).Row
For x = 2 To son
If Sayfa1.Range("a" & x) <> "" Then
If Sayfa1.Range("a" & x) <> Sayfa1.Range("a" & x - 1) Then
Sayfa2.ComboBox1.AddItem Sayfa1.Range("a" & x)

End If
End If
Next
End Sub

Private Sub ComboBox1_GotFocus()
ComboBox1.Clear
End Sub

Private Sub ComboBox2_Change()

End Sub

Private Sub ComboBox2_DropButtonClick()
'On Error Resume Next
son = Sheets("sayfa2").Cells(Rows.Count, 2).End(xlUp).Row
Dim bilinmeyen As Variant
Set combo1dizi = Sheets("sayfa2").Range("a2:a" & son)
x = ComboBox1.Value
For Each bilinmeyen In combo1dizi
If Sayfa1.Range("b" & bilinmeyen.Row) <> "" Then
If x = bilinmeyen Then

Sayfa2.ComboBox2.AddItem Sayfa1.Range("b" & bilinmeyen.Row)

End If
End If
Next
End Sub

Private Sub ComboBox2_GotFocus()
ComboBox2.Clear
End Sub

Private Sub ComboBox3_Change()

End Sub

Private Sub ComboBox3_DropButtonClick()
son = Sheets("sayfa2").Cells(Rows.Count, 2).End(xlUp).Row
Dim bilinmeyen As Variant
Dim yer1 As Range
Dim satırdizi, combo1dizi, combo2dizi As Range
Set combo1dizi = Sheets("sayfa2").Range("a2:a" & son)
Set combo2dizi = Sheets("sayfa2").Range("b2:b" & son)
x = ComboBox1.Value
xto = ComboBox2.Value
For Each bilinmeyen In combo2dizi
If xto = bilinmeyen Then
yer = bilinmeyen.Row
If yer <> Empty Then
sonsutun = Sheets("sayfa2").Cells.SpecialCells(xlCellTypeLastCell).Column
For y = 3 To sonsutun
ComboBox3.AddItem Sheets("sayfa2").Cells(yer, y)
Next

End If
End If
Next
End Sub

Private Sub ComboBox3_GotFocus()
ComboBox3.Clear

End Sub

 

[snx111]

Bugün pazar ya okullar kapalı

 

[Yesilyurtlu]

değerli kardeşim
2003 formatında ekleyebilir misiniz?

 

[snx111]

buyurun değerli kardeşim 2003.. malatya ilinden diğerlerinde okul olmadıgını biliyorsunuz... seçiniz ..

 

[Yesilyurtlu]

Sayın snx111
Hızlı cevap verdiğiniz için teşekkür ederim.
Ellerine sağlık.
Teşekkürler

 

[snx111]

[YOUTUBE]3mA1rrty1jQ[/YOUTUBE]

 

[Yesilyurtlu]

sayın snx111
Benden kaynaklı olarak ufak bir eksiklik var. Rica etsem ekleyebilir misiniz?
Combo3 te seçileni c7 hücresine yazdırabilir miyiz

 

[snx111]

Private Sub ComboBox3_DropButtonClick() olayını bulun end sub yazan yerin satır bir üstüne
Range("c7") = ComboBox3.SelText

 

[Yesilyurtlu]

teşekkür ettim sağolasınız

 

[sirkülasyon]

Sitede alenen firma reklamı yapmaya site yönetimindeki abiler izin vereceğini zannetmiyorum