Risultati da 1 a 23 di 23

Discussione: Archiviare i dati tutte le possibili soluzioni



  1. #1
    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
    1125

    Archiviare i dati tutte le possibili soluzioni

    Ciao a tutti Ragazzi
    Premetto che ciò che vi chiedo so già farlo con il registratore di macro, ma visto che sto studiando un po di VBA, vorrei sapere quanti metodi (escludendo le UserForm) ci sono di poter archiviare i dati, cioè che tipo di ruotine fareste per questo esempio?
    in questo primo foglio ho il "DataEntry" (immagine1) e poi una volta compilato, con un pulsante andrò ad eseguire la macro e mi archivierà in dati nel foglio "DataBase" (immagine 2).


    Immagine 1

    D
    E
    10
    Nome ..........................
    11
    Cognome
    12
    Indirizzo
    13
    Città
    14
    Scadenza
    15
    ora
    Sheet: DataEntry






    Immagine 2


    A
    B
    C
    D
    E
    F
    1
    Nome Cognome Indirizzo Città Scadenza ora
    2
    Giorgia Rossi Via M.Bianco 133 Venezia
    martedì 17 marzo 2015
    23:00
    3
    Lucia Verdi Via tonale 10 Genova
    mercoledì 18 marzo 2015
    00:00
    4
    Anna Bianchi Piazza Gasparri 3 Milano
    giovedì 19 marzo 2015
    01:00
    5
    Miky Brambilla Via Lunigiana 20 Ancona
    venerdì 20 marzo 2015
    02:00
    6
    Luca Esposito Piazza Roma 11 Roma
    sabato 21 marzo 2015
    03:00
    7
    Grazia Lombardi Via Milano 32 Bari
    domenica 22 marzo 2015
    04:00
    8
    Nicola Dibari Via teano 20 Lecce
    lunedì 23 marzo 2015
    05:00
    9
    Ezio La porta Via teano 21 Catanzaro
    martedì 24 marzo 2015
    06:00
    10
    Giovanni Casanova Via teano 22 Enna
    mercoledì 25 marzo 2015
    07:00
    11
    Giulia Zucchi Via teano 23 Bolzano
    giovedì 26 marzo 2015
    08:00
    12
    Jenny Colombo Via tonale 10 Trieste
    venerdì 27 marzo 2015
    09:00
    13
    Angelo Piccione Via tonale 11 Torino
    sabato 28 marzo 2015
    10:00
    14
    Viola Casulli Via tonale 12 Rimini
    domenica 29 marzo 2015
    11:00
    15
    Carmelo DeRosa Via tonale 13 Bologna
    lunedì 30 marzo 2015
    12:00
    16
    Angela DiGrazia Via tonale 14 Potenza
    martedì 31 marzo 2015
    13:00
    17
    Gigi Laurio Via Milano 32 Matera
    giovedì 23 aprile 2015
    14:00
    Sheet: DataBase


    Grazie per la vostra consulenza
    File Allegati File Allegati

  2. #2
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Torino
    Età
    56
    Messaggi
    383
    Versione Office
    2013
    Likes ricevuti
    44
    Likes dati
    0

    Re: Archiviare i dati tutte le possibili soluzioni

    Ciao Gerardo ascolta ora sono con il mio Smart Phon pero se guardi in una delle mie discussioni , che avevo risposto ad una certa Daniela .
    C'era una cosa che potrebbe fare al caso tuo.
    Ciao e Fammi sapere. Saluti da Maurizio

  3. #3

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7106
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2059
    Likes dati
    1296

    Re: Archiviare i dati tutte le possibili soluzioni

    Ciao Gerardo,
    io per il tuo caso userei questa sub:

    Codice: 
    Option Explicit
    Sub archivia()
    Dim wks1 As Worksheet, wks2 As Worksheet, uRiga As Long, y As Integer
        Set wks1 = Worksheets("DataEntry")
        Set wks2 = Worksheets("Database")
            uRiga = wks2.Cells(Rows.Count, 1).End(xlUp).Row + 1
                For y = 1 To 6
                    wks2.Cells(uRiga, y) = wks1.Cells(y + 9, 5)
                    wks1.Cells(y + 9, 5) = ""
                Next
            MsgBox "Dati archiviati", vbInformation, "AVVISO"
        Set wks1 = Nothing
        Set wks2 = Nothing
    End Sub
    File Allegati File Allegati
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  4. #4

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

    Re: Archiviare i dati tutte le possibili soluzioni

    Io in maniera rapida avvierei un ciclo, dopo aver trovato l'ultima riga vuota del DataBase, che scorre le 6 colonne così:
    Codice: 
    Sub Archivia()
    Dim iRow As Long
    Dim iCount As Integer
    
    
    iRow = Foglio2.Range("A" & Rows.Count).End(xlUp).Row + 1
    
    
    For iCount = 1 To 6
        Foglio2.Cells(iRow, iCount) = Foglio1.Range("e10:e15").Cells(iCount)
    Next
    End Sub
    un unica accortezza, la formattazione per tutta la colonna Scadenze in formato data estesa e la colonna ora in formato orario (così si evita di farlo fare la VBA per ogni record)

  5. #5
    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
    1125

    Re: Archiviare i dati tutte le possibili soluzioni

    Uhmm :235:
    Intanto grazie per le vostre lezioni
    Ho visto che avete messo tutte e due il cicli for next, anche se non mi è affatto chiaro (1 to 6) ho provato con il tasto F8 ma rimango in alto mare

    @Rubik72 Quando create le variabili scrivete la lettera minuscola e poi maiuscola esempio iRow questo è necessario? o si potrebbe scrivere qualsiasi nome della variabile esempio Tizio, Caio, Sempronio?

    @ges perchè scrivi (Set wks1 = Nothing, Set wks2 = Nothing) alla fine?
    grazie

  6. #6
    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
    1125

    Re: Archiviare i dati tutte le possibili soluzioni

    Ciao Maurizio
    ho provato ad aprire il file di Daniela con il link esterno "Box" ma era vuoto
    grazie comunque

  7. #7

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7106
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2059
    Likes dati
    1296

    Re: Archiviare i dati tutte le possibili soluzioni

    Citazione Originariamente Scritto da Gerardo Zuccalà Visualizza Messaggio
    Uhmm :235:
    Intanto grazie per le vostre lezioni
    Ho visto che avete messo tutte e due il cicli for next, anche se non mi è affatto chiaro (1 to 6) ho provato con il tasto F8 ma rimango in alto mare

    @Rubik72 Quando create le variabili scrivete la lettera minuscola e poi maiuscola esempio iRow questo è necessario? o si potrebbe scrivere qualsiasi nome della variabile esempio Tizio, Caio, Sempronio?

    @ges perchè scrivi (Set wks1 = Nothing, Set wks2 = Nothing)
    grazie
    Il ciclo 1 to 6 sono le sei celle dei dati:

    Nome
    Cognome
    Indirizzo
    Città
    Scadenza
    ora

    - La lettera maiuscola è solo iRow ... uRiga ecc. è solo questione di stile, sono delle variabili le puoi scrivere come vuoi maiuscole, minuscole o miste.

    - Set wks1 = Nothing, Set wks2 = Nothing lo scrivo perchè avevo assegnato questi oggetti an nome wks e alla fine lo "sgancio" .

    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  8. I seguenti utenti hanno dato un "Like"


  9. #8
    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
    1125

    Re: Archiviare i dati tutte le possibili soluzioni

    ok chiaro

    Ma questa variabile come me la traduci?

    Codice: 
    uRiga = wks2.Cells(Rows.Count, 1).End(xlUp).Row + 1

  10. #9

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6747
    Versione Office
    2013
    Likes ricevuti
    711
    Likes dati
    162

    Re: Archiviare i dati tutte le possibili soluzioni

    In uRiga viene memorizzato il numero della riga della prima cella vuota della colonna A.

    Alfredo

  11. #10
    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
    1125

    Re: Archiviare i dati tutte le possibili soluzioni

    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    In uRiga viene memorizzato il numero della riga della prima cella vuota della colonna A.

    Alfredo
    scusami non ho capito, perchè colonna A?

  12. #11

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7106
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2059
    Likes dati
    1296

    Re: Archiviare i dati tutte le possibili soluzioni

    Citazione Originariamente Scritto da Gerardo Zuccalà Visualizza Messaggio
    ok chiaro

    Ma questa variabile come me la traduci?

    Codice: 
    uRiga = wks2.Cells(Rows.Count, 1).End(xlUp).Row + 1
    uRiga (l'ho definita così ultima riga) è uguale a

    wks -> (cioè foglio Database)

    conta le righe nella colonna A (cioè 1) -> Cells(Rows.Count, 1)

    l'ultima della colonna A ->
    End

    quindi verso l'alto -> (xlUp)


    fino a quando trova la prima riga occupata

    a questo punto per scrivere nella prima riga libera aggiungo +1
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  13. #12

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7106
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2059
    Likes dati
    1296

    Re: Archiviare i dati tutte le possibili soluzioni

    Citazione Originariamente Scritto da Gerardo Zuccalà Visualizza Messaggio
    scusami non ho capito, perchè colonna A?
    Ho scelto la colonna A per comodità ma potevo scegliere dalla A alla F a piacimento visto che mi interessava scrivere dopo l'ultima riga piena.

    Si può scrivere usando cells

    uRiga = wks2.Cells(Rows.Count, 1).End(xlUp).Row

    o range

    uRiga = wks2.range("A" & Rows.Count).End(xlUp).Row
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  14. #13
    L'avatar di rollis13
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Cordenons
    Messaggi
    809
    Versione Office
    2016 64bit
    Likes ricevuti
    142
    Likes dati
    52

    Re: Archiviare i dati tutte le possibili soluzioni

    Trattandosi di una semplice trasposizione di dati farei semplicemente così:
    Codice: 
    Option Explicit
    
    Sub Copia()
    
        Sheets("DataEntry").Range("E10:E15").Copy
        Sheets("DataBase").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
    
    End Sub

  15. #14

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

    Re: Archiviare i dati tutte le possibili soluzioni

    Le variabili con alcune lettere maiuscole oltre a essere più leggibile (come dice Ges che saluto) serve anche a trovare errori di battitura durante la scrittura infatti dopo aver dichiarato la variabile e la si scrive in minuscolo nel modulo dopo l'invio la variabile se correttamente scritta, si correggerà con le maiuscole come la dichiarazione.
    La variabile uRiga ricerca l'ultima riga del foglio (rows.count) della colonna A, poi va su come la sequenza di tasti CTRL+freccia su e identifica la riga (.row)

    Inviato dal mio Nexus 7 utilizzando Tapatalk

  16. #15
    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
    1125

    Re: Archiviare i dati tutte le possibili soluzioni

    uRiga (l'ho definita così ultima riga) è uguale a

    wks -> (cioè foglio Database)

    conta le righe nella colonna A (cioè 1) -> Cells(Rows.Count, 1)

    l'ultima della colonna A ->
    End
    ma le righe sono 10.000.000??

    quindi verso l'alto -> (xlUp)
    pazzesco

    fino a quando trova la prima riga occupata

    a questo punto per scrivere nella prima riga libera aggiungo +1

  17. #16
    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
    1125

    Re: Archiviare i dati tutte le possibili soluzioni

    Credo che la soluzione di Rollys è la più semplice e comprensibile, senza variabili
    Rollis non posso mettere mi piace perchè li ho finiti (solo 5 a disposizione)
    comunque grazie per la buona scuola di Rubik e ges

  18. #17

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7106
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2059
    Likes dati
    1296

    Re: Archiviare i dati tutte le possibili soluzioni

    Esatto, nelle ultime versioni d excel le righe sono 1048576 e il codice parte proprio da quest'ultima riga verso l'alto ... ma non è pazzesco .. stiamo parlando di vba .. sarebbe pazzesco con le formule!
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  19. #18

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7106
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2059
    Likes dati
    1296

    Re: Archiviare i dati tutte le possibili soluzioni

    Citazione Originariamente Scritto da Gerardo Zuccalà Visualizza Messaggio
    Credo che la soluzione di Rollys è la più semplice e comprensibile, senza variabili
    ..
    In questo caso la soluzione di Rollis (che ricambio il saluto) funziona perfettamente visto che i dati sono a seguire, unica cosa, se Rollis permette, per togliere la selezione, aggiungerei prima di end sub questa riga:
    Codice: 
    Application.CutCopyMode = False
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  20. #19
    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
    1125

    Re: Archiviare i dati tutte le possibili soluzioni

    Codice: 
    Sub Copia()
    
        Sheets("DataEntry").Range("E10:E15").Copy
        Sheets("DataBase").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
        Sheets("DataEntry").Range("E10:E15").ClearContents
        Application.CutCopyMode = False
        Sheets("DataEntry").Range("E10").Select
        
    End Sub
    Ragazzi Ho scelto, prendo il codice di Rolly più comprensibile, anche se io aggiungerei due righe ancora (vedi in rosso)
    Grazie a tutti Questo topic è risolto

  21. #20
    L'avatar di rollis13
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Cordenons
    Messaggi
    809
    Versione Office
    2016 64bit
    Likes ricevuti
    142
    Likes dati
    52

    Re: Archiviare i dati tutte le possibili soluzioni

    Se intendi ripulire e/o riposizionarti a quel punto non serve più la riga Application.CutCopyMode = False

  22. #21
    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
    1125

    Re: Archiviare i dati tutte le possibili soluzioni

    Citazione Originariamente Scritto da rollis13 Visualizza Messaggio
    Se intendi ripulire e/o riposizionarti a quel punto non serve più la riga Application.CutCopyMode = False
    Perfetto risparmiamo una riga...:167:

  23. #22

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6747
    Versione Office
    2013
    Likes ricevuti
    711
    Likes dati
    162

    Re: Archiviare i dati tutte le possibili soluzioni

    Citazione Originariamente Scritto da Gerardo Zuccalà Visualizza Messaggio
    scusami non ho capito, perchè colonna A?

    Mi rendo conto di essere stato troppo "sintetico" nella spiegazione :167: ma Ges ha subito rimediato.

    Alfredo

  24. #23
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Torino
    Età
    56
    Messaggi
    383
    Versione Office
    2013
    Likes ricevuti
    44
    Likes dati
    0

    Re: Archiviare i dati tutte le possibili soluzioni

    Hai perfettamente Ragione gerardo , il File era stato Rimosso Ma ora e stato dinuovo Ripristinato , Se vuoi darci un occhiata , mi farebbe molto Piacere.
    Però anche a te consiglio che non appena hai aperto il file prima di Compiere qualsiasi azione di leggerti attentamente l'Halt.
    Per fare questo non devi fare altro che andare sulla cella Classificata come (Help) e fare un click li sopra con il tuo mouse.
    Ciao e alla prossima da A.Maurizio il link di Scarico è :
    https://app.box.com/s/odpxasvqzmwgmzf5tozfatjqgsrbe9jq

Discussioni Simili

  1. [Risolto] Archiviare dati di più celle
    Di fantamax71 nel forum Domande su Excel VBA e MACRO
    Risposte: 9
    Ultimo Messaggio: 18/03/17, 02:13
  2. Macro per archiviare dati
    Di lizz1183 nel forum Domande su Excel VBA e MACRO
    Risposte: 18
    Ultimo Messaggio: 20/08/16, 22:45
  3. macro per ARCHIVIARE DATI
    Di rosarioleotta nel forum Domande su Excel in generale
    Risposte: 1
    Ultimo Messaggio: 25/02/16, 21:23
  4. macro per ARCHIVIARE DATI
    Di rosarioleotta nel forum Domande su Excel in generale
    Risposte: 5
    Ultimo Messaggio: 19/02/16, 20:16
  5. macro per ARCHIVIARE DATI
    Di rosarioleotta nel forum Domande su Excel VBA e MACRO
    Risposte: 5
    Ultimo Messaggio: 19/02/16, 20:16

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
  •