Pagina 1 di 2 12 UltimaUltima
Risultati da 1 a 30 di 31

Discussione: Macro per Import da TXT e Rinomina fogli



  1. #1
    L'avatar di freepredator
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Milano
    Età
    32
    Messaggi
    50
    Versione Office
    2010
    Likes ricevuti
    1

    Question Macro per Import da TXT e Rinomina fogli

    Buongiorno a tutti,

    mi rivolgo nuovamente a questo forum, che già in passato mi ha brillantemente aiutato, per una questione spinosa su cui spero possiate darmi un supporto. :230:

    Mi chiedevo se è possibile creare un documento Excel che, attraverso una macro (pulsante), crei automaticamente su sè stesso "n" sheets, tanti quanti sono i file TXT contenuti nella medesima cartella del documento Excel? E che al tempo stesso, tali "n" sheets, vengano rinominati con il nome del file TXT? :252:

    Spero di aver esposto chiaramente la questione

    Attendo fiducioso un vostro riscontro e vi ringrazio anticipatamente:43:

    Riccardo

  2. #2
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da freepredator Visualizza Messaggio
    Buongiorno a tutti,

    mi rivolgo nuovamente a questo forum, che già in passato mi ha brillantemente aiutato, per una questione spinosa su cui spero possiate darmi un supporto. :230:

    Mi chiedevo se è possibile creare un documento Excel che, attraverso una macro (pulsante), crei automaticamente su sè stesso "n" sheets, tanti quanti sono i file TXT contenuti nella medesima cartella del documento Excel? E che al tempo stesso, tali "n" sheets, vengano rinominati con il nome del file TXT? :252:

    Spero di aver esposto chiaramente la questione

    Attendo fiducioso un vostro riscontro e vi ringrazio anticipatamente:43:

    Riccardo
    Ciao Free se non ho capito male, prova a vedere se è quello che volevi.

    Ciao.

    Codice: 
    Sub CreaFoglio()
    
    Dim riga As Integer
    Dim fs As String
    Dim miapath As String
    
    
    ' ci sono due possibilità mettere la directory nel codice _
    oppure scriverla in una inputbox - a seconda di quello che vuoi usare _
    metti l'apice sull'altro.
    
    
    
    
    ' questa va scritta nel codice
    miapath = "C:\Users\Gaetano\Desktop\Excel - Completi" 'Metti la tua directory
    ' questa va scritta con inputbox
    miapath = InputBox("Imposta la directory interessata")
    
    
    ChDir miapath
    fs = Dir("*.*")
    If fs = "" Then Exit Sub
    While fs <> ""
        fs = Dir
        ThisWorkbook.Worksheets.Add
        ActiveSheet.Name = fs
    Wend
    
    
    End Sub
    File Allegati File Allegati

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  3. I seguenti utenti hanno dato un "Like"


  4. #3
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da freepredator Visualizza Messaggio
    Buongiorno a tutti,

    mi rivolgo nuovamente a questo forum, che già in passato mi ha brillantemente aiutato, per una questione spinosa su cui spero possiate darmi un supporto. :230:

    Mi chiedevo se è possibile creare un documento Excel che, attraverso una macro (pulsante), crei automaticamente su sè stesso "n" sheets, tanti quanti sono i file TXT contenuti nella medesima cartella del documento Excel? E che al tempo stesso, tali "n" sheets, vengano rinominati con il nome del file TXT? :252:

    Spero di aver esposto chiaramente la questione

    Attendo fiducioso un vostro riscontro e vi ringrazio anticipatamente:43:

    Riccardo
    Piccola modifica al file questo è quello valido. Ciao.

    P.S.
    Ricorda bene i nomi non possono essere lunghi più di 31 caratteri.
    File Allegati File Allegati

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  5. I seguenti utenti hanno dato un "Like"


  6. #4
    L'avatar di freepredator
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Milano
    Età
    32
    Messaggi
    50
    Versione Office
    2010
    Likes ricevuti
    1
    GRANDE!!! E' esattamente quello di cui avevo bisogno!! :300::300::300:

    Aggiungo un ulteriore step. E' possibile far si che il contenuto dei file TXT venga importato, nel relativo foglio creato, tramite la funzione "Testo in colonne" con delimitatore ";" sempre tramite la macro inserita sul pulsante??

    (mi sono incartato anche solo a scriverla sta cosa!!! :235: )

    Nuovamente grazie di cuore.

    Riccardo

  7. #5
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da freepredator Visualizza Messaggio
    GRANDE!!! E' esattamente quello di cui avevo bisogno!! :300::300::300:

    Aggiungo un ulteriore step. E' possibile far si che il contenuto dei file TXT venga importato, nel relativo foglio creato, tramite la funzione "Testo in colonne" con delimitatore ";" sempre tramite la macro inserita sul pulsante??

    (mi sono incartato anche solo a scriverla sta cosa!!! :235: )

    Nuovamente grazie di cuore.

    Riccardo
    Free grazie per il riscontro. Per quanto riguarda quest'altra richiesta dammi un po' di tempo perchè adesso sto lavorando su un'altra roba mia. Penso comunque si possa fare.

    Ciao.

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  8. I seguenti utenti hanno dato un "Like"


  9. #6
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Ciao Free appena leggi mi puoi allegare un file txt (senza dati sensibili) per vedere come è strutturato.
    Comunque l'importazione dei dati viene fatta su un'unica riga e più colonne per quanti sono i ";"

    Aspetto il file.

    ciao

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  10. I seguenti utenti hanno dato un "Like"


  11. #7
    L'avatar di freepredator
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Milano
    Età
    32
    Messaggi
    50
    Versione Office
    2010
    Likes ricevuti
    1
    Ciao Baloon,

    per prima cosa, grazie infinite per dare attenzione alla mia richiesta.

    Ti allego quanto richiesto (ho ridotto righe e colonne, tanto credo serva solo per esser letto ed importato a prescindere dal contenuto)

    Sempre grato ed in attesa di risposta.

    Riccardo
    File Allegati File Allegati

  12. #8
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da freepredator Visualizza Messaggio
    Ciao Baloon,

    per prima cosa, grazie infinite per dare attenzione alla mia richiesta.

    Ti allego quanto richiesto (ho ridotto righe e colonne, tanto credo serva solo per esser letto ed importato a prescindere dal contenuto)

    Sempre grato ed in attesa di risposta.

    Riccardo
    Ciao Riccardo eccoti il file fammi sapere se va bene.

    Per fare una prova metti la cartella che trovi allegata sul desktop, apri il file excel ed esegui.

    ciao.

    Codice: 
    Sub CreaFoglio()
    
    
    Dim riga As Integer
    Dim fs As String
    Dim miapath As String
    
    
    '-------------------------- QUI VA MESSO IL PERCORSO DEI FILES TXT -------------------
    miapath = "C:\Users\Gaetano\Desktop\Prova"
    '-------------------------------------------------------------------------------
    ChDir miapath
    fs = Dir("*.*")
    If fs = "" Then Exit Sub
    On Error Resume Next
    While fs <> ""
        ThisWorkbook.Worksheets.Add
        ActiveSheet.Name = fs
        fs = Dir
    ' --------------------- QUI VA MESSO LO STESSO PERCORSO DEI FILES TXT ------------------------
        With ActiveSheet.QueryTables.Add _
            (Connection:="Text;C:\Users\Gaetano\Desktop\Prova\" & ActiveSheet.Name, _
            Destination:=Range("A1"))
    '-----------------------------------------------------------------------------------------------
            .Name = "Split"
            .TextFileSemicolonDelimiter = True
            .Refresh BackgroundQuery:=False
        End With
    Wend
    
    
    End Sub
    File Allegati File Allegati

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  13. I seguenti utenti hanno dato un "Like"


  14. #9
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Sai che ci sono degli elementi che quasi quasi mi dicono che ti conosco? :242:

    Riccardo - Freepredator - 30 anni - Milano

    Magari sotto Natale fai anche presepi? oppure sfondi per recite? :243:

    ciao ciao

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  15. I seguenti utenti hanno dato un "Like"


  16. #10
    L'avatar di freepredator
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Milano
    Età
    32
    Messaggi
    50
    Versione Office
    2010
    Likes ricevuti
    1
    Ebbene si, credo proprio abbiamo qualcosa in comune.. :)

    Ad ogni modo, il codice scritto, funziona alla grande. Avrei un altro piccolo passettino da inserire, e si tratterebbe del calcolo della MEDIA, su un altro foglio (chiamato Totale) che però dovrà essere composto secondo determinati criteri.

    nei vari fogli abbiamo la prima colonna "DATA" contenente appunto una data, ripetuta per 'n' record.. Dovrei fare in modo di riportare nel primo foglio una stessa colonna "DATA" riportante tutte le date di tutti i fogli. Quindi per capirci:
    A1 = foglio1!A1
    A2 = foglio2!A1
    A3 = foglio3!A1
    dove incrementa la riga del foglio totale, ma il riferimento dei vari fogli rimane lo stesso.

    Suppongo sia possibile poi, una volta riportata la data, e i dati di MEDIA relativi, effettuare poi grafici specifici, ma a quelli ci posso pensare io..

    Attendo vostre preziose risposte..

    Grazie anticipatamente

    Riccardo

  17. #11
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da freepredator Visualizza Messaggio
    Ebbene si, credo proprio abbiamo qualcosa in comune.. :)

    Ad ogni modo, il codice scritto, funziona alla grande. Avrei un altro piccolo passettino da inserire, e si tratterebbe del calcolo della MEDIA, su un altro foglio (chiamato Totale) che però dovrà essere composto secondo determinati criteri.

    nei vari fogli abbiamo la prima colonna "DATA" contenente appunto una data, ripetuta per 'n' record.. Dovrei fare in modo di riportare nel primo foglio una stessa colonna "DATA" riportante tutte le date di tutti i fogli. Quindi per capirci:
    A1 = foglio1!A1
    A2 = foglio2!A1
    A3 = foglio3!A1
    dove incrementa la riga del foglio totale, ma il riferimento dei vari fogli rimane lo stesso.

    Suppongo sia possibile poi, una volta riportata la data, e i dati di MEDIA relativi, effettuare poi grafici specifici, ma a quelli ci posso pensare io..

    Attendo vostre preziose risposte..

    Grazie anticipatamente

    Riccardo
    E bravo Ricky ehehehe
    Ascolta dovresti allegare un file con il risultato che vorresti ottenere magari spiegandolo altrimenti ci costringi a fare noi la simulazione.

    Aspetto il file - Ciao.

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  18. I seguenti utenti hanno dato un "Like"


  19. #12
    L'avatar di freepredator
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Milano
    Età
    32
    Messaggi
    50
    Versione Office
    2010
    Likes ricevuti
    1
    Ok, credo di aver messo tutti i dati necessari..
    E' sufficiente o necessiti altro?

    Grazie ancora
    File Allegati File Allegati

  20. #13
    L'avatar di freepredator
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Milano
    Età
    32
    Messaggi
    50
    Versione Office
    2010
    Likes ricevuti
    1
    Citazione Originariamente Scritto da freepredator Visualizza Messaggio
    Ok, credo di aver messo tutti i dati necessari..
    E' sufficiente o necessiti altro?

    Grazie ancora

    Stavo provando a smanettare con le formule e credo che la formula DB.MEDIA possa applicarsi al mio caso. Tuttavia dovrei riuscire a farla "ciclare" per tutti gli 'n' fogli.. :93:

    HELP!!!

  21. #14
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da freepredator Visualizza Messaggio
    Stavo provando a smanettare con le formule e credo che la formula DB.MEDIA possa applicarsi al mio caso. Tuttavia dovrei riuscire a farla "ciclare" per tutti gli 'n' fogli.. :93:

    HELP!!!
    Eccomi prova questo

    Codice: 
    Sub EstraiDati()
    
    Dim wsh As Worksheet, wsh1 As Worksheet
    Dim i As Integer, e As Integer
    Dim uriga As Long, uriga1 As Long
    Dim media1 As Double, media2 As Double, media3 As Double
    
    
    media1 = 0
    media2 = 0
    media3 = 0
    Set wsh = ThisWorkbook.Worksheets("TOTALE")
    uriga = wsh.Range("A" & Rows.Count).End(xlUp).Row + 1
    
    
    For i = 2 To Sheets.Count
    
    
        Sheets(i).Activate
        Range("A2").Copy
        wsh.Range("A" & uriga).PasteSpecial
        uriga = uriga
        uriga1 = Range("A" & Rows.Count).End(xlUp).Row
        For e = 2 To uriga1
            media1 = media1 + Range("B" & e).Value
            media2 = media2 + Range("C" & e).Value
            media3 = media3 + Range("D" & e).Value
        Next
        media1 = (media1 / (uriga1 - 1)) / (Sheets.Count - 1)
        media2 = (media2 / (uriga1 - 1)) / (Sheets.Count - 1)
        media3 = (media3 / (uriga1 - 1)) / (Sheets.Count - 1)
        wsh.Range("B" & uriga).Value = media1
        wsh.Range("C" & uriga).Value = media2
        wsh.Range("D" & uriga).Value = media3
        media1 = 0
        media2 = 0
        media3 = 0
        uriga = uriga + 1
        
    Next
        
    End Sub
    File Allegati File Allegati

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  22. I seguenti utenti hanno dato un "Like"


  23. #15
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Ho aggiunto un messaggio di fine aggiornamento.
    File Allegati File Allegati

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  24. I seguenti utenti hanno dato un "Like"


  25. #16
    L'avatar di freepredator
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Milano
    Età
    32
    Messaggi
    50
    Versione Office
    2010
    Likes ricevuti
    1
    Semplicemente PERFETTO!!!

    L'ho riadattato un attimo, sistemando due cose ed implementando altre variabili, e ora è tutto funzionante...

    L'unica cosa che non mi tornava era la parte relativa al calcolo della media:

    dove tu inserisci:
    media1 = (media1 / (uriga1 - 1)) / (Sheets.Count - 1)
    mi restituiva sempre la metà del valore che avrei dovuto ottenere, mentre invece usando:

    media1 = (media1 / (uriga1 - 1)
    ottengo il valore corretto..

    Ora sto pensando di inserire una ProgressBar (ma è solo un virtuosismo)
    e passo alla parte dei grafici!! :252::252::252:

    Grazie!! Grazie!! Grazie!!

  26. #17
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Ciao Ricky guarda che sei tu che hai scritto che la media era divisa inoltre per il numero dei fogli !!!!! Se non è cosi allora hai fatto bene a togliere l'ultima parte. Si dimezzava perchè i fogli txt sono 2

    Inviato dal mio GT-P5100 utilizzando Tapatalk

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  27. I seguenti utenti hanno dato un "Like"


  28. #18
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Ecco quello che avevi scritto nel file che mi hai allegato

    * dove "MEDIA Dato1" dovrebbe essere la MEDIA tra la somma di tutti i "dato1" di tutti i txt1, txt2, txt.., diviso il numero di fogli che vengono creati in precedenza

    io mi sono attenuto a quello che hai scritto eheheh :243:

    ciao ciao

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  29. I seguenti utenti hanno dato un "Like"


  30. #19
    L'avatar di freepredator
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Milano
    Età
    32
    Messaggi
    50
    Versione Office
    2010
    Likes ricevuti
    1
    Citazione Originariamente Scritto da Baloon_50 Visualizza Messaggio
    Ecco quello che avevi scritto nel file che mi hai allegato

    * dove "MEDIA Dato1" dovrebbe essere la MEDIA tra la somma di tutti i "dato1" di tutti i txt1, txt2, txt.., diviso il numero di fogli che vengono creati in precedenza

    io mi sono attenuto a quello che hai scritto eheheh :243:

    ciao ciao
    Si, hai ragione!! :280:

    Ad ogni modo, grazie infinite!!!

  31. #20
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da freepredator Visualizza Messaggio
    Si, hai ragione!! :280:

    Ad ogni modo, grazie infinite!!!
    Di niente grazie a te per il riscontro.
    Adesso per piacere fai un ultimo sforzo Metti questa discussione come [RISOLTO]
    Vai nella barra dei menu, situata all'inizio di questa discussione, troverai il menu “Strumenti Discussione” quindi scegli “Segna questo Thread come risolto”

    Ciao e alla prossima. :261:

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  32. I seguenti utenti hanno dato un "Like"


  33. #21
    L'avatar di freepredator
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Milano
    Età
    32
    Messaggi
    50
    Versione Office
    2010
    Likes ricevuti
    1
    Citazione Originariamente Scritto da Baloon_50 Visualizza Messaggio
    Di niente grazie a te per il riscontro.
    Adesso per piacere fai un ultimo sforzo Metti questa discussione come [RISOLTO]
    Vai nella barra dei menu, situata all'inizio di questa discussione, troverai il menu “Strumenti Discussione” quindi scegli “Segna questo Thread come risolto”

    Ciao e alla prossima. :261:
    Assolutamente!!!

    Solo un'ultimissimo ritocco: dovrei a questo punto eliminare i fogli utilizzati per l'import dei dati, quindi partendo dal foglio 5 fino all'ultimo; ho inserito:

    For x = 5 To Sheets.Count
    Application.DisplayAlerts = False
    Sheets(x).Delete
    Next x

    ed effettivamente me li cancella senza chiedermi conferma di eliminazione, ma solo fino a x = 21... E non capisco perchè non procede fino all'ultimo...... :93:

    Riesci ad illuminarmi?

    Grazie anticipatamente

  34. #22
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da freepredator Visualizza Messaggio
    Assolutamente!!!

    Solo un'ultimissimo ritocco: dovrei a questo punto eliminare i fogli utilizzati per l'import dei dati, quindi partendo dal foglio 5 fino all'ultimo; ho inserito:

    For x = 5 To Sheets.Count
    Application.DisplayAlerts = False
    Sheets(x).Delete
    Next x

    ed effettivamente me li cancella senza chiedermi conferma di eliminazione, ma solo fino a x = 21... E non capisco perchè non procede fino all'ultimo...... :93:

    Riesci ad illuminarmi?

    Grazie anticipatamente
    così a prima vista mi sembra ok.
    metti un file con tutti i fogli e con la macro

    P.S.
    ma i primi 4 rimangono al loro posto?

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  35. I seguenti utenti hanno dato un "Like"


  36. #23
    L'avatar di freepredator
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Milano
    Età
    32
    Messaggi
    50
    Versione Office
    2010
    Likes ricevuti
    1
    Citazione Originariamente Scritto da Baloon_50 Visualizza Messaggio
    così a prima vista mi sembra ok.
    metti un file con tutti i fogli e con la macro

    P.S.
    ma i primi 4 rimangono al loro posto?

    Esattamente!!! I primi 4 restano dove sono...

    Allego file, opportunamente modificato (su cui ho lo stesso problema), ma stavolta x = 20...:93:

    Grazie in anticipo!!
    File Allegati File Allegati

  37. #24
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da freepredator Visualizza Messaggio
    Esattamente!!! I primi 4 restano dove sono...

    Allego file, opportunamente modificato (su cui ho lo stesso problema), ma stavolta x = 20...:93:

    Grazie in anticipo!!
    Ciao Ricky,
    1 - nella for next non puoi usare sheets.count in quanto ogni volta che ne elimini 1 il valore cambia perciò ho usato una variabile dove vado a metterci il numero dei fogli.
    2 - la cancellazione di un foglio fa slittare di 1 i rimanenti perciò se vuoi cancellare tutti i fogli a partire dal foglio 5 devi mantenere sempre lo stesso numero e cioè 5
    Guarda il mio esempio e lo capirai meglio di quanto ti ho spiegato io.

    Ciao.
    File Allegati File Allegati

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  38. I seguenti utenti hanno dato un "Like"


  39. #25
    L'avatar di freepredator
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Milano
    Età
    32
    Messaggi
    50
    Versione Office
    2010
    Likes ricevuti
    1
    Perfetto!!! Spiegazione chiarissima!!!

    Intanto ho realizzato i grafici che mi servivano, ma mi è sorta un'altra richiesta per estrarre dai vari fogli importati, anche il valore MAX tra quelli con cui facevo la MEDIA prima.. :251:

    Mi son creato una variabile max1,max2 e max3 (dato che saranno 3 valori, cosi come pure erano per le medie) ma la loro valorizzazione?

    potrei usare lo stesso criterio di valorizzazione delle medie, quindi:

    max1 = max1 + Range("C" & e).Value

    però laddove poi si faceva un media1 = (media1 / (uriga1 - 1)) dovrei fare un MAX....

  40. #26
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da freepredator Visualizza Messaggio
    Perfetto!!! Spiegazione chiarissima!!!

    Intanto ho realizzato i grafici che mi servivano, ma mi è sorta un'altra richiesta per estrarre dai vari fogli importati, anche il valore MAX tra quelli con cui facevo la MEDIA prima.. :251:

    Mi son creato una variabile max1,max2 e max3 (dato che saranno 3 valori, cosi come pure erano per le medie) ma la loro valorizzazione?

    potrei usare lo stesso criterio di valorizzazione delle medie, quindi:

    max1 = max1 + Range("C" & e).Value

    però laddove poi si faceva un media1 = (media1 / (uriga1 - 1)) dovrei fare un MAX....
    no perchè sefai max1 = max1 + ... alla fine ottieni la somma dei valori
    dovresti fare un confronta del valore attuale con quello nuovo e conservarti sempre il più grande e alla fine ottieni il max

    spero di essermi spiegato altrimenti lo faccio io e te lo passo.
    fammi sapere

    Ciao.
    P.S.
    puoi sempre inserire una formula (sempre nel VBA) se non ti garda quanto ti ho detto sopra.

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  41. I seguenti utenti hanno dato un "Like"


  42. #27
    L'avatar di freepredator
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Milano
    Età
    32
    Messaggi
    50
    Versione Office
    2010
    Likes ricevuti
    1
    è chiarissimo, ma inserendolo nel ciclo:

    For e = 2 To uriga1
    media1 = media1 + Range("C" & e).Value
    media3 = media3 + Range("G" & e).Value
    media5 = media5 + Range("K" & e).Value


    max1 = WorksheetFunction.Max("C" & e)


    Next

    ottengo una valorizzazione corretta dei campi di destinazione, ma la var max1 rimane sempre a 0....:256:

  43. #28
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da freepredator Visualizza Messaggio
    è chiarissimo, ma inserendolo nel ciclo:

    For e = 2 To uriga1
    media1 = media1 + Range("C" & e).Value
    media3 = media3 + Range("G" & e).Value
    media5 = media5 + Range("K" & e).Value


    max1 = WorksheetFunction.Max("C" & e)


    Next

    ottengo una valorizzazione corretta dei campi di destinazione, ma la var max1 rimane sempre a 0....:256:
    Ho fatto prima a farla io
    Eccola
    File Allegati File Allegati

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  44. I seguenti utenti hanno dato un "Like"


  45. #29
    L'avatar di freepredator
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Milano
    Età
    32
    Messaggi
    50
    Versione Office
    2010
    Likes ricevuti
    1
    :274::274::274:Non ho parole!!!!! :274::274::274:

    Grandissimo!!!!!:255::255::255:

    GRAZIE!!!

  46. #30
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da freepredator Visualizza Messaggio
    :274::274::274:Non ho parole!!!!! :274::274::274:

    Grandissimo!!!!!:255::255::255:

    GRAZIE!!!
    Allora adesso metti pure [RISOLTO] altrimenti domenica dico al giova di non farti giocare :243:

    ciao ciao

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  47. I seguenti utenti hanno dato un "Like"


Discussioni Simili

  1. Risposte: 5
    Ultimo Messaggio: 01/12/16, 12:36
  2. Import dati (da CSV) e formattazione filtrata su altro foglio (XLSM)
    Di freepredator nel forum Domande su Excel VBA e MACRO
    Risposte: 16
    Ultimo Messaggio: 24/09/16, 02:52
  3. Macro filtro su piu' fogli
    Di navi21 nel forum Domande su Excel VBA e MACRO
    Risposte: 3
    Ultimo Messaggio: 06/09/16, 21:57
  4. aiuto rinomina file di una cartella
    Di MariaPaola nel forum Domande su Excel VBA e MACRO
    Risposte: 12
    Ultimo Messaggio: 14/06/16, 22:07
  5. Import foglio con composizione e stampa etichetta personalizzata
    Di G.Bove nel forum Domande su Excel VBA e MACRO
    Risposte: 33
    Ultimo Messaggio: 26/11/15, 19:49

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
  •