Labele veri alma sorunu

[drummers]

Private Sub UserForm_Initialize()
Dim sat As Long
sat = Sheets("data").Cells(65536, "B").End(xlUp).Row
If sat > 1 Then ComboBox3.RowSource = "data!B2:B" & sat
ComboBox1.RowSource = "data!b2:b1500"
ComboBox2.RowSource = "data!c2:c1500"
ComboBox4.RowSource = "data!b2:b1500"
If ComboBox3.ListCount > 0 Then ComboBox3.ListIndex = 0
Dim hwnd As Long ' x işaretini kaldırıyor formdan
hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D") & "Frame", Me.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF

UserForm1.Label217.Caption = Worksheets("Düzen").Range("J2")
UserForm1.Label218.Caption = Worksheets("Düzen").Range("J3")
UserForm1.Label219.Caption = Worksheets("Düzen").Range("J4")

End Sub


Görüldüğü gibi labele verilerimi düzen sekmesinden almaktayım. Fakat veri girişi yaptığımda labele direk ilave etmiyor. Exceli kapatıp açmam gerekiyor. İlgilenirseniz sevinirim

teşekkürler

 

[Korhan Ayhan]

Selamlar,

Veri girişi yaptığınız kodların sonuna aşağıdaki satırı ilave ederseniz işlemden sonra kayıt edilen veriler UserForm üzerindede güncellenmiş olur.

UserForm_Initialize