Risultati da 1 a 13 di 13

Discussione: Salvare i dati di un giorno sotto la colonna dello stesso giorno.



  1. #1
    L'avatar di Laura Belli
    Clicca e Apri
    Data Registrazione
    Jun 2015
    LocalitÓ
    Belgio
    EtÓ
    33
    Messaggi
    153
    Versione Office
    excel 2007
    Likes ricevuti
    2
    Likes dati
    5

    Salvare i dati di un giorno sotto la colonna dello stesso giorno.

    Nel file di esempio ho messo tutto in diversi fogli ma dovrebbero essere diversi file.
    Nel foglio "file inserimento dati" ho il 3 gennaio.
    Mi dovrebbe copiare tutto nel giorno 3 gennaio nel foglio "File giorni".
    Poi richiudermi il tutto e salvare.


    Troppo complicato?

    Un saluto a tutti
    File Allegati File Allegati
    Una bella giornata a tutti i fanatici di qualcosa ...

  2. #2
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    LocalitÓ
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160

    Re: Salvare i dati di un giorno sotto la colonna dello stesso giorno.

    Buona giornata, Laura;
    non voglio stressarti, ma stavo guardando il Tuo File.

    @ Laura Bella, scrive:
    ... Mi dovrebbe copiare tutto nel giorno 3 gennaio nel foglio "File giorni".
    Mi sembra di capire ti rifersca solo alle Voci:
    - VWR Lossen Uren
    - VWR Lossen Aantal
    - VWR Lossen Media

    - VWR Laden Uren
    - VWR Laden Aantal
    - VWR Laden Media

    In questo caso, quello che chiedi Ŕ fattibile, sia nello stesso File che su un File esterno, quello che non mi Ŕ chiaro, quale Ŕ il Range da considerare per "Media"


    A disposizione.

    Buon Lavoro e buona serata.

    Giuseppe
    Windows XP Excel 2000 - Windows 10 Excel 2013

  3. #3
    L'avatar di Laura Belli
    Clicca e Apri
    Data Registrazione
    Jun 2015
    LocalitÓ
    Belgio
    EtÓ
    33
    Messaggi
    153
    Versione Office
    excel 2007
    Likes ricevuti
    2
    Likes dati
    5

    Re: Salvare i dati di un giorno sotto la colonna dello stesso giorno.

    Ma quale stress il tuo aiuto vale di pi¨.
    La media dovrei prenderla da E3 nel foglio inserimento dati. Avevo dimenticato di inserire una colonna media.
    Quella delle voci che dici tu sono solo 6 campi,ma se vedi il foglio "file inserimento dati" vedi che tutti dovrebbero essere salvati.
    Una bella giornata a tutti i fanatici di qualcosa ...

  4. #4
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    LocalitÓ
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160

    Re: Salvare i dati di un giorno sotto la colonna dello stesso giorno.

    Buona sera, Laura.
    Temo di essere fuori strada, in ogni caso ho provato con queste Formule; nel Foglio di lavoro "File giorni":
    Cella "C2" =SE(C$1<>'File inserimento dati'!$E$1;"";'File inserimento dati'!$C$4)
    Cella "C3" =SE(C$1<>'File inserimento dati'!$E$1;"";'File inserimento dati'!$D$4)
    Cella "C4" =SE(C$1<>'File inserimento dati'!$E$1;"";'File inserimento dati'!$E$3) (???)
    Cella "C5" =SE(C$1<>'File inserimento dati'!$E$1;"";'File inserimento dati'!$C$5)
    Cella "C6" =SE(C$1<>'File inserimento dati'!$E$1;"";'File inserimento dati'!$D$5)
    Cella "C7" =SE(C$1<>'File inserimento dati'!$E$1;"";'File inserimento dati'!$E$5) (???)

    Tutte da copiare nelle Celle di destra.


    Ovviamente il tutto andrÓ codificato in VBA:
    - aprendo il File esterno dedicato
    - inserendo, in automatico, i Valori
    - salvando il File esterno
    - chiudendo, sempre in automatico, il File esterno

    Nel caso in cui, peraltro molto probabile, la mia interpretazione non sia corretta, se lo ritieni opportuno, potresti allegare un File riportando manualmente il risultato richiesto.



    A disposizione.

    Buona serata.

    Giuseppe
    Windows XP Excel 2000 - Windows 10 Excel 2013

  5. #5
    L'avatar di Laura Belli
    Clicca e Apri
    Data Registrazione
    Jun 2015
    LocalitÓ
    Belgio
    EtÓ
    33
    Messaggi
    153
    Versione Office
    excel 2007
    Likes ricevuti
    2
    Likes dati
    5

    Re: Salvare i dati di un giorno sotto la colonna dello stesso giorno.

    Citazione Originariamente Scritto da GiuseppeMN Visualizza Messaggio
    Buona sera, Laura.
    Temo di essere fuori strada, in ogni caso ho provato con queste Formule; nel Foglio di lavoro "File giorni":
    Cella "C2" =SE(C$1<>'File inserimento dati'!$E$1;"";'File inserimento dati'!$C$4)
    Cella "C3" =SE(C$1<>'File inserimento dati'!$E$1;"";'File inserimento dati'!$D$4)
    Cella "C4" =SE(C$1<>'File inserimento dati'!$E$1;"";'File inserimento dati'!$E$3) (???)
    Cella "C5" =SE(C$1<>'File inserimento dati'!$E$1;"";'File inserimento dati'!$C$5)
    Cella "C6" =SE(C$1<>'File inserimento dati'!$E$1;"";'File inserimento dati'!$D$5)
    Cella "C7" =SE(C$1<>'File inserimento dati'!$E$1;"";'File inserimento dati'!$E$5) (???)

    Tutte da copiare nelle Celle di destra.


    Ovviamente il tutto andrÓ codificato in VBA:
    - aprendo il File esterno dedicato
    - inserendo, in automatico, i Valori
    - salvando il File esterno
    - chiudendo, sempre in automatico, il File esterno

    Nel caso in cui, peraltro molto probabile, la mia interpretazione non sia corretta, se lo ritieni opportuno, potresti allegare un File riportando manualmente il risultato richiesto.



    A disposizione.

    Buona serata.

    Giuseppe
    Hey Giuseppe rieccomi dopo una giornata di lavoro.

    Ho allagato il file. E ho cambiato qualche cosa magari pi¨ facile da applicare.
    Ho messo come esempio il 3 gennaio.

    Ma tanto per sapere ,quando hai tutti quelle formule non rallenta il programma? ho vba poi li cancella?

    Grazie per il tuo interesse e aiuto
    File Allegati File Allegati
    Una bella giornata a tutti i fanatici di qualcosa ...

  6. #6
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    LocalitÓ
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160

    Re: Salvare i dati di un giorno sotto la colonna dello stesso giorno.

    Buona giornata, Laura;
    nel caso in esame, nel momento in cui scrivi un Codice VBA, non ci saranno pi¨ Formule se non quelle che hai utilizzato, per il calcolo della "Media", nei Fogli di lavoro:
    - Blad

    Codice: 
    Option Explicit
    
    Sub Analizza_Data()
    Application.ScreenUpdating = False
    Dim NGg As Long
    Dim x As Integer
    Dim y As Byte
    Dim Bld As String
    
        Bld = ActiveSheet.Name
            With Worksheets(Bld)
                    Sheets("File inserimento dati").Select
                        y = 4
                For x = 3 To 29 Step 3
                    Cells(x, 3) = .Cells(y, 3).Value
                    Cells(x + 1, 3) = .Cells(y, 4).Value
                    Cells(x + 2, 3) = .Cells(y, 5).Value
                        y = y + 1
                Next x
                    Cells(2, 5) = .Cells(1, 5).Value
                    Cells(2, 6) = .Cells(1, 6).Value
                    Cells(5, 10) = .Cells(3, 13).Value
                    Cells(7, 10) = .Cells(5, 13).Value
                    Cells(9, 10) = .Cells(7, 13).Value
            End With
            
            With Worksheets("File inserimento dati")
            
        Sheets("File giorni").Select
            NGg = Cells(1, Columns.Count).End(xlToLeft).Column
                For x = 2 To NGg
                    If Cells(1, x) = .Cells(2, 5) Then Exit For
                Next x
                    For y = 3 To 29
                        Cells(y - 1, x) = .Cells(y, 3).Value
                    Next y
    End With
    Application.ScreenUpdating = True
        Cells(2, x).Select
    End Sub
    Nel Foglio di lavoro "File inserimento dati", nel NomeFoglio, ho tolto il trattino finale, poi vedi Tu.

    Sono partito dal concetto che esisteranno diversi Fogli di Lavoro "Blad" (Blad1, Blad2, Blad3, Ecc...)
    Se questo tipo di interpretazione Ŕ corretta, considera che la gestione dei "Blad" dipenderÓ molto dal numero di Fogli di lavoro "Blad" utilizzati; ma questa, Ŕ un'altra storia.

    A titolo di esempio ho previsto solo tre "Blad".

    Dopo aver attivato, tramite il Pulsante "Analizza" il Codice VBA, verranno compilati tutti i campi nei Fogli di lavoro "File giorni" e "File inserimento dati".
    Il Foglio di lavoro "File giorni" sarÓ lo storico di tutti i "Blad", mentre, il Foglio di lavoro "File inserimento dati", e solo quello, sarÓ salvato come File esterno.
    Per il momento,in attesa di conoscere la Path di destinazione (percorso completo), ho preferito trascurare la fase di salvataggio del solo "File inserimento dati", ma, credimi, Ŕ veramente una banalitÓ.



    A disposizione.

    Buon Lavoro e buona serata.

    Giuseppe
    Windows XP Excel 2000 - Windows 10 Excel 2013

  7. #7
    L'avatar di Laura Belli
    Clicca e Apri
    Data Registrazione
    Jun 2015
    LocalitÓ
    Belgio
    EtÓ
    33
    Messaggi
    153
    Versione Office
    excel 2007
    Likes ricevuti
    2
    Likes dati
    5

    Re: Salvare i dati di un giorno sotto la colonna dello stesso giorno.

    Citazione Originariamente Scritto da GiuseppeMN Visualizza Messaggio
    Buona giornata, Laura;
    nel caso in esame, nel momento in cui scrivi un Codice VBA, non ci saranno pi¨ Formule se non quelle che hai utilizzato, per il calcolo della "Media", nei Fogli di lavoro:
    - Blad

    Codice: 
    Option Explicit
    
    Sub Analizza_Data()
    Application.ScreenUpdating = False
    Dim NGg As Long
    Dim x As Integer
    Dim y As Byte
    Dim Bld As String
    
        Bld = ActiveSheet.Name
            With Worksheets(Bld)
                    Sheets("File inserimento dati").Select
                        y = 4
                For x = 3 To 29 Step 3
                    Cells(x, 3) = .Cells(y, 3).Value
                    Cells(x + 1, 3) = .Cells(y, 4).Value
                    Cells(x + 2, 3) = .Cells(y, 5).Value
                        y = y + 1
                Next x
                    Cells(2, 5) = .Cells(1, 5).Value
                    Cells(2, 6) = .Cells(1, 6).Value
                    Cells(5, 10) = .Cells(3, 13).Value
                    Cells(7, 10) = .Cells(5, 13).Value
                    Cells(9, 10) = .Cells(7, 13).Value
            End With
            
            With Worksheets("File inserimento dati")
            
        Sheets("File giorni").Select
            NGg = Cells(1, Columns.Count).End(xlToLeft).Column
                For x = 2 To NGg
                    If Cells(1, x) = .Cells(2, 5) Then Exit For
                Next x
                    For y = 3 To 29
                        Cells(y - 1, x) = .Cells(y, 3).Value
                    Next y
    End With
    Application.ScreenUpdating = True
        Cells(2, x).Select
    End Sub
    Nel Foglio di lavoro "File inserimento dati", nel NomeFoglio, ho tolto il trattino finale, poi vedi Tu.

    Sono partito dal concetto che esisteranno diversi Fogli di Lavoro "Blad" (Blad1, Blad2, Blad3, Ecc...)
    Se questo tipo di interpretazione Ŕ corretta, considera che la gestione dei "Blad" dipenderÓ molto dal numero di Fogli di lavoro "Blad" utilizzati; ma questa, Ŕ un'altra storia.

    A titolo di esempio ho previsto solo tre "Blad".

    Dopo aver attivato, tramite il Pulsante "Analizza" il Codice VBA, verranno compilati tutti i campi nei Fogli di lavoro "File giorni" e "File inserimento dati".
    Il Foglio di lavoro "File giorni" sarÓ lo storico di tutti i "Blad", mentre, il Foglio di lavoro "File inserimento dati", e solo quello, sarÓ salvato come File esterno.
    Per il momento,in attesa di conoscere la Path di destinazione (percorso completo), ho preferito trascurare la fase di salvataggio del solo "File inserimento dati", ma, credimi, Ŕ veramente una banalitÓ.



    A disposizione.

    Buon Lavoro e buona serata.

    Giuseppe

    Giuseppe a prima vista Ŕ perfetto. Fra 10 minuti mi leggo la macro e provo a capirla.
    Il blad di inserimento a dire il vero sarÓ solo uno,che una volta compilato tutto mi dovrebbe salvare il tutto del file che
    come dici tu sara storico "File giorni".

    Grazie tanto ancora per la costanza
    Una bella giornata a tutti i fanatici di qualcosa ...

  8. #8
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    LocalitÓ
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160

    Re: Salvare i dati di un giorno sotto la colonna dello stesso giorno.

    Buona giornata, Laura.

    @ Laura Belli, scrive:
    ... una volta compilato tutto mi dovrebbe salvare il tutto del file che
    come dici tu sara storico "File giorni".
    Urca!!! , pensavo che il File esterno da salvare fosse quello con il solo Foglio di lavoro "File inserimento dati"; il Foglio di lavoro "File giorni" conterrÓ lo storico, senza Formule, e pu˛ essere tranquillamente gestito dal File di appartenenza, per intenderci, quello in cui risiedono i Fogli di lavoro:
    - File giorni
    - Blad
    - File inserimento dati

    Ma l'etÓ Ŕ quella che Ŕ , e di certo, non mi aiuata .



    A disposizione.

    Buon Lavoro e buona serata.

    Giuseppe
    Windows XP Excel 2000 - Windows 10 Excel 2013

  9. #9
    L'avatar di Laura Belli
    Clicca e Apri
    Data Registrazione
    Jun 2015
    LocalitÓ
    Belgio
    EtÓ
    33
    Messaggi
    153
    Versione Office
    excel 2007
    Likes ricevuti
    2
    Likes dati
    5

    Re: Salvare i dati di un giorno sotto la colonna dello stesso giorno.

    Giuseppe sono io che faccio troppa confusione forse hihi.
    Comunque vorrei sapere se Ŕ possibile che il giorno ad esempio 1 gennaio mi cercasse il dile denominato gennaio2016 e poi inserisse il giorno?
    PerchŔ ho pensato di dividere tutto in mesi in file differenti.
    Sono curiosa
    Una bella giornata a tutti i fanatici di qualcosa ...

  10. #10
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    LocalitÓ
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160

    Re: Salvare i dati di un giorno sotto la colonna dello stesso giorno.

    Buon pomeriggio, Laura;
    @ Laura Belli, chiede:
    ... Ŕ possibile che il giorno ad esempio 1 gennaio mi cercasse il dile denominato gennaio2016 e poi inserisse il giorno?
    Credo proprio si possa fare; ora sto uscendo, ma, prima di sera, vedo cosa posso fare.


    Giuseppe
    Windows XP Excel 2000 - Windows 10 Excel 2013

  11. #11
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    LocalitÓ
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160

    Re: Salvare i dati di un giorno sotto la colonna dello stesso giorno.

    Buona sera, Laura;
    questo Ŕ quello a cui avevo pensato.

    Dovresti solo adattare il Percorso:
    - "C:\Forum#6\Laura Belli\Mesi\"
    con il la Tua Directory (Cartella) di riferimento.

    Solo un dubbio, sai sono un gran rompiscatole, a questo punto, vorrei capire a cosa serve il Foglio di lavoro "File inserimento dati"?; mi sembra di capire che, tutti i Dati verranno inseriti nel Foglio di lavoro "Blad" e memorizzati nel Foglio di lavoro "File giorni".

    Grazie della Tua pazienza.




    A disposizione.

    Buona serata.

    Giuseppe
    Windows XP Excel 2000 - Windows 10 Excel 2013

  12. #12
    L'avatar di Laura Belli
    Clicca e Apri
    Data Registrazione
    Jun 2015
    LocalitÓ
    Belgio
    EtÓ
    33
    Messaggi
    153
    Versione Office
    excel 2007
    Likes ricevuti
    2
    Likes dati
    5

    Re: Salvare i dati di un giorno sotto la colonna dello stesso giorno.

    Giuseppe sono io che ti dico grazie per la pazienza e gentilezza.
    Io avevo in mente 2 file. Uno dove apre la userform e inserisco i dati,e un file
    come archivio per poi poter analizzare i dati. Li ho pensati separati per non appesantirli.

    Visto che sono 8 clienti e tanti tipi di lavori.

    Per giorno ci saranno miglia di dati.

    Ora divento pazza per poterli mettere in un ordine giusto per poi inserirli nel database.

    ps oprmai dopo lavoro Ŕ questo il mio posto

    Buonanotte Giuseppe

    Hihi rieccomi qualche minuto dopo.

    Ma Ŕ anche fattibile salvare tutti i giorni in una cartella?
    Una bella giornata a tutti i fanatici di qualcosa ...

  13. #13
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    LocalitÓ
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160

    Re: Salvare i dati di un giorno sotto la colonna dello stesso giorno.

    Buona giornata, Laura.

    Citazione Originariamente Scritto da Laura Belli Visualizza Messaggio
    ... Io avevo in mente 2 file. Uno dove apre la userform e inserisco i dati,e un file
    come archivio per poi poter analizzare i dati. Li ho pensati separati per non appesantirli.
    A proposito in:
    http://www.forumexcel.it/forum/7-dom...osta-un-totale
    Sei poi riuscita a risolvere il proble UserForm?
    La ProprietÓ ShowModal = False, ha risolto, almeno in parte il problema?

    Citazione Originariamente Scritto da Laura Belli Visualizza Messaggio
    ... Ma Ŕ anche fattibile salvare tutti i giorni in una cartella?
    Diciamo che preferivo il Mese, dava una visione globale del trend, ma visto che ... "Il Cliente ha sempre ragione!" ... allego il File Rev 03.

    Visto che, credo la Discussione volga al termine, come da prassi, allego anche il Codice VBA; sicuramente esiste un Codice pi¨ performante, ma, tant'Ŕ.

    Codice: 
    Option Explicit
    
    Sub Analizza_Data()
    Application.ScreenUpdating = False
    Dim NGg As Long
    Dim x As Integer, YrX As Integer
    Dim y As Byte, Mnt As Byte, DDy As Byte
    Dim Bld As String, NFl As String
    Const Pth As String = "C:\Forum#6\Laura Belli\Giorni\"
    
        Cells(4, 3).Select
        Bld = ActiveSheet.Name
        DDy = Day(Cells(1, 5))
        Mnt = Month(Cells(1, 5))
        YrX = Year(Cells(1, 5))
            With Worksheets(Bld)
                    Sheets("File inserimento dati").Select
                        y = 4
                For x = 3 To 29 Step 3
                    Cells(x, 3) = .Cells(y, 3).Value
                    Cells(x + 1, 3) = .Cells(y, 4).Value
                    Cells(x + 2, 3) = .Cells(y, 5).Value
                        y = y + 1
                Next x
                    Cells(2, 5) = .Cells(1, 5).Value
                    Cells(2, 6) = .Cells(1, 6).Value
                    Cells(5, 10) = .Cells(3, 13).Value
                    Cells(7, 10) = .Cells(5, 13).Value
                    Cells(9, 10) = .Cells(7, 13).Value
            End With
            
            With Worksheets("File inserimento dati")
            
        Sheets("File giorni").Select
            NGg = Cells(1, Columns.Count).End(xlToLeft).Column
                For x = 3 To NGg
                    If Cells(1, x) = .Cells(2, 5) Then Exit For
                Next x
                    For y = 3 To 29
                        Cells(y - 1, x) = .Cells(y, 3).Value
                    Next y
    End With
            
        Sheets("File giorni").Copy
        Sheets("File giorni").Name = Cells(1, 1).Value
        
        Rows("1").Copy
        Rows("1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Application.CutCopyMode = False
            For x = NGg To 3 Step -1
                If Month(Cells(1, x)) <> Mnt Or Year(Cells(1, x)) <> YrX Or Day(Cells(1, x)) <> DDy Then Cells(1, x).EntireColumn.Delete
            Next x
                Cells(2, x).Select
            NFl = Cells(1, 1)
    Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs Filename:=Pth & NFl & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
        ActiveWindow.Close
    Application.DisplayAlerts = True
        Sheets("Blad").Select
            MsgBox "Il File: " & NFl & " Ŕ disponibile in: " & Pth
    Application.ScreenUpdating = True
    End Sub
    Spero sia d'aiuto.


    A disposizione.

    Buon Lavoro e buon fine settimana.

    Giuseppe
    Windows XP Excel 2000 - Windows 10 Excel 2013

Discussioni Simili

  1. Casella abbinata sempre allo stesso giorno
    Di svizzera nel forum Domande su Excel in generale
    Risposte: 15
    Ultimo Messaggio: 31/12/16, 09:20
  2. [Risolto] Estrarre da testo giorno, mese e giorno settimana.
    Di alfrimpa nel forum Domande su Excel in generale
    Risposte: 5
    Ultimo Messaggio: 20/12/16, 17:39
  3. usare funzione "giorno lavorativo" con frazioni di giorno
    Di CaesarIII nel forum Domande su Excel in generale
    Risposte: 16
    Ultimo Messaggio: 25/09/16, 00:23
  4. Stampare vari range dello stesso foglio
    Di Vincenzo Damiani nel forum Domande su Excel VBA e MACRO
    Risposte: 6
    Ultimo Messaggio: 11/09/16, 23:19
  5. Classifica con pi¨ prove dello stesso partecipante
    Di Alfetto nel forum Domande su Excel in generale
    Risposte: 27
    Ultimo Messaggio: 19/05/16, 01:23

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
  •