Risultati da 1 a 10 di 10

Discussione: Copia/incolla di più fogli ma in automatico



  1. #1
    L'avatar di Alessandro
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Roma
    Età
    45
    Messaggi
    851
    Versione Office
    2010 64 bit
    Likes ricevuti
    113
    Likes dati
    61

    Copia/incolla di più fogli ma in automatico

    Buon pomeriggio a tutti.
    Un amico mi ha chiesto un consiglio e non so come chiudere il cerchio.
    Mi ritrovo "n" fogli tutti uguali e vorrei farne uno unico.
    Oltre a copia/incollare tutto accodandoli, volevo sapere un metodo con le formule e quindi più veloce.
    Vi allego un file dove ho preimpostato 4 fogli: "tot" sarà il totale mentre foglio1 foglio2 e foglio3 saranno le 3 fonti.
    Ho ipotizzato che siano tutti fogli da 10 righe e 10 colonne.
    Vorrei poter rendere dinamica la cosa così se i fogli da "sommare" hanno più righe o più colonne la formula funzioni ugualmente.
    Avevo iniziato con in A1
    =INDIRETTO(INDIRIZZO(RIF.RIGA();RIF.COLONNA();;;"Foglio"&1))
    però non riesco poi a fargli capire che dall'11 riga deve riniziare tutto da riga1 col1 ma su Foglio2 e via via tutto il resto.

    Avevo trovato tra i miei appunti anche questa:

    Codice: 
    Sub cum()
    'dichiaro le variabili
    Dim sh As Worksheet
    Dim ws As Worksheet
    Dim lRiga As Long
    
    'cancello il cumulativo precedente
    Range("A2").Select 'partendo da A2
    Range(Selection, Selection.End(xlToRight)).Select 'seleziono tutto dx
    Range(Selection, Selection.End(xlDown)).Select 'seleziono tutto in basso
    Selection.ClearContents 'cancello contenuto selezione
    Set ws = ThisWorkbook.Worksheets("Foglio4") 'da modificare in base al nome del tuo foglio
    
    For Each sh In Worksheets(Array("Foglio1", "Foglio2", "Foglio3")) 'da modificare in base ai fogli da sommare
    lRiga = ws.Range("A" & Rows.Count).End(xlUp).Row + 1
    sh.Range("A1").CurrentRegion.Offset(1).Copy _
    Destination:=ws.Range("A" & lRiga)
    Next
    Set sh = Nothing
    Set ws = Nothing
    Range("A2").Select
    End Sub
    Ma ha un limite: se avessi decine o centinaia di fogli? dovrei scriverli tutti in quell'array?
    Impossibile.
    Qualcuno ha qualche idea?
    Sia con formule che in vba.
    Grazie anche per dei consigli.
    ciao
    ale
    File Allegati File Allegati
    Ultima modifica fatta da:cromagno; 07/07/16 alle 18:11 Motivo: Inserito codice tra i tag CODE...

  2. #2

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4028
    Versione Office
    2013
    Likes ricevuti
    1232
    Likes dati
    925

    Re: Copia/incolla di più fogli ma in automatico

    Ciao Alessandro,

    non ho ancora controllato il file allegato, ma mi aspetto che da un momento all'altro tu riesca a risolvere da solo....
    quindi aspetto

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  3. #3
    L'avatar di Alessandro
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Roma
    Età
    45
    Messaggi
    851
    Versione Office
    2010 64 bit
    Likes ricevuti
    113
    Likes dati
    61

    Re: Copia/incolla di più fogli ma in automatico

    Citazione Originariamente Scritto da cromagno Visualizza Messaggio
    Ciao Alessandro,

    non ho ancora controllato il file allegato, ma mi aspetto che da un momento all'altro tu riesca a risolvere da solo....
    quindi aspetto
    Ma scherzi...dai...davvero su...

  4. #4

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4028
    Versione Office
    2013
    Likes ricevuti
    1232
    Likes dati
    925

    Re: Copia/incolla di più fogli ma in automatico

    Citazione Originariamente Scritto da Alessandro Visualizza Messaggio
    Ma scherzi...dai...davvero su...
    No, assolutamente (visti i tuoi precedenti thread)... anzi son sicuro che riesci da solo.
    In caso contrario, fai sapere e se possiamo... arriveremo insieme ad una soluzione

    ----------Post unito in automatico----------

    Adesso ho letto...

    i fogli che nomi hanno? Sequenziali?

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  5. #5
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: Copia/incolla di più fogli ma in automatico

    Piccolo aiuto

    Codice: 
      For Each sh In ActiveWorkbook.Worksheets
        If sh.Name <> "Foglio4" Then

  6. #6

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4028
    Versione Office
    2013
    Likes ricevuti
    1232
    Likes dati
    925

    Re: Copia/incolla di più fogli ma in automatico

    Citazione Originariamente Scritto da Raffaele_53 Visualizza Messaggio
    Piccolo aiuto

    Codice: 
      For Each sh In ActiveWorkbook.Worksheets
        If sh.Name <> "Foglio4" Then
    Ciao Raffaele,
    ho visto ora il tuo suggerimento...

    lo continuo :

    Codice: 
    Sub Importa()
    Dim uRiga As Long, Riga As Long, Sh As Worksheet, Nome As String
    Dim i As Long
    
    
    Cells.ClearContents
    For Each Sh In Worksheets
        If Sh.Name <> "tot" Then
            Riga = Riga + 1
            Cells(Riga, 1).Value = Sh.Name
            Riga = Riga + 1
            uRiga = Sh.Range("A" & Rows.Count).End(xlUp).Row
            Sh.Range("A1:L" & uRiga).Copy Cells(Riga, 1)
            Riga = Riga + uRiga - 1
        End If
    Next Sh
    
    
    End Sub
    ----------Post unito in automatico----------

    Comunque rimane il "lato formule"...
    File Allegati File Allegati

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  7. #7
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: Copia/incolla di più fogli ma in automatico

    >>>Comunque rimane il "lato formule"...
    Solo un'esempio (anche se laborioso)
    File Allegati File Allegati

  8. I seguenti 3 utenti hanno dato un "Like" a Raffaele_53 per questo post:


  9. #8
    L'avatar di Alessandro
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Roma
    Età
    45
    Messaggi
    851
    Versione Office
    2010 64 bit
    Likes ricevuti
    113
    Likes dati
    61

    Re: Copia/incolla di più fogli ma in automatico

    Citazione Originariamente Scritto da cromagno Visualizza Messaggio
    No, assolutamente (visti i tuoi precedenti thread)... anzi son sicuro che riesci da solo.
    In caso contrario, fai sapere e se possiamo... arriveremo insieme ad una soluzione

    ----------Post unito in automatico----------

    Adesso ho letto...

    i fogli che nomi hanno? Sequenziali?
    intanto grazie a raffaele...ma più che altro grazie a cromagno che mi ha "spronato"...e io ho partorito questo

    =INDIRETTO(INDIRIZZO(SE(STRINGA.ESTRAI(RIF.RIGA();LUNGHEZZA(RIF.RIGA());1)="0";$P$1;STRINGA.ESTRAI(RIF.RIGA();LUNGHEZZA(RIF.RIGA());1));RIF.COLONNA();;;"Foglio"&INT(RIF.RIGA()/$P$1+0,9)))

    senza alcuna cella d'appoggio.
    Ho inserito in P1 il nr di righe che devo controllare e da cui devo ogni volta ripartire...
    Non mi piace solo per quella gestione della decima riga, per cui ho dovuto forzare il dato e nel caso usciva zero l'ho portato a 10 (P1).
    La formula iniziale sarebbe stata questa

    =INDIRETTO(INDIRIZZO(STRINGA.ESTRAI(RIF.RIGA();LUNGHEZZA(RIF.RIGA());1);RIF.COLONNA();;;"Foglio"&INT(RIF.RIGA()/$P$1+0,9)))

    Se mi/vi viene qualche idea...
    Allego il file.
    ciao
    ale
    File Allegati File Allegati

  10. #9
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: Copia/incolla di più fogli ma in automatico

    Complimenti, senza celle d'appoggio
    in A1 =INDIRETTO(INDIRIZZO(SE(RESTO(RIF.RIGA();10)=0;10;RESTO(RIF.RIGA();10));RIF.COLONNA();;;"Foglio"&INT((RIF.RIGA()+9)/10)))

    Rimane limitato a solo 10 righe per foglio. Il mio lavora anche con righe differenti (sicuramente migliorabile)
    Ps. Casomai fossero inferiori a 10 righe SE.ERRORE(formula;"")

  11. I seguenti utenti hanno dato un "Like"


  12. #10
    L'avatar di Alessandro
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Roma
    Età
    45
    Messaggi
    851
    Versione Office
    2010 64 bit
    Likes ricevuti
    113
    Likes dati
    61

    Re: Copia/incolla di più fogli ma in automatico

    Eccomi...
    =INDIRETTO(INDIRIZZO(RIF.RIGA()-(ARROTONDA.ECCESSO(RIF.RIGA()/$P$1;1)-1)*$P$1;RIF.COLONNA();;;"Foglio"&ARROTONDA.ECCESSO(RIF.RIGA()/$P$1;1)))
    sempre senza colonne d'appoggio...con P1 che indica quante righe sono per ogni foglio (tutti i fogli sono lunghi uguali) e sia le righe che i fogli sono illimitati.
    olè!!!
    ciao
    ale
    File Allegati File Allegati

Discussioni Simili

  1. Copia e incolla condizionato
    Di LucaB85 nel forum Domande su Excel VBA e MACRO
    Risposte: 5
    Ultimo Messaggio: 05/03/17, 15:30
  2. [Risolto] Taglia _ Copia _ incolla
    Di A.Maurizio nel forum Domande su Excel VBA e MACRO
    Risposte: 9
    Ultimo Messaggio: 20/10/16, 18:19
  3. copia e incolla
    Di Gerardo Zuccalà nel forum Test dei vostri post
    Risposte: 0
    Ultimo Messaggio: 23/07/16, 20:18
  4. copia-incolla 1 a 1
    Di tk71 nel forum Domande su Excel in generale
    Risposte: 1
    Ultimo Messaggio: 04/02/16, 20:22
  5. Copia ed incolla
    Di Gerardo Zuccalà nel forum Test dei vostri post
    Risposte: 1
    Ultimo Messaggio: 08/10/15, 18:20

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
  •