Risultati da 1 a 13 di 13

Discussione: Creare elenco in automatico



  1. #1
    L'avatar di fberlinetta
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Milano
    Età
    27
    Messaggi
    41
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    1

    Creare elenco in automatico

    Salve a tutti :167:

    chiedo ancora una volta il vostro aiuto, grazie alla vostra preparazione ed esperienza in questo campo...

    ho un problema assai difficile dove non riesco a venirne a capo;

    per questo ho creato un file Word con immagini e testo che (forse) vi permetterà di capire meglio.

    Vi ringrazio per il vostro tempo; nel caso non mi sia espresso al meglio in questo file Word, cercherò di far comprendere meglio il mio quesito.

    Grazie ancora :43:

  2. #2
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1108
    Versione Office
    2010
    Likes ricevuti
    143
    Likes dati
    1

    Re: Creare elenco in automatico

    è molto strano allegare un file di word per spiegare un problema su un file excel, non era più semplice allegare il file excel in modo da poter testare la tua macro ?
    basta un file di esempio con dati inventati

  3. #3
    L'avatar di fberlinetta
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Milano
    Età
    27
    Messaggi
    41
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    1

    Re: Creare elenco in automatico

    Per la spiegazione, che era piuttosto complicata, ho preferito fare un file Word dove spiegavo il tutto; io utilizzo questo file Excel con la macro, dove devo andare ad aggiungere quel pezzo di codice che mi permette di creare l'elenco in automatico.
    Ecco qui
    File Allegati File Allegati

  4. #4
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1108
    Versione Office
    2010
    Likes ricevuti
    143
    Likes dati
    1

    Re: Creare elenco in automatico

    mi raccomando non esagerare a fornire dati come un paio di file da importare ed il risultato desiderato, tanto ha postato il doc !!

  5. #5
    L'avatar di fberlinetta
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Milano
    Età
    27
    Messaggi
    41
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    1

    Re: Creare elenco in automatico

    Volevo postare un altro file, ma ho impiegato del tempo ad alleggerirlo, perchè risultava troppo pesante.

    Questo in pratica è il risultato che mi viene dopo aver lanciato la macro (ovviamente con più fogli all'interno, ma li ho dovuti togliere causa peso) con l'Indice fatto a mano.
    File Allegati File Allegati

  6. #6
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1108
    Versione Office
    2010
    Likes ricevuti
    143
    Likes dati
    1

    Re: Creare elenco in automatico

    per ottenere quel risultato quali file devo importare ?

  7. #7
    L'avatar di fberlinetta
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Milano
    Età
    27
    Messaggi
    41
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    1

    Re: Creare elenco in automatico

    Sono tutti file simili, con all'interno sempre un foglio che inizia per "S...", come questo:
    File Allegati File Allegati

  8. #8
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1108
    Versione Office
    2010
    Likes ricevuti
    143
    Likes dati
    1

    Re: Creare elenco in automatico

    inserisci il foglio Indice nel file Unisci.xlsm e prova questa adattandola
    Codice: 
    Sub copySomeSheetsInWbInFolderToSheets()
        Dim fileName, ws As Worksheet, destWB As Workbook
        Dim pPath As String
        pPath = "F:\Download\dis\" '<<< da modificare
        Set destWB = ActiveWorkbook
        drow = 10 ' prima riga di destinazione indice
        With CreateObject("scripting.filesystemobject")
           For Each fileName In .GetFolder(pPath).Files
              With Workbooks.Open(fileName)
              
                For Each sh In .Sheets
                  If Left(sh.Name, 1) = "S" Then
                    sh.Copy After:=destWB.Sheets(destWB.Sheets.Count)
                    Sheets("Indice").Range("A" & drow) = sh.Range("A1")
                    drow = drow + 1
                  End If
    
                Next
                .Close True
              End With
            Next
        End With
    End Sub

  9. #9
    L'avatar di fberlinetta
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Milano
    Età
    27
    Messaggi
    41
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    1

    Re: Creare elenco in automatico

    Devo dire che è perfetto, e fa il suo lavoro... Solo che qualche volta fila liscio, mentre altre volte ogni foglio che implementa nel file UNISCI.xlsm appaiono questi messaggi:

    Il nome 'Criteri' esiste già. Fare clic su Sì per usare la versione del nome esistente oppure su No per rinominare la versione di 'Criteri' che si sta spostando o copiando.


    Il nome 'PIPPO' esiste già. Fare clic su Sì per usare la versione del nome esistente oppure su No per rinominare la versione di 'PIPPO' che si sta spostando o copiando.


    Il nome 'PLUTO' esiste già. Fare clic su Sì per usare la versione del nome esistente oppure su No per rinominare la versione di 'PLUTO' che si sta spostando o copiando.

    Io in ogni caso dò sempre SI e completa il lavoro come voglio io, però diciamo che alla fine quando si tratta di parecchi fogli, è snervante.

    Come mai? E' una cosa normale?

  10. #10
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1108
    Versione Office
    2010
    Likes ricevuti
    143
    Likes dati
    1

    Re: Creare elenco in automatico

    chiaramente io non ho potuto testare la macro non disponendo dei file da caricare, ora tocca a te la rifinitura

  11. #11
    L'avatar di fberlinetta
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Milano
    Età
    27
    Messaggi
    41
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    1

    Re: Creare elenco in automatico

    Capisco, comunque ti ringrazio del tuo tempo, visto che ho ottenuto quel che volevo...

    Grazie ancora patel

  12. #12
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1108
    Versione Office
    2010
    Likes ricevuti
    143
    Likes dati
    1

    Re: Creare elenco in automatico

    probabilmente i tuoi file hanno dei fogli con lo stesso nome o range con assegnati nomi uguali

  13. #13
    L'avatar di fberlinetta
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Milano
    Età
    27
    Messaggi
    41
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    1

    Re: Creare elenco in automatico

    Capisco....

    Grazie di nuovo! :246:

Discussioni Simili

  1. [Risolto] creare elenco da scheda
    Di lucaCA nel forum Domande su Excel VBA e MACRO
    Risposte: 12
    Ultimo Messaggio: 03/11/16, 12:52
  2. Creare elenco con Excel con VBA
    Di emix1983 nel forum Domande su Excel VBA e MACRO
    Risposte: 13
    Ultimo Messaggio: 29/08/16, 21:15
  3. Creare elenco
    Di Il Pirata nel forum Domande su Excel in generale
    Risposte: 16
    Ultimo Messaggio: 23/08/16, 11:12
  4. Aggiornare elenco in automatico
    Di nick0573 nel forum Domande su Excel in generale
    Risposte: 6
    Ultimo Messaggio: 20/07/16, 18:00
  5. Creare in automatico uno scadenziario
    Di LRD nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 23/07/15, 15:03

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
  •