userform initialize Prb. Olabilir mi ?

[vivident]

Liste sayfasının A sutununda aktif hücreler var. hücreye tıklayınca userform açılıyor. Userformda kendi aralalarında ilişkli çalışan comboboxlar var. (İl,ilçe,köy,...vs gibi)

Liste sayfasında boş aktif hücreye tıklayıp yeni problem eklerken comboboxlar birbirleri ile ilişkili çalışıyorlar. Dolu olan bir satırdaki aktif hücreye tıklayıncada satırdaki değerler userforma yansıyor. (userform initalize olayı)

İlişkili çalışan combolar (combo1-2-4-6-5) Ana comboboxlar biri değiştiğinde alt comboboxlarda değerler siliniyor. Buraya kadar herşey normal

Fakat liste sayfasından dolu olan bir satırın aktif hücresini tıkladığımızda, hücredeki değerler userform intialize sayesinde diğer combolara yansıyordu yaaa. bundan sonra userfomda Ana comboboxlar biri değiştiğinde alt comboboxlarda değerler silinmiyor

Private Sub ComboBox1_Change()
On Error Resume Next
If ComboBox1.Value = "" Then Exit Sub
ComboBox2.Clear
ComboBox4.Clear
ComboBox5.Clear
ComboBox6.Clear
ComboBox2.Column = con.Execute("select distinct HAT from [Ayarlar$] where ATÖLYE ='" & ComboBox1.Value & "'").getrows
ComboBox6.Column = con.Execute("select distinct REFERANS from [Ayarlar$] where HAT ='" & ComboBox2.Value & "' and ATÖLYE= '" & ComboBox1.Value & "'").getrows
ComboBox4.Column = con.Execute("select distinct MODUL from [Ayarlar$] where HAT ='" & ComboBox2.Value & "' and ATÖLYE= '" & ComboBox1.Value & "'").getrows
End Sub

Private Sub UserForm_Initialize()
ComboBox1.Value = Cells(ActiveCell.Row, "F")
ComboBox2.Value = Cells(ActiveCell.Row, "G")
ComboBox3.Value = Cells(ActiveCell.Row, "H")
ComboBox4.Value = Cells(ActiveCell.Row, "I")
End Sub

 

[vivident]

Arkadaşlar yukarıda problem ile ilgili önerisi olan varmı ???? Gerçekten önemli benim için

 

[vivident]

Private Sub UserForm_Activate()
ComboBox1.Value = Cells(ActiveCell.Row, "F")
ComboBox2.Value = Cells(ActiveCell.Row, "G")
ComboBox3.Value = Cells(ActiveCell.Row, "H")
ComboBox4.Value = Cells(ActiveCell.Row, "I")
End Sub

Active kısmına yazınca düzeldi. problem yok gibi. Arekadaşlar useformdaki ekleme butonuna tıklayınca değerleri hücrelerde eklemesi için 2,3 sn bekliyorum. hemen yüklemiyor. problem ne olabilir sizce