Combobox a veri getirme

[soykan]

Selam Üstatlar

Sayafada bir combo box kur-yusu oluşturdum ve aynı sayfa da aa kolonunda da cari isimleri tutuyorum. Buraya yeni cari eklendikçe otaomatik ilaveler oluyor.

Ben her sayfaya girdiğimde combobox otomatik olarak dolsun istiyorum.
Bunun için aşağıdaki kodu yazdım ama bir türlü combo box a veriler gelmiyor.

Private Sub ComboBox1_change()
Dim mg As Range
son = [AA50000].End(3).Row

For Each mg In CariHar.Range("aa2:aa" & son)

ComboBox1.AddItem mg
Next mg
Sheets("CariHar").Range("A9:H500") = ""
End Sub

Nerede hata yapıyorum?

 

[halit3]

Sayfa için kod

Private Sub CommandButton1_Click()
Sheets("CariHar").ComboBox1.Clear
Dim mg As Range
Son = Worksheets("CariHar").Cells(Rows.Count, "aa").End(3).Row
For Each mg In Sheets("CariHar").Range("aa2:aa" & Son)
Sheets("CariHar").ComboBox1.AddItem mg
Next mg
Sheets("CariHar").Range("A9:H500") = ""
End Sub

userform için kod

Private Sub CommandButton1_Click()
ComboBox1.Clear
Dim mg As Range
Son = Worksheets("CariHar").Cells(Rows.Count, "aa").End(3).Row
For Each mg In Sheets("CariHar").Range("aa2:aa" & Son)
ComboBox1.AddItem mg
Next mg
Sheets("CariHar").Range("A9:H500") = ""
End Sub