stampa di tutti i fogli di una cartella sotto condizioni

[luca62]

Salve a tutti, sto cercando di fare questo: creare una macro per una cartella di lavoro , che mi stampi l'area di stampa di tutti i fogli attivi. Ad esempio ho foglio 1; foglio 2....foglio n non vuoti e voglio stampare su uno stesso foglio (o su più fogli, se sono troppi):
Ad esempio sul foglio stampato avrò partendo dall'alto , l'area di stampa del foglo1, poi l'area di stampa del foglio 2 etc...
è possibile?

[Anthony47]

Se ho capito bene, la risposta e' che non si puo' fare in modo diretto. Bisognerebbe creare un foglio di servizio con in sequenza tutte le aree di stampa di tutti i fogli, e poi stampare il contenuto di questo foglio.
Ma il tutto va facilmente in crisi se qualche area di stampa e' piu' larga delle altre.

Se alleghi un file di prova, dove sono presenti le varie condizioni che hai mensionato, allora possiamo provarci; che sia utile non so anticiparlo...

Ciao

[luca62]

ottimo suggerimento! sarebbe l'ideale creare un foglio riepilogo ,allora ho provato a creare un foglio riepilogo con l'aiuto del registratore macro:
Sub riepilogo()
'
' riepilogo Macro
'

'
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("BASE").Select
Range("Y12:AO23").Select
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("riepilogo").Select
Range("A16").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("+5150T+5200P+9010P ").Select
ActiveWindow.SmallScroll Down:=3
Range("Y6:AK10").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("riepilogo").Select
Range("A23").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=3
End Sub

che mi funziona,il problema è che il nome del foglio dove vado a prendere i dati da inserire nel foglio riepilogo, mi cambia, e dovrei dire :
copia l'intervallo ("Y12:AO23") del primo foglio "BASE" e mettilo sul foglio "Riepilogo" a partire da A2, poi accodaci, l intervallo (("Y6:AK10") del secondo foglio a partire da A16, poi lo stesso intervallo ("Y6:AK10")
del 3^ foglio a partire da A22 ,poi accodaci l'intervallo del 4^ foglio ("Y6:AK10") a partire da A 28 e così via per tutti i fogli attivi del foglio, meno il foglio riepilogo sul quale vado a scrivere.
IN pratica , a parte la prima "copiatura" dal foglio chiamato base (e sarà sempre chiamato base) dell'intervallo "y12;AO23" devo copiare per i fogli da 2 a . n lo stesso intervallo (Y6;Ak10) accodandoli via via partendo da A16, A22,A28......Ai+6. spero di averti fatto capire!!!

[Anthony47]

Potresti provare con questo codice:

Codice: Seleziona tutto

Sub Riep()
Dim I As Long, shCnt As Long
'
Sheets("riepilogo").Range("A2").Resize(1000, 100).ClearContents
For I = 1 To Worksheets.Count
    If UCase(Sheets(I).Name) <> "RIEPILOGO" Then
        If UCase(Sheets(I).Name) = "BASE" Then
            Sheets(I).Range("Y12:AO23").Copy Destination:=Sheets("riepilogo").Range("A2")
        Else
            Sheets(I).Range("Y6:AK10").Copy Destination:=Sheets("riepilogo").Range("A16").Offset(shCnt * 6, 0)
            shCnt = shCnt + 1
        End If
    End If
End If
Sheets("riepilogo").Select
End Sub


Fai sapere…

[luca62]

mi da errore End if senza blocco if (evidenziato l'ultimo End if)

[wallace&gromit]

Inserisci Next I al posto dell'ultimo End if... e segnati uno dei rarissimi refusi di Anthony

[Anthony47]

Inserisci Next I al posto dell'ultimo End if

Eh gia'...