Forum di Excel e VBA, per condividere esperienze e risolvere problemi su:
Excel, Word, Access, Power Point, Microsoft Office, macro, Visual Basic e Visual Studio.
Condizione if per stama
- Hai un problema con Excel?
Condizione if per stama
di Caste data: 08/02/2010
Ciao. sono un utente assai inesperto e mi sono, mio malgrado, infilato in un lavoro dal quale non riesco ad uscire; vorrei, pertanto, chiedervi una mano.
in una cartella di lavoro, che chiameremo "database", dovrei mettere, nel foglio di lavoro "modulo" un bottone che azioni una stampa condizionata dal contenuto delle celle h10 e h11 del foglio stesso. se il valore delle celle h10 e h11 é "si", allora dovrei stampare i fogli di lavoro "foglio 1" e "foglio 3"; altrimenti il "foglio 2" ed il "foglio 4".
c'è qualcuno che la possibilità di darmi una mano?
ciao e grazie
Condizione if per stama
di Caste data: 08/02/2010
Ciao. sono un utente assai inesperto e mi sono, mio malgrado, infilato in un lavoro dal quale non riesco ad uscire; vorrei, pertanto, chiedervi una mano.
in una cartella di lavoro, che chiameremo "database", dovrei mettere, nel foglio di lavoro "modulo" un bottone che azioni una stampa condizionata dal contenuto delle celle h10 e h11 del foglio stesso. se il valore delle celle h10 e h11 é "si", allora dovrei stampare i fogli di lavoro "foglio 1" e "foglio 3"; altrimenti il "foglio 2" ed il "foglio 4".
c'è qualcuno che la possibilità di darmi una mano?
ciao e grazie
di Enzo (utente non iscritto) data: 08/02/2010
Istruzione molto spartana ma e' per farti capire il giro che fa per stampare in base a quello che hai richiesto
altrimenti si puo' fare diversamente
Application.ScreenUpdating = False If Sheets("MODULO").Range("H10") = "SI" And Sheets("MODULO").Range("H11") = "SI" Then Sheets("Foglio1").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("Foglio3").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Else Sheets("Foglio2").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("Foglio4").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Application.ScreenUpdating = True
di Caste data: 08/02/2010
Grazie mille. sei stato molto gentile.
a dire il vero non conosco il significato di "collate:= true"; però vedo che funziona; quindi va bene così.
grazie ancora.
di Enzo (utente non iscritto) data: 09/02/2010
Puoi anche toglierlo
- Vuoi Approfondire?
