Incluir en columna 2 rangos diferentes
Necesito otra cosita más si es posible que me ayudes.
Aparte del rango que te indique (U8:AX8), existe otro (BP8:DL8).
Como quedaría la macro donde la idea es recorrer estos dos rangos por cada Hoja y poner en la columna Conceptos primero el rango (U8:AX) y abajo EL (BP8:DL8)
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo el código actualizado.
'Crear hoja conceptos
'Por. Dante Amor
Dim l2, h2, h, u, c
Set l2 = Workbooks(nuevLib)
l2.Sheets.Add after:=l2.Sheets(l2.Sheets.Count)
l2.Sheets(l2.Sheets.Count).Name = "Conceptos"
Set h2 = l2.Sheets("Conceptos")
h2.[A1] = "AÑO"
h2.[B1] = "CONCEPTO"
For Each h In ThisWorkbook.Sheets
If Left(h.Name, 2) = "HT" Then
For c = Columns("U").Column To Columns("AX").Column
If h.Cells(8, c) <> "" Then
u = Range("A" & Rows.Count).End(xlUp).Row + 1
h2.Range("A" & u) = Right(h.Name, 4)
h2.Range("B" & u) = h.Cells(8, c)
End If
Next
'BP8:DL8
For c = Columns("BP").Column To Columns("DL").Column
If h.Cells(8, c) <> "" And h.Cells(8, c) <> "." And _
UCase(h.Cells(8, c)) <> "X" Then
u = Range("A" & Rows.Count).End(xlUp).Row + 1
h2.Range("A" & u) = Right(h.Name, 4)
h2.Range("B" & u) = h.Cells(8, c)
End If
Next
End If
Next
'Fin.Por.Dante AmorS a l u d o s
