¿Como agregar encabezado y pie de página a una plantilla de excel?
Hey que tal!
Dante Amor, aquí la cuarta pregunta.
Que tengas una excelente tarde!
1 Respuesta
Respuesta de Dante Amor
1
Con lo siguiente se ponen los encabezados y los pie de página
j = 14
altohoja = 1
n = 1
arr = 668.25
For i = 2 To h3.Range("B" & Rows.Count).End(xlUp).Row
j = j + 1
If h2.Cells(j, "A").Top >= arr Then
altohoja = altohoja + 49
h1.Rows(45 & ":" & 49).Copy h2.Range("A" & j)
h2.Rows(1 & ":" & 14).Copy h2.Range("A" & altohoja)
j = altohoja + 14
arr = arr + 668.25
End If
h3.Rows(i).Copy h2.Rows(j)
h2.Cells(j, "A") = n
n = n + 1
Next
