
COmo colocar un boton automaticamente y copiar texto a otra casilla
Publicado por Juan286 (21 intervenciones) el 08/07/2012 13:55:09
Me explico tengo dos hojas en la hoja uno capturo los datos de la personas
Folio
Nombre
Direccion
etc
Enla hoja dos tengo un boton que usa para guardar la informacion algo asi como respaldo de lo que e capturado, pero ahora quiero que al momento de darle clic en guardar ademas de que copie los datos de la hoja 1 tambien me genere un boton enla ultima casilla o una lista desplegable que me permita copiar cierta informacion o casilla a la hoja1
Este es un ejemplo del codigo que usas para copiar los datos de la hoja 1 a la 2
Sub GUARDAR_DATOS()
Range("A2").Select
'bajamos hasta encontrar casilla vacia
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
'grabamos datos
ActiveCell = Hoja6.Range("b7").Value
ActiveCell.Offset(0, 1) = Hoja6.Range("b8").Value
'copiamos a la hoja 2
End Sub
Como esta muy extenso solo coloque eso
de antemano gracias
Folio
Nombre
Direccion
etc
Enla hoja dos tengo un boton que usa para guardar la informacion algo asi como respaldo de lo que e capturado, pero ahora quiero que al momento de darle clic en guardar ademas de que copie los datos de la hoja 1 tambien me genere un boton enla ultima casilla o una lista desplegable que me permita copiar cierta informacion o casilla a la hoja1
Este es un ejemplo del codigo que usas para copiar los datos de la hoja 1 a la 2
Sub GUARDAR_DATOS()
Range("A2").Select
'bajamos hasta encontrar casilla vacia
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
'grabamos datos
ActiveCell = Hoja6.Range("b7").Value
ActiveCell.Offset(0, 1) = Hoja6.Range("b8").Value
'copiamos a la hoja 2
End Sub
Como esta muy extenso solo coloque eso
de antemano gracias
Valora esta pregunta


0