Actualizar textbox con celdas
Buen día, estaría agradecido si me pudieras ayudar con este inconveniente...
Tengo un formulario en donde tengo varios textboxs, lo que necesito es que cada textbox se actualice conforme las selecciones que voy asignándole en el worksheet.
******************************************************************
Ejemplo:
Al seleccionar con el mouse la celda "d5" aparezca inmediatamente en el textbox1 el valor de la celda "d5".
La EXPRESION: TextBox1.Value = ActiveCell.value
sobre la CONDICION: TextBox1_Change()
me entrega el valor de la celda pero hasta que digito algo en el textbox1.
Alguna sugerencia para actualizar el textbox automáticamente cuando selecciono con el mouse o teclado una celda cualquiera.
Muchas Gracias de antemano por tu preciado tiempo!
Tengo un formulario en donde tengo varios textboxs, lo que necesito es que cada textbox se actualice conforme las selecciones que voy asignándole en el worksheet.
******************************************************************
Ejemplo:
Al seleccionar con el mouse la celda "d5" aparezca inmediatamente en el textbox1 el valor de la celda "d5".
La EXPRESION: TextBox1.Value = ActiveCell.value
sobre la CONDICION: TextBox1_Change()
me entrega el valor de la celda pero hasta que digito algo en el textbox1.
Alguna sugerencia para actualizar el textbox automáticamente cuando selecciono con el mouse o teclado una celda cualquiera.
Muchas Gracias de antemano por tu preciado tiempo!
1 Respuesta
Respuesta de Hector Pacheco
1
Exacto compañero, era el comportamiento de la hoja contra el form, muy bien detallada,
Al final me quedo así (Ya que era sobre un form):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UserForm1.Show
On Error Resume Next
UserForm1.TextBox1.Text = Target.Value 'Ejemplo
End Sub
Muchas Gracias! Puedo continuar con mi sistema!
Al final me quedo así (Ya que era sobre un form):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UserForm1.Show
On Error Resume Next
UserForm1.TextBox1.Text = Target.Value 'Ejemplo
End Sub
Muchas Gracias! Puedo continuar con mi sistema!
