Inicio > Ingeniería Informática > javierdr > imprimir libro excel si una celda tiene tal valor

imprimir libro excel si una celda tiene tal valor

Experto:
Usuario:
Fecha: 20/09/2008
Valoración: (4,00 sobre 5) Categoría: Ingeniería Informática
18/09/2008
helwah, usuario preguntando en Ingeniería Informática
Usuario
me puedes ayudar con lo siguiente?
tengo un libro de excel con aprox. 100 pestañas, estas hojas se alimentan mes a mes con datos volcados de una plantilla, por lo q al finalizar la liquidacion no todas tendran datos.
lo q necesito es una macro q asignaré a un boton para q imprima solo las hojas q tengan un valor en una determinada casilla, las q estén en 0 es pq no han tenido movimiento ese mes, no las quiero imprimir
la pregunta sería algo como: si E48=0, no imprimir esa hoja, (la casilla E48 es el resultado de una sumatoria de la columna E)
desde ya muchas gracias
20/09/2008
helwah, experto respondiendo en Ingeniería Informática
Experto
Tal y como lo veo, lo mejor es colocar un botón en la página primera, por ejemplo, y añadir el siguiente código en el evento click.
Private Sub CommandButton1_Click()
Dim totalhojas As Integer
totalhojas = ThisWorkbook.Sheets.Count
For i = 1 To totalhojas
If Sheets(i).Range("E48") <> 0 Then
Sheets(i).PrintOut
End If
Next
Más o menos viene a recorrerse cada una de las hojas, comprobar que en la celda E48 hay un valor diferente de 0, y si es así la imprime con los valores por defecto.
Espero que te sirva, aunque ya te aviso de que la programación no es lo mío.
Saludos.
End Sub
20/09/2008
helwah, usuario preguntando en Ingeniería Informática
Usuario
te agradezco muchisimo tu tiempo y atencion. la probare y ya con la idea basica si hay algo q modificarle me arreglare
Enlaces patrocinados