Combobox veri süzme hata

[drkdrk]

arkadaşlar ekte gönderdiğim dosyada comboboxlarda veri süzüyorum ve güncelleme butonuna bastığımda güncelleme yapıyorum. Fakat şöyle bir sorunum var güncelleme sonunda userform yeniden yüklendiği için süzme iptal oluyor. Comboboxların içindeki veriler userform güncellemesinden sonra aynı veriler combobox içinde tekrarlanıyor yani çoğalıyor bu sorunu nasıl düzeltebilirim?

güncellemeden sonra süzülen veri listboxta kalsın ve comboboxların içeriği çoğalmasın istiyorum


yardımlarınızı bekliyorum arkadaşlar.

 

[drkdrk]

yardımcı olabilecek var mı?

 

[Orion1]

Dosyanız ektedir.

Private Sub UserForm_Initialize()

ComboBox1.RowSource = "'sayfa3'!B2:B3"
ComboBox2.RowSource = "'sayfa3'!A2:A8"
ComboBox3.RowSource = "'sayfa3'!C2:C3"
ComboBox4.RowSource = "'sayfa3'!D2:D8"
ComboBox5.RowSource = "'sayfa3'!E2:E3"

ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "100"
ListBox1.RowSource = "KL!A4:T" & Sheets("KL").Range("A5000").End(xlUp).Row
ListBox1.ColumnHeads = True
[B][COLOR="Red"]For i = 6 To 18
    Me.Controls("ComboBox" & i).Clear
Next i[/COLOR][/B]

 

[drkdrk]

Dosyanız ektedir.

Private Sub UserForm_Initialize()

ComboBox1.RowSource = "'sayfa3'!B2:B3"
ComboBox2.RowSource = "'sayfa3'!A2:A8"
ComboBox3.RowSource = "'sayfa3'!C2:C3"
ComboBox4.RowSource = "'sayfa3'!D2:D8"
ComboBox5.RowSource = "'sayfa3'!E2:E3"

ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "100"
ListBox1.RowSource = "KL!A4:T" & Sheets("KL").Range("A5000").End(xlUp).Row
ListBox1.ColumnHeads = True
[B][COLOR="Red"]For i = 6 To 18
    Me.Controls("ComboBox" & i).Clear
Next i[/COLOR][/B]

hocam allah razı olsun emeğine sağlık

 

[Orion1]

hocam allah razı olsun emeğine sağlık

Rica ederim.
Kolay gelsin.