¿Cómo copiar celdas de un rango determinado a otra hoja solo si tienen datos...?
Hola amigos necesito de su ayuda. Como puedo copiar solo las celdas que tienen datos a otra hoja2. Y que estos datos que pegue en la otra hoja2 vayan hacia abajo, es decir, si ingreso nuevos datos, que vaya empujando los datos anteriores hacia abajo.???
Los datos que puedo ingresar en la hoja1 se encuentran en el rango A2:A15, me copia solo aquellos que no están vacíos a la hoja 2, en la columna A a partir de A2.
Gracias por su tiempo!
1 Respuesta
Respuesta de Luis Mondelo
1
Te mando mi solución: Tenemos los datos en hoja1 en el rango A2:A15.
Ejecuta esta macro y listo!
Sub prueba()
'por luismondelo
Sheets("hoja1").Select
Range("a2").Select
Do While ActiveCell.Row < 16
If ActiveCell.Value <> "" Then
Sheets("hoja2").Range("a2").Insert
ActiveCell.Copy
Sheets("hoja2").Range("a2").PasteSpecial Paste:=xlValues
End If
ActiveCell.Offset(1, 0).Select
Loop
End Subrecuerda finalizar
