Risultati da 1 a 15 di 15

Discussione: Estrapolare dati automaticamente da un foglio e riportarli in un altro, ma..



  1. #1
    L'avatar di gguas87
    Clicca e Apri
    Data Registrazione
    Sep 2016
    LocalitÓ
    Bari
    Messaggi
    14
    Versione Office
    Excel 2016
    Likes ricevuti
    0
    Likes dati
    2

    Estrapolare dati automaticamente da un foglio e riportarli in un altro, ma..

    Ciao a tutti,
    cercher˛ di spiegarmi il pi¨ possibile.
    Ho creato un foglio "RICEVUTA" in cui ho impostato graficamente la struttura di una ricevuta, es. n░ ricevuta, data, cliente, importo, totale ecc. attribuendo ad ogni singola voce la propria casella.
    Quello che vorrei ottenere, se possibile, Ŕ riportare il valore di tutte queste voci (in automatico) su un altro foglio "REGISTRO" (impostato come tabella) sempre nella stessa cartella di calcolo in modo tale da creare un elenco man mano che compilo una nuova ricevuta.

    NB. il foglio "RICEVUTA", con tutti i parametri inseriti per ognuni ricevuta che compilo, deve resettarsi una volta finita la registrazione al foglio "REGISTRO" e passare al successivo numero di ricevuta in automatico (ho configurato una macro che resetta i parametri e assegna il valore +1 al numero della ricevuta ma, ovviamente, se mi limito a riportare le caselle del foglio "RICEVUTA" sul foglio "REGISTRO", una volta cancellati i riferimenti, perdo i dati anche dal foglio "REGISTRO").

    Comprendo la possibile difficoltÓ nel capire cosa voglio ottenere, ho provato a caricare il file che ho creato ma Ŕ troppo grande.

    Grazie!

  2. #2
    L'avatar di Cuc¨^_^
    Clicca e Apri
    Data Registrazione
    Jun 2016
    LocalitÓ
    TrentoGallipoliTaranto
    EtÓ
    46
    Messaggi
    318
    Versione Office
    2010
    Likes ricevuti
    57
    Likes dati
    18

    Re: Estrapolare dati automaticamente da un foglio e riportarli in un altro, ma..

    Credo proprio tu debba postare un file di esempio aderente al file originale.

  3. #3
    L'avatar di gguas87
    Clicca e Apri
    Data Registrazione
    Sep 2016
    LocalitÓ
    Bari
    Messaggi
    14
    Versione Office
    Excel 2016
    Likes ricevuti
    0
    Likes dati
    2

    Re: Estrapolare dati automaticamente da un foglio e riportarli in un altro, ma..

    Ho tolto qualsiasi cosa di superfluo dal foglio ma meno di 2.7mb non scende come dimensione..

  4. #4

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Napoli
    EtÓ
    64
    Messaggi
    6821
    Versione Office
    2013
    Likes ricevuti
    721
    Likes dati
    166

    Re: Estrapolare dati automaticamente da un foglio e riportarli in un altro, ma..

    Ciao gguas87

    Potresti allegarlo con un sito di file sharing tipo Filedropper o Dropbox.

    Una volta caricato il file sul sito questo ti restituirÓ un link che incollerai qui sul forum.
    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. #5
    L'avatar di gguas87
    Clicca e Apri
    Data Registrazione
    Sep 2016
    LocalitÓ
    Bari
    Messaggi
    14
    Versione Office
    Excel 2016
    Likes ricevuti
    0
    Likes dati
    2

    Re: Estrapolare dati automaticamente da un foglio e riportarli in un altro, ma..

    Proviamo cosý, grazie per il suggerimento ;)

    https://dl.dropboxusercontent.com/u/...STRO-CASSA.xls

  6. #6

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Cosenza
    EtÓ
    45
    Messaggi
    2833
    Versione Office
    Excel 2013
    Likes ricevuti
    1027
    Likes dati
    983

    Re: Estrapolare dati automaticamente da un foglio e riportarli in un altro, ma..

    prova con questa routine:
    Codice: 
    Sub Aggiorna()
    Dim uRiga As Double
    
    
    uRiga = Sheets("Registro").Range("A" & Rows.Count).End(xlUp).Row
    
    
    Cells(uRiga, 1) = Range("I7") 'data
    Cells(uRiga, 2) = Range("D7") 'numero
    Cells(uRiga, 3) = Range("F9") 'cliente
    Cells(uRiga, 4) = Range("F14") 'rata1
    Cells(uRiga, 5) = Range("M14") 'Euro rata1
    Cells(uRiga, 6) = Range("F15") 'rata2
    Cells(uRiga, 7) = Range("M15") 'Euro rata2
    Cells(uRiga, 8) = Range("F16") 'conguaglio
    Cells(uRiga, 9) = Range("M16") 'Euro conguaglio
    
    
    Sheets("Ricevuta").Range("Y5").Value = Sheets("Ricevuta").Range("Y5").Value + 1
    Sheets("Ricevuta").Range("Y6, F7, I7:J7, F10:S10, F16:J16, F17:J17, F18:J18, M16:O16, M17:O17, M18:O18, C21:J21, C22:J22, M22:O22").ClearContents
    
    
    End Sub
    P.S. credo che i riferimenti per il ClearContents (ho lasciato quelli della tua routine) non siano tutti esatti!

  7. I seguenti utenti hanno dato un "Like"


  8. #7
    L'avatar di gguas87
    Clicca e Apri
    Data Registrazione
    Sep 2016
    LocalitÓ
    Bari
    Messaggi
    14
    Versione Office
    Excel 2016
    Likes ricevuti
    0
    Likes dati
    2

    Re: Estrapolare dati automaticamente da un foglio e riportarli in un altro, ma..

    Grazie per la risposta! Effettivamente i riferimenti di ClearContents sono "slittati" di qualche cella ma poco male.
    Il problema ora Ŕ che mi da l'errore che non Ŕ possibile eseguire l'operazione per le celle unite... significa che dovrei cambiare la struttura grafica della ricevuta?

  9. #8

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Cosenza
    EtÓ
    45
    Messaggi
    2833
    Versione Office
    Excel 2013
    Likes ricevuti
    1027
    Likes dati
    983

    Re: Estrapolare dati automaticamente da un foglio e riportarli in un altro, ma..

    Dovresti cambiare semplicemente i riferimenti.

  10. #9

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Napoli
    EtÓ
    64
    Messaggi
    6821
    Versione Office
    2013
    Likes ricevuti
    721
    Likes dati
    166

    Re: Estrapolare dati automaticamente da un foglio e riportarli in un altro, ma..

    Citazione Originariamente Scritto da Rubik72 Visualizza Messaggio
    Dovresti cambiare semplicemente i riferimenti.

    Ossia se le celle A1 e A2 sono unite devi scrivere

    Codice: 
    Range("A1:A2")
    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)

  11. #10
    L'avatar di gguas87
    Clicca e Apri
    Data Registrazione
    Sep 2016
    LocalitÓ
    Bari
    Messaggi
    14
    Versione Office
    Excel 2016
    Likes ricevuti
    0
    Likes dati
    2

    Re: Estrapolare dati automaticamente da un foglio e riportarli in un altro, ma..

    Fatto, sembra funzionare ma:
    - Aggiunge i dati sullo stesso foglio della ricevuta e non sul foglio "Registro"
    - Aggiunge i dati a partire dalla cella A2 e li sovrascrive sempre a partire dalla stessa cella invece che scendere alla successiva creando, appunto, un registro.

    Grazie per la pazienza!

  12. #11

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Cosenza
    EtÓ
    45
    Messaggi
    2833
    Versione Office
    Excel 2013
    Likes ricevuti
    1027
    Likes dati
    983

    Re: Estrapolare dati automaticamente da un foglio e riportarli in un altro, ma..

    Prova con queste modifiche:
    Codice: 
    Sub Aggiorna()
    Dim uRiga As Double
    Dim shOrig As Worksheet
    Dim shDest As Worksheet
    
    
    Set shOrig = Sheets("Ricevuta")
    Set shDest = Sheets("Registro")
    
    
    uRiga = shDest.Range("A" & Rows.Count).End(xlUp).Row
    
    
    With shDest
        .Cells(uRiga, 1) = shOrig.Range("I7") 'data
        .Cells(uRiga, 2) = shOrig.Range("D7") 'numero
        .Cells(uRiga, 3) = shOrig.Range("F9") 'cliente
        .Cells(uRiga, 4) = shOrig.Range("F14") 'rata1
        .Cells(uRiga, 5) = shOrig.Range("M14") 'Euro rata1
        .Cells(uRiga, 6) = shOrig.Range("F15") 'rata2
        .Cells(uRiga, 7) = shOrig.Range("M15") 'Euro rata2
        .Cells(uRiga, 8) = shOrig.Range("F16") 'conguaglio
        .Cells(uRiga, 9) = shOrig.Range("M16") 'Euro conguaglio
    
    
        .Range("Y5").Value = .Range("Y5").Value + 1
        .Range("Y6, F7, I7:J7, F10:S10, F16:J16, F17:J17, F18:J18, M16:O16, M17:O17, M18:O18, C21:J21, C22:J22, M22:O22").ClearContents
    End With
    
    
    Set shOrig = Nothing
    Set shDest = Nothing
    
    
    End Sub

  13. I seguenti utenti hanno dato un "Like"


  14. #12
    L'avatar di gguas87
    Clicca e Apri
    Data Registrazione
    Sep 2016
    LocalitÓ
    Bari
    Messaggi
    14
    Versione Office
    Excel 2016
    Likes ricevuti
    0
    Likes dati
    2

    Re: Estrapolare dati automaticamente da un foglio e riportarli in un altro, ma..

    Ok, adesso ogni volta che lancio la macro mi riporta i dati nel foglio "registro" !!

    Solo che:
    - se nel foglio "registro" ho una formattazione a tabella mi inserisce i dati nell'ultima riga della tabella a partire (giustamente) dalla colonna A;
    - se il foglio non ha formattazione tabella ma ha una intestazione creata manualmente, i dati vengono riportati e sovrapposti sempre a partire dalla colonna A ma a partire dal rigo 1.

    Quindi, lasciando la formattazione come tabella nel foglio "Registro", una volta riportati i dati tramite macro, se premessi "tab" a fine tabella (creandone una nuova riga) e ripetessi il trasferimento dei dati dal foglio "Ricevuta" otterrei quello che voglio, ovvero la registrazione in successione dei dati. Ma l'obiettivo Ŕ quello di ottenerlo in automatico.

  15. #13

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Cosenza
    EtÓ
    45
    Messaggi
    2833
    Versione Office
    Excel 2013
    Likes ricevuti
    1027
    Likes dati
    983

    Re: Estrapolare dati automaticamente da un foglio e riportarli in un altro, ma..

    ops. modifica questa riga:
    Codice: 
    uRiga = shDest.Range("A" & Rows.Count).End(xlUp).Row + 1
    il codice di prima cercava l'ultima riga "piena" invece a noi serviva la prima riga "vuota"

  16. I seguenti utenti hanno dato un "Like"


  17. #14
    L'avatar di gguas87
    Clicca e Apri
    Data Registrazione
    Sep 2016
    LocalitÓ
    Bari
    Messaggi
    14
    Versione Office
    Excel 2016
    Likes ricevuti
    0
    Likes dati
    2

    Re: Estrapolare dati automaticamente da un foglio e riportarli in un altro, ma..

    Top del top ragazzi!
    Grazie infinite!

  18. #15

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Cosenza
    EtÓ
    45
    Messaggi
    2833
    Versione Office
    Excel 2013
    Likes ricevuti
    1027
    Likes dati
    983

    Re: Estrapolare dati automaticamente da un foglio e riportarli in un altro, ma..

    Grazie del tuo riscontro.
    A presto!

Discussioni Simili

  1. Copiare automaticamente delle celle da un foglio ad un altro
    Di jovi72 nel forum Domande su Excel VBA e MACRO
    Risposte: 7
    Ultimo Messaggio: 23/01/17, 15:13
  2. [Risolto] Calcolare la somma di dati filtrati in tabella su di un altro foglio automaticamente
    Di ortofrutta_palladino nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 17/11/16, 00:13
  3. Risposte: 14
    Ultimo Messaggio: 16/11/16, 20:36
  4. Risposte: 10
    Ultimo Messaggio: 08/11/16, 15:13
  5. Cercare valori in un foglio e riportarli in un altro con tutti i duplicati
    Di lala10 nel forum Domande su Excel in generale
    Risposte: 15
    Ultimo Messaggio: 07/05/16, 00:26

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
  •