Copiar de una hoja o otra hoja
Que tal espero me puedan ayudar, lo que quiero hacer tengo en la hoja1 un rango por ejemplo A10:A20 donde voy a capturar una descripción de productos pero en ese rango no siempre se llena todo hay veces que son 3 filas o aveces 5 filas etc. Cual es la instrucción en visual para copiar solamente las filas que tienen datos a la hoja 2
1 Respuesta
Te doy 2 opciones
Sub copiar()
'copiar a un rango específico
u = Sheets("Hoja1").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Hoja1").Range("A10:A" & u).Copy Sheets("Hoja2").Range("A10")
End Sub
Sub cop2()
'copiar a la siguiente fila disponible
u1 = Sheets("Hoja1").Range("A" & Rows.Count).End(xlUp).Row
u2 = Sheets("Hoja2").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("Hoja1").Range("A10:A" & u1).Copy Sheets("Hoja2").Range("A" & u2)
End Sub
