Combobox1'de filitreleme combobox2'ye süzme

[efsane81]

Private Sub ComboBox1_Change()
Dim NX As Range
Dim x As Integer
Selection.AutoFilter Field:=1, Criteria1:=ComboBox1.Value
For x = 2 To 100
If Sheets("Sayfa1").Cells(x, 2) = "" Then GoTo 10:
If Rows(x).Hidden = True Then
Else
ComboBox2.Text = ""
ComboBox2.AddItem (Sheets("Sayfa1").Cells(x, 2))
10:
End If
Next
End Sub

slm arkadaşlar yukarıdaki kodla comboboxta filitreleme işlemi yapıyorum ve combobox2de filitrenilenleri gösteriyor ama ikincikez combobox1de seçim yapğtığımda combobox2de bir önceki filitrelediğimde gösteriyor örnek dosyayı aşağıya ekledim .
istediğim şey ise
combobox1de seçim yaptığımda filitreleme işlemi gerçekleşsin combobox2de sadece filitrenilenleri göstersin. combobox1de tekrar seçim yaptığımda bu defa combobox2de tekrar filitrenilenleri göstersin.
bu acesste yaptığımız iller ve ilçelerini sorgu yöntemiyle ayırmaya benziyor ama excellde yapamıyorum.şimdiden teşekkürler

 

[Korhan Ayhan]

Selamlar,

Bu durumda verileri yenilerken eski bilgileri silmek yeterli olacaktır.

Private Sub ComboBox1_Change()
    Dim NX As Range
    Dim x As Integer
    Selection.AutoFilter Field:=1, Criteria1:=ComboBox1.Value
    [COLOR=red]ComboBox2.Clear[/COLOR]
    For x = 2 To 100
    If Sheets("Sayfa1").Cells(x, 2) = "" Then GoTo 10:
    If Rows(x).Hidden = True Then
    Else
    ComboBox2.Text = ""
    ComboBox2.AddItem (Sheets("Sayfa1").Cells(x, 2))
10:
    End If
    Next
End Sub

 

[efsane81]

Sayın Korhan Ayhan çok Teşekkür ederim.