Imprimir hojas según valores de celdas
Hola. Me gustaría poder imprimir una serie de pestañas según el valor de las celdas de otra pestaña. Por ejemplo, si tengo un archivo de excel con 50 pestañas, me gustaría desde una de las pestañas poder indicar las que quiero imprimir, por ejemplo la 3, 5, 15, 33, 48 y 50; que serán los valores que tienen las celdas desde la B2 a la B7. Pero pudiéndose imprimir cualquier numero de pestañas. Espero haberme explicado bien.
Gracias, un saludo.
Gracias, un saludo.
1 respuesta
Respuesta de tavopz
1
Pienso que una macro para esto podría ser como sigue:
Sub imprimir()
Dim c As Range
For Each c In Range("Imprimir")
Sheets(c.Value).Select
ActiveSheet.PrintOut Copies:=1, Collate:=True
Next c
End Sub
Para que te funcione, deberías crear un rango en alguna parte del libro donde coloques los nombres de las hojas que deseas imprimir. A ese rango le colocas el nombre de "Imprimir".
Sub imprimir()
Dim c As Range
For Each c In Range("Imprimir")
Sheets(c.Value).Select
ActiveSheet.PrintOut Copies:=1, Collate:=True
Next c
End Sub
Para que te funcione, deberías crear un rango en alguna parte del libro donde coloques los nombres de las hojas que deseas imprimir. A ese rango le colocas el nombre de "Imprimir".
