Pegar 2 rangos de filas en una columna de un libro diferente
Esta pregunta la dirijo a Dante Amor: Existe un libro llamado "Resultado", en una hoja llamada "Columna"; en esta hoja deben quedar pegados los rangos de dos filas de Hojas diferentes en un libro llamado "Prueba". Adicional se puede presentar que un campo de esos rangos esté vacío, la idea es que no copie el vacío sino que lo omita.
Mil gracias Dante Amor por tu ayuda tan rápida y extraordinaria.
1 Respuesta
H o l a:
Te anexo la macro, en la macro van unos comentarios para que actualices los datos.
El libro "Resultado.xlsx", deberá estar abierto.
Sub CopiarFilas()
'Por.Dante Amor
Application.ScreenUpdating = False
Set l1 = ThisWorkbook
Set h1 = l1.Sheets("Hoja1") 'hoja1
Set h11 = l1.Sheets("Hoja2") 'hoja2
Set l2 = Workbooks("Resultado.xlsx") 'nombre del libro con todo y extensión
Set h2 = l2.Sheets("Columna") 'hoja destino
'
j = 2
h2.Range("A2:B35").ClearContents 'limpia rango destino
For i = Columns("E").Column To Columns("U").Column
If h1.Cells(2, i) <> "" Then
h2.Cells(j, "A") = h1.Name
h2.Cells(j, "B") = h1.Cells(2, i)
j = j + 1
End If
Next
For i = Columns("E").Column To Columns("U").Column
If h11.Cells(2, i) <> "" Then
h2.Cells(j, "A") = h11.Name
h2.Cells(j, "B") = h11.Cells(2, i)
j = j + 1
End If
Next
MsgBox "Proceso terminado"
End Sub
Mil gracias Dante, tengo otra duda... Los libros en vez de llamarse hoja1 y hoja2 se llaman año 2001 y año 2002. Como se haría para que solo copiara el numero y omitiera la palabra año.
mil gracias.
¿No entiendo?
Hola Dante, es decir, que no copie el nombre completo de la hoja en la columna destino. En este caso la hoja Se llamaría Año 2002 y la otra Año 2001. La idea es que se copie solo 2002 y 2001.
muchas gracias
Macro actualizada:
Sub CopiarFilas()
'Por.Dante Amor
Application.ScreenUpdating = False
Set l1 = ThisWorkbook
Set h1 = l1.Sheets("Hoja1") 'hoja1
Set h11 = l1.Sheets("Hoja2") 'hoja2
Set l2 = Workbooks("Resultado.xlsx") 'nombre del libro con todo y extensión
Set h2 = l2.Sheets("Columna") 'hoja destino
'
j = 2
h2.Range("A2:B35").ClearContents 'limpia rango destino
For i = Columns("E").Column To Columns("U").Column
If h1.Cells(2, i) <> "" Then
h2.Cells(j, "B") = h1.Cells(2, i)
j = j + 1
End If
Next
For i = Columns("E").Column To Columns("U").Column
If h11.Cells(2, i) <> "" Then
h2.Cells(j, "A") = Right(h1.Name, 4)
h2.Cells(j, "B") = h11.Cells(2, i)
j = j + 1
End If
Next
MsgBox "Proceso terminado"
End Sub
Eres muy teso en esto, mil gracias. Una ultima jejej... Si llegasen a existir en cada hoja 2 rangos de filas por ejemplo (E2:U2) y (Z2:AX2) como se pegarían en la columna?
saludos y gracias de nuevo
Con gusto te sigo ayudando con todas las peticiones que necesites, pero crea una pregunta nueva por cada una.
