Crear Macro que copie ordenado
En un archivo tengo dos hojas de calculo
En la hoja 1
Que copie el rango desde A3 hasta J4
Y que lo pegue en la hoja 2
En el mismo rango A3:J4
Pero que al momento de copiar otra vez el mismo rango lo pegue en otro rango sin borrar el anterior
Que lleve un orden de pegado de arriba hacia abajo
Adjunto imagen Gracias...
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro
Sub Copiar_Rango()
'---
' Por.Dante Amor
'---
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
If h1.Range("A4").Value = "" Then
MsgBox "Falta el NIT", vbCritical
h1.Select
h1.Range("A4").Select
Exit Sub
End If
u2 = h2.Range("A" & Rows.Count).End(xlUp).Row + 2
If u2 = 3 Then u2 = 2
h1.Range("A3:J4").Copy h2.Range("A" & u2)
MsgBox "Rango copiado", vbInformation
End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
