Userform initialize çalışmıyor

[mesuttasar]

Userform initialize olayına aşağıdaki kodları ekliyorum.Form ilk açıldığında değerleri alıyor ancak yeni bilgi girişlerinden sonra değişen değerleri forma getirmiyor.Nerede hata yapıyorm acaba?

Kodlar:

Private Sub UserForm_Initialize()
Sheets("Veri").Select
ListBox1.RowSource = "Veri!b1:b100"
TextBox5.Value = Range("k1") 'Yaklaşık Maliyet
TextBox8.Value = Range("M1") 'Girilen Teklif Adedi
TextBox9.Value = Range("G2") 'Alt Sınır
TextBox10.Value = Range("G3") 'Üst Sınır
TextBox11.Value = Range("G4") 'C Katsaysı
TextBox12.Value = Range("G5") 'K Katsayısı
TextBox13.Value = Range("G6") 'Sınır Değer
ListBox1.SetFocus

End Sub

 

[Mahmut Kök]

Userform initialize olayına aşağıdaki kodları ekliyorum.Form ilk açıldığında değerleri alıyor ancak yeni bilgi girişlerinden sonra değişen değerleri forma getirmiyor.Nerede hata yapıyorm acaba?

İnitialize, formunuzun açılışında çalıştığı için, sonradan yaptığınız değişiklikleri yansıtmaz. Değişiklik yaptıktan sonra, initialize kodunu tekrar çalıştırmanız gerekir. Değişiklik yaptığınız kodun son satırına UserForm_Initialize yazmanız yeterli olacaktır diye düşünüyorum.

 

[mesuttasar]

Çok teşekkür ederim sağolun verdiğiniz bilgiler için.Form üzerinde kaydet butonundan sonra ;

TextBox5.Value = Range("k1") 'Yaklaşık Maliyet
TextBox8.Value = Range("M1") 'Girilen Teklif Adedi
TextBox9.Value = Range("G2") 'Alt Sınır
TextBox10.Value = Range("G3") 'Üst Sınır
TextBox11.Value = Range("G4") 'C Katsaysı
TextBox12.Value = Range("G5") 'K Katsayısı
TextBox13.Value = Range("G6") 'Sınır Değer

kodlarını ekleyince form güncellendi.