Copia datos de una hoja en otra hoja

Necesito copiar un cierto rango de datos de hoja1 a hoja2 POR EJEMP

A B C D E F

NOMBRE PUESTO FECHA DESDE HASTA HORAS

DESDE LA A1 HASTA LA F8 PERO NO SIEMPRE SE LLENAN TODAS LAS CELDAS Y LO QUE QUIERO ES COPIAR LAS CELDAS QUE SE ENCUENTREN CON DATOS Y QIE SE COPIEN UNA ABAJO DE OTRA EN OTRA HOJA ESPERO ME PUEDAN AYUDAR GRACIAS

1 Respuesta

Respuesta
1

Te mando mi solución. Ejecuta esta macro y todo listo!

Sub ejemplo()
'por luismondelo
Sheets("hoja1").Select
Range("a1:f1").Copy Destination:=Sheets("hoja2").Range("a1")
Range("a2:f" & Range("a65000").End(xlUp).Row).Copy
Sheets("hoja2").Range("a65000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End Sub

recuerda finalizar la c

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas