Risultati da 1 a 6 di 6

Discussione: Trasferire dati



  1. #1
    L'avatar di D@nilo
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Roma
    Età
    45
    Messaggi
    1170
    Versione Office
    Excel 2010
    Likes ricevuti
    509
    Likes dati
    572

    Trasferire dati

    Buonasera a tutti nel file che allego in A1 c'è un elenco nelle altre inserisco gli orari alla fine (in giallo) ci sono le somme degli orari e le conversioni ora vorrei che nell altra griglia mi riporti il dato ho provato con le formule ma occorre vba perché chiaramente quando cambio il nome in a1 nella griglia mi riporta i dati inseriti successivamente ho fatto prove con il registratore ma non riesco ad ottenere il risultato cioè inserire gli orari di tutti ed avere il risultato di ognuno fissato nella cella di riferimento....grazie Danilo
    File Allegati File Allegati

  2. #2

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7160
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2065
    Likes dati
    1301
    Ciao,
    non sono sicuro di aver capito bene.
    Vedi se intendi così (ho scritto il codice in maniera semplice così che ti possa essere comprensibile e adattabile):

    Codice: 
    Sub inserisci()
        With ActiveSheet
            Select Case .Range("A1")
            Case "SPUNTICCIA"
                .Range("K3") = .Range("F17")
                .Range("L3") = .Range("g17")
            Case "FIORINI"
                .Range("K4") = .Range("F17")
                .Range("L4") = .Range("g17")
            Case "ANNESE"
                .Range("K5") = .Range("F17")
                .Range("L5") = .Range("g17")
            Case "CEA"
                .Range("K6") = .Range("F17")
                .Range("L6") = .Range("g17")
            Case "PINTI"
                .Range("K7") = .Range("F17")
                .Range("L7") = .Range("g17")
            Case "NASTASE"
                .Range("K8") = .Range("F17")
                .Range("L8") = .Range("g17")
            Case "PELOSINI"
                .Range("K9") = .Range("F17")
                .Range("L9") = .Range("g17")
            Case "STECCHI"
                .Range("K10") = .Range("F17")
                .Range("L10") = .Range("g17")
            Case "GABRILLO"
                .Range("K11") = .Range("F17")
                .Range("L11") = .Range("g17")
            Case "CHIOCCINI"
                .Range("K12") = .Range("F17")
                .Range("L12") = .Range("g17")
            End Select
        End With
    End Sub
    Scritto in maniera più corta ma forse meno leggibile
    Codice: 
    Sub inserisci2()
        With ActiveSheet
            For y = 3 To 12
                If .Range("J" & y) = .Range("A1") Then
                    .Range("K" & y) = .Range("F17")
                    .Range("L" & y) = .Range("G17")
                End If
            Next
        End With
    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!

  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
    Ciao Ragazzi
    vedendo il risultato della macro di ges che saluto credo che si possa fare anche con le formule
    infatti a volte si può fare a meno del VBA anche perchè le formule potrebbero essere più semplici da creare e non hanno bisogno di pulsanti o quant'altro per eseguirle visto che le formule si attivano istantaneamente

    in K3 metti questa formula trascinala a destra e in basso alla bisogna:

    =SE($J$3:$J$12=$A$1;F$17;"")

    Fatemi sapere! o forse ho capito male la domanda
    Un saluto

  4. #4
    L'avatar di D@nilo
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Roma
    Età
    45
    Messaggi
    1170
    Versione Office
    Excel 2010
    Likes ricevuti
    509
    Likes dati
    572
    grazie GES era il risultato da ottenere....che ora adatto al foglio finale....sempre gentilissimi
    gerardo.... più o meno con le formule l avevo impostato anche io cosi ma il problema era di far rimanere scritto il risultato dell inserimento dei dati che sviluppa poi il foglio....quindi cambiando il nome nella tendina le formule lavorano per quello selezionato....
    P.S.....anche il mio orario sta indietro di due ore......GRAZIE ancora a tutti.....Danilo

  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
    1126
    ciao

    ..anche il mio orario sta indietro di due ore.
    ho settato l'orario mi dici se va bene?
    grazie

  6. #6
    L'avatar di D@nilo
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Roma
    Età
    45
    Messaggi
    1170
    Versione Office
    Excel 2010
    Likes ricevuti
    509
    Likes dati
    572
    Provo a cambiare da impostazioni generali......ma sono sempre indietro di 2 ore......

Discussioni Simili

  1. Trasferire dati automaticamente su due fogli diversi
    Di Dilly nel forum Domande su Excel in generale
    Risposte: 6
    Ultimo Messaggio: 25/07/16, 17:59
  2. Macro per trasferire dati da una colonna in un unica cella...
    Di Danilo nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 03/03/16, 19:24
  3. Trasferire Dati Da Excel a TXT e Viceversa
    Di A.Maurizio nel forum Domande su Excel VBA e MACRO
    Risposte: 6
    Ultimo Messaggio: 04/02/16, 12:36
  4. Trasferire Dati da Excel a Word
    Di A.Maurizio nel forum Domande su Excel VBA e MACRO
    Risposte: 13
    Ultimo Messaggio: 08/01/16, 21:01
  5. Trasferire i dati da un data base (campi e records) verso una tabella incrociata
    Di Gerardo Zuccalà nel forum Domande su Excel in generale
    Risposte: 9
    Ultimo Messaggio: 21/08/15, 07:35

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
  •