Condividi:        

excel 2013 - da 1 colonna a + colonne

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

excel 2013 - da 1 colonna a + colonne

Postdi femon » 26/04/18 15:58

Salve a tutti, ho cercato sul forum, ma non ho trovato risposta a questo problema:

Ho un file excel con 1 colonna lunga circa 2200 righe, vorrei stamparla su dei fogli A4 orizzontali in modo da avere la colonna lunga distribuita su più colonne nello stesso foglio (circa 15 colonne) ed ogni colonna lunga max 45 righe in modo da stampare al max 4 fogli.
E' possibile?
Grazie mille per l'aiuto.
Federico.
femon
Utente Senior
 
Post: 101
Iscritto il: 12/03/14 18:51

Sponsor
 

Re: excel 2013 - da 1 colonna a + colonne

Postdi Anthony47 » 26/04/18 23:25

Prova con questa macro:
Codice: Seleziona tutto
Sub ToManyCols()
Dim I As Long, MaxR As Long, MaxC As Long, SList As Range
Dim J As Long, K As Long, PagN As Long, lEnd As Boolean
'
MaxR = 45                   '<<< Le righe compilate per pagina
MaxC = 5                    '<<< Le colonne compilate per pagina
Set SList = Range("B2")     '<<< La cella dove comincia l'elenco
'
Sheets.Add after:=ActiveSheet
For PagN = 0 To 100
    For I = 0 To MaxC - 1
        SList.Offset(MaxR * (I + PagN * MaxC), 0).Resize(MaxR, 1).Copy _
           Cells(1 + (MaxR + 2) * PagN, I + 1)
        If Application.WorksheetFunction.CountA(SList.Offset(MaxR * (I + PagN * MaxC), 0).Resize(MaxR, 1)) = 0 Then
            lEnd = True
            Exit For
        End If
    Next I
    ActiveSheet.HPageBreaks.Add before:=Cells((MaxR + 2) * (PagN + 1), 1)
    If lEnd Then Exit For
Next PagN
End Sub

Va inserita in un Modulo standard del vba; le righe marcate <<< sono da personalizzare come da commento.

Poi va lanciata dopo aver attivato il foglio con il lungo elenco.

Verra' creato un nuovo foglio che conterra' per ogni pagina le righe e le colonne indicate (salvo che la stampante o la carta o le impostazioni di stampa non impongano un limite inferiore)

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: excel 2013 - da 1 colonna a + colonne

Postdi femon » 28/04/18 16:02

Grazie mille Anthony funziona come desideravo!!!!
Grazie e gentilissimo.
Federico.
femon
Utente Senior
 
Post: 101
Iscritto il: 12/03/14 18:51


Torna a Applicazioni Office Windows


Topic correlati a "excel 2013 - da 1 colonna a + colonne":


Chi c’è in linea

Visitano il forum: Nessuno e 67 ospiti