Macro copiar y pegar hasta ultima celda libre
Hola a quien pueda ayudarme, tengo un libro que tiene dos columnas A y B, en la columna A pego determinados datos, y en la celda B2 hay una fórmula que quiero repetir hasta la ultima fila libre de la columna B, (que coincida con la ultima fila libre de datos de la columna A ) Desde, ya, muchas gracias
1 respuesta
Respuesta de parmijo
1
Si sabes algo de macro prueba con el siguiente código:
Sub Macro1()
' por pedro
ult = Range("a65536").End(xlUp).Row
Range("B2").Select
Selection.Copy
Range(Cells(2, 2), Cells(ult, 2)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.End(xlDown).Select
End Sub
Sub Macro1()
' por pedro
ult = Range("a65536").End(xlUp).Row
Range("B2").Select
Selection.Copy
Range(Cells(2, 2), Cells(ult, 2)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.End(xlDown).Select
End Sub
