Macro para copiar lineas que contengan información
Hola a todos, estoy bloqueado, haber si alguien puede echarme una mano. Ante todo gracias.
Necesito una macro para copiar y pegar en otra hoja 15 lineas pero no siempre las ultimas tienen información, y que lo pegue en otra hoja en la ultima fila libre.
Esta es la macro que tengo, lo hace bien pero al seleccionar desde "A10 a G24 cuando lo pega, pega todas las filas y si no tienen datos cuando pego el bloque me deja los espacios, y el bloque siguiente ,entonces lo pega 3 o 4 filas por debajo de la ultima. La hoja de destino la convertiré en una tabla dinámica y necesito que no queden filas en blanco .
Muchas gracias de antemano
Sub PRUEBA_GUARDAR_RECIBO_LIBROS()
Dim UltLinea As Long
Sheets("RECIBO LIBROS").Range("A10:G24").Copy
Sheets("Hoja1").Activate
UltLinea = Range("A" & Rows.Count).End(xlUp).Row + 1
ActiveCell.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, Transpose:=False, SKIPBLANKS:=True
Application.CutCopyMode = False
Sheets("RECIBO LIBROS").Activate
Sheets("RECIBO LIBROS").Select
End Sub
1 respuesta
Prueba con esta macro
Sub PRUEBA_GUARDAR_RECIBO_LIBROS()
'Mod.Por.DAM
Application.ScreenUpdating = False
For i = 10 To 24
If Range("A" & i) = "" Then Exit For
Sheets("RECIBO LIBROS").Range("A" & i & ":G" & i).Copy
u = Sheets("Hoja1").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("Hoja1").Range("A" & u).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Next
Application.CutCopyMode = False
End Sub Saludos.Dante Amor
Si es lo que necesitas.
