Jump to content

Pasar datos de celda a textbox


Recommended Posts

Private Sub TextBox1_Change()
ActiveSheet.Range("C6").Value = TextBox1.Text
TextBox3 = Range("C8").Text
End Sub

Private Sub TextBox2_Change()
ActiveSheet.Range("C7").Value = TextBox2.Text
TextBox3 = Range("C8").Text
End Sub

Private Sub CommandButton1_Click()
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox1.SetFocus
End Sub

 

Link to comment
Share on other sites

×
×
  • Create New...

Important Information

Privacy Policy