Userform veri çekme

[igultekin2000]

iyi günler;

Sayfa3(BLOK_KLASIK) çalışma sayfasından USERFORM1' üzerinde düzeltme yapmak için veri çekmek istiyorum. Bazı örnekleri inceledim kendi çalışmama uyarlayamadım. Kullandığınm uygulama
bunun üzerinden nasıl nasıl bir düzeltme veya yeni bir makro nasıl yazılabilir.

Private Sub CommandButton2_Click()
Sheets("BLOK_KLASIK").Select 'userform excel kayıt
Range("B3") = TextBox1
Range("B4") = TextBox4
Range("B5") = TextBox2
Range("B6") = TextBox5
Range("B7") = TextBox3
Range("B8") = TextBox6
Range("B9") = TextBox7
Range("B10") = TextBox8
Range("B11") = TextBox9
Range("B12") = TextBox10
Range("B2") = TextBox11

MsgBox ("Kayıt Tamamlandı")

End Sub

kayıt yaptığım makro budur. Teşekkürler.

 

[bluefalcon]

Merhaba,
Range("B3") = TextBox1
Range("B4") = TextBox4
Range("B5") = TextBox2
Range("B6") = TextBox5
Range("B7") = TextBox3
Range("B8") = TextBox6
Range("B9") = TextBox7
Range("B10") = TextBox8
Range("B11") = TextBox9
Range("B12") = TextBox10
Range("B2") = TextBox11

kısmını yer değiştirerek denerseniz userform a aktarır, örneğin,

TextBox1=Range("B3")
TextBox4=Range("B4")

 

[igultekin2000]

Merhaba,
Range("B3") = TextBox1
Range("B4") = TextBox4
Range("B5") = TextBox2
Range("B6") = TextBox5
Range("B7") = TextBox3
Range("B8") = TextBox6
Range("B9") = TextBox7
Range("B10") = TextBox8
Range("B11") = TextBox9
Range("B12") = TextBox10
Range("B2") = TextBox11

kısmını yer değiştirerek denerseniz userform a aktarır, örneğin,

TextBox1=Range("B3")
TextBox4=Range("B4")

Teşekkürler, Tek sayfa üzerinde çalışacağım için pratik bir çözüm oldu. İyi çalışmalar.