Hola de nuevo,
Dando una vuelta al tema, he interpretado que quizá la solución que buscabas era otra. Si lo que buscabas era aflorar el concepto 'folio' partiendo del resto de variables, quizá el archivo adjunto te dé una idea de cómo abordar la solución.
He corregido algunos importes, para confirmar que la asignación recoja los resultados más probables.
Saludos,
Base 05 (C).xlsx
Por
Victor7, · publicado
BUENAS TARDES A TODOS.
AQUI DENUEVO CON UN GRAN PROBLEMA PARA MIIIIIIIIIIII.
NECESITO DE SU AYUDA, TENGO UNA HOJA EN EXCEL QUE SE IMPRIME DOS VECES Y NECESITO QUE EN CADA UNA SE IMPRIMA UN PIES DE PAGINA DISTINTO
EN UNA EL PIES DE PAGINA DIGA " COPIA" Y EN LA OTRA "ORIGINAL"
ESTE ES EL MACRO QUE USO PARA IMPRIMIR
Sub Imprime_horarios()
Application.ScreenUpdating = False
For Each pestaña In Worksheets
If pestaña.Name = "nombres" Then GoTo otra:
pestaña.Activate
If Range("d6") <> 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=2
pestaña.PrintOut
End If
otra:
Next pestaña
Sheets("nombres").Activate
Application.ScreenUpdating = True
End Sub
DENTRO DE ESTE MISMO MACRO NECESITO QUE SE PUEDA PONER EL PIES D EPAGINA