agrupar en pdf diferentes hojas de un libro de acuerdo a una tabla indice
Publicado por fabio (2 intervenciones) el 03/03/2023 07:01:58
agrupar en pdf diferentes hojas de un libro de acuerdo a una tabla que contiene los nombres de las hojas y la cantidad de veces que debe ir la hoja, estoy aprendiendo excel y este es mi codigo de partida, disculpen lo primitivo
Sub Imprimir()
Dim Fila As Long
Dim Hoja As String
Dim Cant As Long
With Sheets("Menu").Select
Fila = 3
Hoja = .Cells(Fila, "B")
Cant = .Cells(Fila, "C")
While Hoja <> Empty
While Cant <> Empty
ActiveWindow.SelectedSheets.PrintOut _
Copies:=Cant _
Collate:=True, _
IgnorePrintAreas:=False
Wend
Fila = Fila + 1
Wend
End With
End Sub
Sub Imprimir()
Dim Fila As Long
Dim Hoja As String
Dim Cant As Long
With Sheets("Menu").Select
Fila = 3
Hoja = .Cells(Fila, "B")
Cant = .Cells(Fila, "C")
While Hoja <> Empty
While Cant <> Empty
ActiveWindow.SelectedSheets.PrintOut _
Copies:=Cant _
Collate:=True, _
IgnorePrintAreas:=False
Wend
Fila = Fila + 1
Wend
End With
End Sub
Valora esta pregunta
0