Pegar obviando blancos...
Hola JC, espero que estés muy bien. Te tengo una duda, que espero puedas resolver.
Quiero
Copiar un rango de datos desde una sheet a otra, pero en la primera
sheet hay filas de datos que están vacías (las cuales no quiero pegar),
estas filas se encuentran tanto entremedio de otras filas con datos,
como al final. Lo que he hecho yo es lo siguiente:
Sub copypaste()
Sheets("FROM").Select
Range("A2:D7").Select
Selection.Copy
Sheets("TO").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=False
Range("C11").Select
End Sub
Lamentablemente, me sale el error 1004 "Error en el método de la clase Range", en la parte del código ennegrecida. ¿A qué se refiere el error? Hay alguna manera de solucionarlo, o si es posible, de realizar lo que quiero de otra (¿y por lo tanto mejor) manera? Gracias por tu tiempo JC, saludos.
Quiero
Copiar un rango de datos desde una sheet a otra, pero en la primera
sheet hay filas de datos que están vacías (las cuales no quiero pegar),
estas filas se encuentran tanto entremedio de otras filas con datos,
como al final. Lo que he hecho yo es lo siguiente:
Sub copypaste()
Sheets("FROM").Select
Range("A2:D7").Select
Selection.Copy
Sheets("TO").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=False
Range("C11").Select
End Sub
Lamentablemente, me sale el error 1004 "Error en el método de la clase Range", en la parte del código ennegrecida. ¿A qué se refiere el error? Hay alguna manera de solucionarlo, o si es posible, de realizar lo que quiero de otra (¿y por lo tanto mejor) manera? Gracias por tu tiempo JC, saludos.
1 Respuesta
Respuesta de Juan Carlos González Chavarría
1
Tienes que eliminar estas líneas:
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
La primera instrucción le dice a Excel que vaya a la última celda hacia abajo y la que sigue que baje una fila más, lo cual no tiene lógica porque quieres pegar los datos en A1.
[email protected]
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
La primera instrucción le dice a Excel que vaya a la última celda hacia abajo y la que sigue que baje una fila más, lo cual no tiene lógica porque quieres pegar los datos en A1.
[email protected]
