¿Pasar un textbox a una celda en excel?
Hola buenas tardes
Me gustaría saber como paso 3 textbox de una userform a las celdas b86, c86, ¿d86 y que cada vez que de click al botón se vaya guardando consecutivamente es decir ahora b87, c87, d87?
Me gustaría saber como paso 3 textbox de una userform a las celdas b86, c86, ¿d86 y que cada vez que de click al botón se vaya guardando consecutivamente es decir ahora b87, c87, d87?
1 Respuesta
Respuesta de macros_excel
1
Pega el siguiente código en el botón
'Range("b65536") nos lleva a la ultima fila de y nos posiciona en la columna b
'End(xlup) nos regresa hasta la primera fila con datos de abajo hacia arriba de la columna b
'Offset(1,0).select nos baja una fila hacia anajo en la misma columna
Range("b65536").end(xlup).Offset(1,0).select
'Pone el valor del textbox1 en la celda activa
ActiveCell.Value = Textbox.value
'Pone el valor del textbox2 en una celda a la derecha de la celda activa
ActiveCell.offset(0,1).Value = Textbox2.Value
'pone el valor del textbox3 en dos celdas a la derecha de la celda activa
ActiveCell.Offset(0,2).Value = TextBox3.Value
'Manda un mensaje de registro Exitoso
MsgBox("Registro Exitoso")
Si piensa que te he ayudado apoyame haciendo una donación aquí
https://www.paypal.com/cgi-bin/webscr?cmd=_s-xclick&hosted_button_id=E4RFCUEPYQH66
Para saber más visita mi sitio:
'Range("b65536") nos lleva a la ultima fila de y nos posiciona en la columna b
'End(xlup) nos regresa hasta la primera fila con datos de abajo hacia arriba de la columna b
'Offset(1,0).select nos baja una fila hacia anajo en la misma columna
Range("b65536").end(xlup).Offset(1,0).select
'Pone el valor del textbox1 en la celda activa
ActiveCell.Value = Textbox.value
'Pone el valor del textbox2 en una celda a la derecha de la celda activa
ActiveCell.offset(0,1).Value = Textbox2.Value
'pone el valor del textbox3 en dos celdas a la derecha de la celda activa
ActiveCell.Offset(0,2).Value = TextBox3.Value
'Manda un mensaje de registro Exitoso
MsgBox("Registro Exitoso")
Si piensa que te he ayudado apoyame haciendo una donación aquí
https://www.paypal.com/cgi-bin/webscr?cmd=_s-xclick&hosted_button_id=E4RFCUEPYQH66
Para saber más visita mi sitio:
