Estoy intentando una macro con botón para que pegue en otra hoja la selección, ¿Cómo hago?
Hola, estoy probando cosas pero no me sale, y quería ver si algún experto me orienta:
Actualmente tengo una hoja "registro" con datos que empiezan desde A3 a P3 y siguen hasta la fila 20.000. He insertado un botón "asignar" para meter la macro. Quiero seleccionar una fila de A a P y que cuando clique el botón "asignar" me copie en una hoja "JRG" la selección y si vuelvo a "registro" y hago otra selección, me lo vuelva a pegar en "JRG" pero debajo y así sucesivamente... Hice esto, pero creo que ando bastante perdido... Alguien me echa una mano?
Sub Rectángulo16_AlHacerClic()
Range("A1:i60000").Select
ActiveCell.CurrentRegion.Select
Selection.Copy
Sheets("JRG").Select
Range("A3").Select
While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
Wend
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A2").Select
End Sub
1 Respuesta
Si vas a seleccionar una fila (desde A:P) y luego presionar el botón, las instrucciones son éstas:
Sub Rectángulo16_AlHacerClic()
'para encontrar la primer fila libre según col A
libre= sheets("JRG").Range("A65536").End(xlup).Row +1
Selection.Copy Destination:=Sheets("JRG").Range("A" & libre)
Range("A2").Select
End Sub
PD) Tampoco necesitas contar con una variable. La uso para que quede un poco más claro, pero podrías indicar el destino de este modo:
Sub Rectángulo16_AlHacerClic()
Selection.Copy Destination:=Sheets("JRG").Range("A" & sheets("JRG").Range("A65536").End(xlup).Row +1)
Range("A2").Select
End SubSdos y no olvides finalizar la consulta.
PD) En la sección Macros de mi sitio podés encontrar otras instrucciones básicas.
Elsa
