Cita:
Iniciado por mrocf Primero permíteme sugerirte un cambio a tu macro de modo de "reducir a la mitad" tu código:
Código:
TextBox2 = ActiveCell.Offset(0, 1)
TextBox3 = ActiveCell.Offset(0, 2)
TextBox4 = ActiveCell.Offset(0, 3)
Y a partir del cambio anterior, se deduce -rápidamente- lo que deseas realizar:
Código:
ActiveCell.Offset(0, 1) = TextBox2
ActiveCell.Offset(0, 2) = TextBox3
ActiveCell.Offset(0, 3) = TextBox4
La idea es:
1º) Tienes un botón de macro que encuentra el registro y lo despliega en los TEXTBOX (primer conjunto de instrucciones);
2º) Realizas TODOS los cambios que consideres oportuno en TODOS los campos del registro; y
3º) Mediante OTRO botón de macro, trasladas los valores de los TEXTBOX a las celdas correspondientes mediante el segundo conjunto de instrucciones.