Soru Userform açılışında hücrelerin textboxa gelmesi

[sirkülasyon]

Private Sub CommandButton19_Click()
If TextBox1 = "" Or TextBox2 = "" Or TextBox2 = "" Then
MsgBox "Eksik bilgi girdiniz !" & Chr(10) & "Lütfen veri girişi yapınız !", vbCritical
Exit Sub
End If
TextBox1.Value = Sheets("VERİ").Range("C2").Value
TextBox2.Value = Sheets("VERİ").Range("D2").Value
TextBox3.Value = Sheets("VERİ").Range("G2").Value
TextBox4.Value = Sheets("VERİ").Range("H2").Value
TextBox5.Value = Sheets("VERİ").Range("I2").Value
TextBox12.Value = Sheets("VERİ").Range("E2").Value
TextBox13.Value = Sheets("VERİ").Range("F2").Value



Sheets("VERİ").Range("C2").Value = TextBox1.Text
Sheets("VERİ").Range("D2").Value = TextBox2.Text
Sheets("VERİ").Range("E2").Value = TextBox12.Text
Sheets("VERİ").Range("F2").Value = TextBox13.Text
Sheets("VERİ").Range("G2").Value = Format((TextBox3.Value), " 0.00%")
Sheets("VERİ").Range("H2").Value = Format((TextBox4.Value), " 0.00%")
Sheets("VERİ").Range("I2").Value = Format((TextBox5.Value), " 0.00%")


End Sub

Mümkünse bir konuda sizlerden yardım istiyorum.

Yukarıdaki kod ile yapmak istediğim

İlk başta veri girişi yapmak
İkinci olarak ta tekrar form açıldığında ise hücrede girilmiş olan verilerin formda ki textboxlara gelmesi.

Teşekkür ederim

 

[cems]

Doğru anlıyorsam datalardan sayfaya yazılacak olanlar altalta değil aynı yere yazılacak. Siz de bunlardan forma gelen verilerde değişiklik yapıp üstüne yazacaksınız .

Bu doğru ise , kodlarınızdaki ikinci bölüm olan

Sheets("VERİ").Range("C2").Value = TextBox1.Text
Sheets("VERİ").Range("D2").Value = TextBox2.Text
Sheets("VERİ").Range("E2").Value = TextBox12.Text
Sheets("VERİ").Range("F2").Value = TextBox13.Text
Sheets("VERİ").Range("G2").Value = Format((TextBox3.Value), " 0.00%")
Sheets("VERİ").Range("H2").Value = Format((TextBox4.Value), " 0.00%")
Sheets("VERİ").Range("I2").Value = Format((TextBox5.Value), " 0.00%")

Kısmını userform_initialize altına alıp end sub ile kapatın. Bu şekilde data userforma açılışta çağırılmış olur.

 

[sirkülasyon]

Allah Razı Olsun.
Saygılarımı sunarım