Butonala Text box açarak veri aktarımı

[aboztepe]

EKTEKİ EXCEL SAYFAMI İNCELEMENİZİ İSTİYORUM

 

[xxrt]

Sorunu ikitürlü anladım.
1.Hücreye yazdığın dğerleri textboxlara getirmek.

Private Sub UserForm_Initialize()
TextBox1.Text = Range("b1").Text
TextBox2.Text = Range("b2").Text
TextBox3.Text = Range("b3").Text
TextBox4.Text = Range("b4").Text
TextBox5.Text = Range("b5").Text
End Sub

2.TextBpxa Yazdığın değerleri İlgili hücrelere aktarmak.

Private Sub CommandButton1_Click()
Range("b1").Select
ActiveCell.Formula = TextBox1
Range("b2").Select
ActiveCell.Formula = TextBox2
Range("b3").Select
ActiveCell.Formula = TextBox3
Range("b4").Select
ActiveCell.Formula = TextBox4
Range("b5").Select
ActiveCell.Formula = TextBox5
End Sub

Dosyan ektedir.