Consecutivo mixto en 3 celdas a la ves
"para Dante Amor"
Buenas Tardes Viejo, espero todo marche bien, solicito tu ayuda para ajustar aun más una plantilla
Tengo este código anteriormente facilitado
ini = Val(h3.Range("B3").Value)
fin = Val(h3.Range("C4").Value)
If ini = "" Or ini = 0 Or Not IsNumeric(ini) Then
MsgBox "Pon el número inicial"
Exit Sub
End If
If fin = "" Then
fin = ini
For i = 3 To h1.Range("A" & Rows.Count).End(xlUp).Row
If Val(h1.Cells(i, "A").Value) > fin Then Exit For
If Val(h1.Cells(i, "A").Value) >= ini And Val(h1.Cells(i, "A").Value) <= fin Then
h2.Range("C2") = h1.Cells(i, "A")
h2.PrintOut
End If
Aquí recorre toda la columna A usando un rango establecido en otra hoja y llenando una plantilla
Todo perfecto
te lo agradezco . . .
Me gustaría llenar 3 plantillas a la ves
Todo queda igual solo necesito aquí
H2.Range("C2") = h1. Cells(i, "A") sea por ejemplo C2, C15, C23
H2. PrintOut
No se si logro transmitir lo que pienso
Así puedo tener 3 cintillos en una sola página
Agradezco el tiempo que te tomas en atendernos a todos
Muchas gracias
Te dejo una imagen más o menos
