Risultati da 1 a 11 di 11

Discussione: Archiviazione dati tramite macro



  1. #1
    L'avatar di bopo57
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Milano
    Età
    60
    Messaggi
    159
    Versione Office
    2007
    Likes ricevuti
    2
    Likes dati
    16

    Archiviazione dati tramite macro

    Buonasera,
    Ho preso 2 pc, in uno ho messo il video di Gerardo sull'archiviazione dati e nell'altro avevo il foglio excel aperto.
    Ad ogni passaggio, bloccavo il video e lo ripetevo su excel.
    Niente da fare!!! Mi prende solamente la prima riga, mentre la seconda...........nisba!!!
    Altra cosa, nel foglio ARCHIVIO, ho implementato (sempre da video by Gerardo) somma.più.se, che funziona regolarmente se immetto i dati a mano, ma non funziona se archivio con la macro.
    Potete aiutarmi?
    Grazie

  2. #2
    L'avatar di bopo57
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Milano
    Età
    60
    Messaggi
    159
    Versione Office
    2007
    Likes ricevuti
    2
    Likes dati
    16

    Re: Help

    Mi ero dimenticato il file

    I fogli dove devo archiviare, sono 5
    File Allegati File Allegati

  3. #3
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126

    Re: Help

    Ciao bopo57 benvenuto in forum excel, sono da cellulare e non sono riuscito ad aprire il file, però noto sin da subito che la tua domanda non è affatto chiara ed anche il titolo non trasmette niente,infatti il titolo è molto importante e deve sempre anticipare il problema ed è forse per questo motivo che nessuno ti ha ancora risposto
    Cerca di essere più descrittivo e conciso cosi che possiamo aiutarti
    Prova a scrivere un titolo più consono e poi qualche moderatore da un PC lo cambierà
    Un saluto

  4. #4

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2808
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979

    Re: Help

    ciao @bopo57 quanto pubblichi una discussione fai attenzione al titolo che deve essere quanto più chiaro possibile:
    Regola nr.5 "il titolo"
    Assicurarti che il titolo sia il più chiaro possibile e che corrisponda al problema, usa termini appropriati che saranno usati come meta tag per una eventuale ricerca su Google.
    Evita di scrivere frasi inutili come “Aiuto” “Urgente ” “Non ci capisco niente” e "sono bloccato"
    perché potrebbero rivelarsi non appropriate e di conseguenza le tue discussioni potrebbero essere non lette.
    Ti consiglio di scrivere titoli che vanno dritto al problema esempio: "come faccio ad analizzare dati....." "come faccio ad estrarre records....." "come faccio a calcolare......." "come creare una TPivot......"
    I titoli ed i testi devono essere scritti in italiano corretto, sia grammaticamente che ortograficamente; postare frasi con errori evidenti è sempre una forma di NON rispetto per chi legge.
    Per adesso l'ho cambiato io.


    Riguardo la richiesta non è chiaro se vuoi archiviare tutti i fogli numerati nel foglio archivio.
    In questo caso prova con questa routine:
    Codice: 
    Sub Archivia()
    Dim uRiga As Long
    Dim iCount As Integer
    Dim x As Long
    Dim iRow As Long
    Dim iCol As Integer
    
    
    x = Sheets("archivio").Range("B" & Rows.Count).End(xlUp).Row + 1
    If x < 16 Then x = 16
    For iCount = 1 To Sheets.Count
        If Sheets(iCount).Name <> "archivio" Then
            uRiga = Sheets(iCount).Range("B" & Rows.Count).End(xlUp).Row
            For iRow = 2 To uRiga
                For iCol = 2 To 25 Step 2
                    Sheets("archivio").Cells(x, iCol) = Sheets(iCount).Cells(iRow, iCol)
                Next
            Next
        End If
    Next
    
    
    End Sub

  5. #5
    L'avatar di bopo57
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Milano
    Età
    60
    Messaggi
    159
    Versione Office
    2007
    Likes ricevuti
    2
    Likes dati
    16

    Re: Help

    @Per tutti.
    Scusate la mia inesperienza sui forum, cercherò di migliorare.
    @Rubik72, Grazie, fantastico!!! Non mi prende l'ora, ma è quella che mi interessa meno.



  6. #6

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2808
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979

    Re: Help

    Ops. la colonna Z è la 26esima colonna non la 25esima.
    Sostituisci questo valore:
    Codice: 
                For iCol = 2 To 26 Step 2
                    Sheets("archivio").Cells(x, iCol) = Sheets(iCount).Cells(iRow, iCol)
                Next

  7. #7
    L'avatar di bopo57
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Milano
    Età
    60
    Messaggi
    159
    Versione Office
    2007
    Likes ricevuti
    2
    Likes dati
    16

    Re: Help

    Ok Rubrik, sostituito, solo che adesso mi prende sempre e solamente il foglio 5, anche se richiamo la macro foglio 2, oppure 3.
    Un mio dubbio!!!
    questa formula la devo incollare in tutti i fogli?
    File Allegati File Allegati

  8. #8
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: Help

    Codice: 
    Sub Archivia()
    Dim uRiga As Long
    Dim iCount As Integer
    Dim x As Long
    Dim iRow As Long
    Dim iCol As Integer
    
    
    
    
    For iCount = 1 To Sheets.Count
        If Sheets(iCount).Name <> "archivio" Then
            uRiga = Sheets(iCount).Range("B" & Rows.Count).End(xlUp).Row
            For iRow = 2 To uRiga
                    x = Sheets("archivio").Range("B" & Rows.Count).End(xlUp).Row + 1
                    If x < 16 Then x = 16
                For iCol = 2 To 25 Step 2
                    Sheets("archivio").Cells(x, iCol) = Sheets(iCount).Cells(iRow, iCol)
                Next
            Next
        End If
    Next
    
    
    
    
    End Sub

  9. #9
    L'avatar di bopo57
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Milano
    Età
    60
    Messaggi
    159
    Versione Office
    2007
    Likes ricevuti
    2
    Likes dati
    16

    Re: Help

    @ggratis, Ti ringrazio ma questo codice mi archivia tutti i fogli insieme, mentre io, desideravo avere libera scelta di quale foglio archiviare.
    Altra query, non so mai se devo incollarla in tutti i fogli oppure...............

    Non prendetemi in giro ehehehehehhehe

  10. #10
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: Help

    Codice: 
    Sub Archivia()
    Dim uRiga As Long
    Dim iCount As Integer
    Dim x As Long
    Dim iRow As Long
    Dim iCol As Integer
    Dim foglio As String
    
    
    foglio = InputBox("seleziona il foglio da archiviare: ")
    For iCount = 1 To Sheets.Count
        If Sheets(iCount).Name <> "archivio" And Sheets(iCount).Name = foglio Then
            uRiga = Sheets(iCount).Range("B" & Rows.Count).End(xlUp).Row
            For iRow = 2 To uRiga
                    x = Sheets("archivio").Range("B" & Rows.Count).End(xlUp).Row + 1
                    If x < 16 Then x = 16
                For iCol = 2 To 26 Step 2
                    Sheets("archivio").Cells(x, iCol) = Sheets(iCount).Cells(iRow, iCol)
                Next
            Next
        End If
    Next
    
    
    End Sub
    da incollare solo una volta nel modulo standard e assegnare ad un tasto...
    saluti
    gg

  11. #11
    L'avatar di bopo57
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Milano
    Età
    60
    Messaggi
    159
    Versione Office
    2007
    Likes ricevuti
    2
    Likes dati
    16

    Re: Help

    Così è PERFETTO!!!
    Grazie 1000!!!

Discussioni Simili

  1. [Risolto] Macro per archiviazione di dati Excel in file Access
    Di Gatt88 nel forum Domande su Microsoft Access
    Risposte: 7
    Ultimo Messaggio: 09/03/17, 08:08
  2. Macro per archiviazione di dati Excel in file Access
    Di Gatt88 nel forum Domande su Excel VBA e MACRO
    Risposte: 1
    Ultimo Messaggio: 16/01/17, 21:26
  3. problema archiviazione dati
    Di marc63 nel forum Domande su Excel VBA e MACRO
    Risposte: 14
    Ultimo Messaggio: 09/11/16, 14:56
  4. Filtrare una tabella tramite macro 3
    Di Vincenzo Damiani nel forum Domande su Excel VBA e MACRO
    Risposte: 21
    Ultimo Messaggio: 28/08/16, 14:35
  5. Risposte: 1
    Ultimo Messaggio: 17/03/16, 10:55

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
  •