Risultati da 1 a 7 di 7

Discussione: Stampa stessa riga di ogni foglio su unico foglio a4



  1. #1
    L'avatar di fefemusic
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    Buonvicino
    Età
    28
    Messaggi
    2
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Stampa stessa riga di ogni foglio su unico foglio a4

    Salve a tutti.

    Sono nuovo all'interno di questo Forum.
    Pongo subito il mio quesito.
    Ho un file Excel fatto da 30 fogli. Avrei la necessità ad esempio di stampare la riga n. 7 di ogni foglio. Selezionando i fogli con shift + tasto dx da 1 a 30 e poi selezionando la riga n. 7 di uno dei fogli quando vado in anteprima mi crea 30 fogli di stampa. Io tutte le 30 righe vorrei raggrupparle in un'unica stampa, al massimo 2 fogli.
    E' possibile fare questo?

    Chiaramente senza fare il copia e incolla di ogni riga su un altro foglio di lavoro
    Ultima modifica fatta da:Canapone; 06/07/17 alle 06:45

  2. #2

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    5558
    Versione Office
    2013
    Likes ricevuti
    586
    Likes dati
    115

    Re: Stampa stessa riga di ogni foglio su unico foglio a4

    ciao fefe

    Aggiungi in coda al tuo file un foglio e chiamalo "Riepilogo" inserendo un'intestazione dei campi in riga 1 ed esegui la macro che vedi sotto che copierà la riga 7 di ogni foglio e la incollerà su Riepilogo accodando i record uno sotto l'altro; una volta compilato il foglio riepilogo puoi stamparlo manualmente o aggiungere un'istruzione alla macro per la stampa.


    Codice: 
    Sub Copia()
    Dim i as Integer
    Dim ur as Long
    For i = 1 To ThsWorkbook.Sheets.Count - 1
    ur = Worksheets("Riepilogo").Cells(Rows.Count, 1).End(xlUp).Row
    Sheets(i).Rows("7").Copy Destination:=Worksheets("Riepilogo").Range("a" & ur + 1)
    Next i
    End Sub
    Considera che sono senza pc e ho scritto la macro a memoria senza provarla.
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  3. I seguenti 2 utenti hanno dato un "Like" a alfrimpa per questo post:


  4. #3

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    5558
    Versione Office
    2013
    Likes ricevuti
    586
    Likes dati
    115

    Re: Stampa stessa riga di ogni foglio su unico foglio a4

    fefe se non sai inserire la macro nel tuo file guarda il video di Gerardo (che saluto) che trovi nel riquadro in alto a destra nella home oppure su YouTube in Excel Magico video n. 84.

    P.S. Gerardo il mi piace lo hai dato per "stima" o la macro l'hai provata?
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  5. #4
    L'avatar di fefemusic
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    Buonvicino
    Età
    28
    Messaggi
    2
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Red face Re: Stampa stessa riga di ogni foglio su unico foglio a4

    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    ciao fefe

    Aggiungi in coda al tuo file un foglio e chiamalo "Riepilogo" inserendo un'intestazione dei campi in riga 1 ed esegui la macro che vedi sotto che copierà la riga 7 di ogni foglio e la incollerà su Riepilogo accodando i record uno sotto l'altro; una volta compilato il foglio riepilogo puoi stamparlo manualmente o aggiungere un'istruzione alla macro per la stampa.


    Codice: 
    Sub Copia()
    Dim i as Integer
    Dim ur as Long
    For i = 1 To ThsWorkbook.Sheets.Count - 1
    ur = Worksheets("Riepilogo").Cells(Rows.Count, 1).End(xlUp).Row
    Sheets(i).Rows("7").Copy Destination:=Worksheets("Riepilogo").Range("a" & ur + 1)
    Next i
    End Sub
    Considera che sono senza pc e ho scritto la macro a memoria senza provarla.
    Ho provato la macro e funziona perfettamente. Grazie infinite genio!!!
    Un'ultima cosa: se questa operazione la voglio fare solo dal foglio 1 al 31 cosa devo cambiare nel codice?

  6. #5

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    5558
    Versione Office
    2013
    Likes ricevuti
    586
    Likes dati
    115

    Re: Stampa stessa riga di ogni foglio su unico foglio a4

    Basta modificare questa riga

    Codice: 
    For i = 1 To ThsWorkbook.Sheets.Count - 1
    in

    Codice: 
    For i = 1 To 31
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  7. #6
    L'avatar di Catwoman
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Tenerife
    Messaggi
    736
    Versione Office
    2013
    Likes ricevuti
    127
    Likes dati
    663

    Re: Stampa stessa riga di ogni foglio su unico foglio a4

    Benvenuto nel Fefemusic

    passi dalla PORTA due minuti quando hai tempo e ti presenti?

    Ti aspetto...e Grazie
    Sii gentile quando possibile. È sempre possibile
    (Dalai Lama)

  8. #7
    L'avatar di mb63
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Torino
    Età
    54
    Messaggi
    452
    Versione Office
    2007/10/13 w10
    Likes ricevuti
    16
    Likes dati
    84

    Re: Stampa stessa riga di ogni foglio su unico foglio a4

    Ciao Alfredo

    c'è un problema se ci fosse un utente con il mouse un po' "schizzato" ti allego il file e guarda cosa succede

    facendo le cose a modo io non ho problemi, ma so che giustamente sei un perfezionista e mi sembrava corretto avvisarti
    File Allegati File Allegati

Discussioni Simili

  1. [Risolto] stampa area di stampa di un foglio diverso
    Di ninnago nel forum Domande su Excel VBA e MACRO
    Risposte: 5
    Ultimo Messaggio: 13/04/17, 10:42
  2. Risposte: 2
    Ultimo Messaggio: 28/02/17, 20:47
  3. Due Userform che coinvergono su di un unico foglio
    Di camillo nel forum Domande su Excel VBA e MACRO
    Risposte: 3
    Ultimo Messaggio: 16/01/17, 16:55
  4. Risposte: 19
    Ultimo Messaggio: 21/11/16, 15:32
  5. importare 1 txt per ogni foglio in un unico file excel
    Di Loretta nel forum Domande su Excel VBA e MACRO
    Risposte: 20
    Ultimo Messaggio: 20/07/16, 13:32

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •