Actualizar datos de un TextBox al insertar datos en otro TextBox
Tengo el TextBox1 que me envía los datos a la celda A17 asi:
Sheets("Hoja1").Range("A17").Value = TextBox1.Text
Y los texbox2, TextBox3 TextBox4 que me llaman los datos de las celdas B17, C17 y D17.
TextBox2.Text = Sheets("Hoja1").Range("B17").Value
TextBox3.Text = Sheets("Hoja1").Range("c17").Value
TextBox4.Text = Sheets("Hoja1").Range("D17").Value
Las celdas B17, C17 y D17. En el libro de Excel tienen las formulas buscarV que se actualizan cuando ingreso un valor valido en el TextBox1. Pero los texbox 2,3 y 4 no se actualizan automáticamente.
Y esto es lo que quiero que cuando ingrese valores en el TextBox1 los otros TextBox se actualicen automáticamente.
1 respuesta
H o l a : Para que se actualicen automáticamente, tienes que poner el código en el evento Change del textbox1, de esta forma:
Private Sub TextBox1_Change()
'Act.Por.Dante Amor
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
Sheets("Hoja1").Range("A17").Value = TextBox1.Text
'
On Error Resume Next
TextBox2.Text = Sheets("Hoja1").Range("B17").Value
TextBox3.Text = Sheets("Hoja1").Range("C17").Value
TextBox4.Text = Sheets("Hoja1").Range("D17").Value
End Sub'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
