Macro copiar pegar y borrar
Necesito una macro que copie las celdas seleccionadas, luego las pegue una columna a la derecha y por ultimo se regrese a borrar las celdas que copio.
Esto se puede hacer con la grabadora de macros pero... Necesito que lo haga para la celdas que yo selecciono cada vez que necesito de estas funciones. La grabadora de macros me deja un rango fijo y así no me sirve
Tengo un archivo de cerca de 8000 lineas y esta función la realizo a todo lo largo de la hoja, es muy tardado y me gustaría simplificar el trabajo. Gracias de antemano
Les dejo lo que grabe en la grabadora
Sub Macro3
Selection.Copy
Range("G3694:G3695").Select
ActiveSheet.Paste
Range("F3694:F3695").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub
Esto se puede hacer con la grabadora de macros pero... Necesito que lo haga para la celdas que yo selecciono cada vez que necesito de estas funciones. La grabadora de macros me deja un rango fijo y así no me sirve
Tengo un archivo de cerca de 8000 lineas y esta función la realizo a todo lo largo de la hoja, es muy tardado y me gustaría simplificar el trabajo. Gracias de antemano
Les dejo lo que grabe en la grabadora
Sub Macro3
Selection.Copy
Range("G3694:G3695").Select
ActiveSheet.Paste
Range("F3694:F3695").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub
1 respuesta
Respuesta de Elsa Matilde
1
Te dejo la rutina que necesitas. No olvides finalizar la consulta si el tema quedó resuelto. Ya tenés 1 sin cerrar, con un historial así nadie te responderá en el futuro.
Sub Macro3()
Selection.Copy Destination:=Selection.Range("A1").Offset(0, 1)
Selection.ClearContents
Application.CutCopyMode = False
End Sub
Sub Macro3()
Selection.Copy Destination:=Selection.Range("A1").Offset(0, 1)
Selection.ClearContents
Application.CutCopyMode = False
End Sub
