Kodlarda ne hata var...

[mubabacan]

aşağıdaki kodlarla bir tablodan veri aldırıyorum. Tabloya yeni bir kayıt yaptığımda combobox ta göremiyorum. Userformu kapatıp tekrar açtığımda düzeliyor fakat bir önceki satırdaki kaydı gösteriyor. Bunu nasıl düzeltebilirim. Kodları aşağıda gönderiyorum...


Private Sub combobox1_Change()

For Each hucre In Range("a2:A" & WorksheetFunction.CountA(Range("a1:a65000")))


If StrConv(hucre.Value, vbUpperCase) = StrConv(ComboBox1.Value, vbUpperCase) Then

hucre.Select

End If
Next

TextBox1.Value = ActiveCell.Offset(0, 1).Value
TextBox2.Value = ActiveCell.Offset(0, 2).Value
TextBox3.Value = ActiveCell.Offset(0, 3).Value
TextBox4.Value = ActiveCell.Offset(0, 4).Value
TextBox5.Value = ActiveCell.Offset(0, 5).Value
TextBox6.Value = ActiveCell.Offset(0, 6).Value
TextBox7.Value = ActiveCell.Offset(0, 7).Value
TextBox8.Value = ActiveCell.Offset(0, 8).Value
TextBox9.Value = ActiveCell.Offset(0, 9).Value
TextBox10.Value = ActiveCell.Offset(0, 10).Value
TextBox11.Value = ActiveCell.Offset(0, 11).Value
TextBox12.Value = ActiveCell.Offset(0, 12).Value
TextBox13.Value = ActiveCell.Offset(0, 13).Value
TextBox14.Value = ActiveCell.Offset(0, 14).Value
TextBox15.Value = ActiveCell.Offset(0, 15).Value

End sub

 

[Levent Menteşoğlu]

Koda en son satır olarak aşağıdaki satırı ekleyin.

userform_initialize