di geri21 » 25/08/14 09:10
Ciao Anthony, ciao Ricky, ciao Flash,
mi fa piacere risentirVi.
Per scaricare il file proposto o per l'invio del progetto dovreste essere
più generosi nel fornire info passo-passo, altrimenti non saprei come fare !!!
Ho iniziato la modifica e di seguito riporto la prima necessità:
Ad un pulsante posto sulla scheda “TORNEO” del progetto dovrei assegnare una macro che soddisfi le seguenti condizioni:
-Da scheda CLS.ca stampare la pag.(1fgl) da K1 a T35 se la cella M6 è diversa da “”
- stampare le pag.(2fgl) da K1 a T70 se la cella M41 è diversa da “”
- stampare le pag.(3fgl) da K1 a T105 se la cella M76 è diversa da “”
- stampare le pag.(4fgl) da K1 a T140 se la cella M111 è diversa da “”.
Grazie
Per maggiore chiarezza incollo la macro da sostituire:
Sub Macro8()
'
' Macro8 Macro
' CLS.ca 1° T.
'ActiveSheet.PageSetup.PrintArea = "$K$1:$T$35"
'
Sheets("CLF.ca").Select
Range("K1:T35").Select
If Range("M41") <> "" Then
ActiveSheet.PageSetup.PrintArea = "$K$1:$T$70"
Else
ActiveSheet.PageSetup.PrintArea = "$K$1:$T$35"
End If
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Sheets("TORNEO").Select
End Sub