Risultati da 1 a 9 di 9

Discussione: modifica macro



  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

    modifica macro

    Buongiorno a tutti nel file che ho costruito (che funziona correttamente) la macro "inserisci"presente nel modulo1 suggeritami da Ges nella discussione trasferire dati una volta inseriti i dati (orari) nella griglia nera spingendo il pulsante associato(quello con lo smile) porta il risultato (J20 K20 L20 M20) nelle celle di destinazione(col p q r s) la domanda è questa: se volessi inviare questi dati nel foglio 2 dove ho messo una griglia identica a quella presente nel foglio1 dove devo intervenire nel codice?, ho fatto diverse prove ma non riesco ad ottenere il risultato...basta l'esempio per un solo nominativo poi lo finisco io.....grazie danilo
    File Allegati File Allegati

  2. #2
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1119
    Versione Office
    2010
    Likes ricevuti
    146
    Likes dati
    1

    Re: modifica macro

    hai allegato un file protetto

  3. #3
    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

    Re: modifica macro

    Vero ho dimenticato di toglierla e'123 sia per il foglio che per i codici. ...Danilo

  4. #4
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1119
    Versione Office
    2010
    Likes ricevuti
    146
    Likes dati
    1

    Re: modifica macro

    Codice: 
    Sub inserisci()
    ActiveSheet.Unprotect "123"
        With ActiveSheet
            Select Case .Range("A3")
            Case "SIMONE SPUNTICCIA"
                Sheets(2).Range("F9") = .Range("L20")
                ecc.

  5. #5

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

    Re: modifica macro

    Ciao sono di fretta e non ho la possibilità di verificare il tuo file,se però il foglio2 corrisponde esattamente al foglio1, basta cambiare la parte in rosso del seguente codice:

    Codice: 
    Sub inserisci()
    Dim wks1 As Worksheet, wks2 As Worksheet
    Set wks1 = Worksheets("Foglio1")
    Set wks2 = Worksheets("Foglio1")
    ActiveSheet.Unprotect "123"
        With wks2
            Select Case .Range("A3")
            Case "SIMONE SPUNTICCIA"
                .Range("P9") = .Range("L20")
                .Range("Q9") = .Range("L20")
                .Range("R9") = .Range("J20")
                .Range("S9") = .Range("J20")
            Case "DANILO FIORINI"
                .Range("P10") = .Range("L20")
                .Range("Q10") = .Range("L20")
                .Range("R10") = .Range("J20")
                .Range("S10") = .Range("J20")
            Case "VINCENZO ANNESE"
                .Range("P11") = .Range("L20")
                .Range("Q11") = .Range("L20")
                .Range("R11") = .Range("J20")
                .Range("S11") = .Range("J20")
            Case "STEFANO CEA"
                .Range("P12") = .Range("L20")
                .Range("Q12") = .Range("M20")
                .Range("R12") = .Range("J20")
                .Range("S12") = .Range("K20")
            Case "STEFANO PINTI"
                .Range("P13") = .Range("L20")
                .Range("Q13") = .Range("M20")
                .Range("R13") = .Range("J20")
                .Range("S13") = .Range("K20")
            Case "ALESSANDRA NASTASE"
                .Range("P14") = .Range("L20")
                .Range("Q14") = .Range("M20")
                .Range("R14") = .Range("J20")
                .Range("S14") = .Range("K20")
            Case "PAMELA PELOSINI"
                .Range("P15") = .Range("L20")
                .Range("Q15") = .Range("M20")
                .Range("R15") = .Range("J20")
                .Range("S15") = .Range("K20")
            Case "MARIO STECCHI"
                .Range("P16") = .Range("L20")
                .Range("Q16") = .Range("M20")
                .Range("R16") = .Range("J20")
                .Range("S16") = .Range("K20")
            Case "MARVY GABRILLO"
                .Range("P17") = .Range("L20")
                .Range("Q17") = .Range("M20")
                .Range("R17") = .Range("J20")
                .Range("S17") = .Range("K20")
            Case "FOGLINERVI RAMONA"
                .Range("P18") = .Range("L20")
                .Range("Q18") = .Range("M20")
                .Range("R18") = .Range("J20")
                .Range("S18") = .Range("K20")
                    ActiveSheet.Protect "123"
               
            End Select
        End With
        Set wks1 = Nothing
        Set wks2 = Nothing
          MsgBox ("AGGIORNAMENTO TERMINATO"), vbInformation, "ATTENZIONE"
    End Sub
    In pratica ho nominato con wks1 il foglio1 e wks2 il foglio 2, basta cambiare quello. Mi fido però di quello che hai detto e cioè che la struttura del foglio2 è uguale a quella del foglio1
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  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

    Re: modifica macro

    Per Ges...ho inserito la macro che hai modificato ma i dati restano sempre nel foglio 1.....Per Patel anche con la modifica proposta da te (praticamente scrivere Sheets("2") davanti al range di destinazione) i dati restano sempre nel foglio1.....sicuramente sbaglio qualcosa....riallego file (con la macro di GES)......Danilo (password 123 sia per foglio che per moduli)
    File Allegati File Allegati

  7. #7

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

    Re: modifica macro

    Ciao Danilo,
    prima ero di fretta e mi era sfuggito il richiamo al foglio1, ora dovrebbe funzionare

    Codice: 
    Sub inserisci()
    Dim wks1 As Worksheet, wks2 As Worksheet
    Set wks1 = Worksheets("Foglio1")
    Set wks2 = Worksheets("Foglio2")
    ActiveSheet.Unprotect "123"
        With wks2
            Select Case wks1.Range("A3")
            Case "SIMONE SPUNTICCIA"
                 .Range("P9") = wks1.Range("L20")
                 .Range("Q9") = wks1.Range("L20")
                 .Range("R9") = wks1.Range("J20")
                 .Range("S9") = wks1.Range("J20")
            Case "DANILO FIORINI"
                 .Range("P10") = wks1.Range("L20")
                 .Range("Q10") = wks1.Range("L20")
                 .Range("R10") = wks1.Range("J20")
                 .Range("S10") = wks1.Range("J20")
            Case "VINCENZO ANNESE"
                 .Range("P11") = wks1.Range("L20")
                 .Range("Q11") = wks1.Range("L20")
                 .Range("R11") = wks1.Range("J20")
                .Range("S11") = wks1.Range("J20")
            Case "STEFANO CEA"
                 .Range("P12") = wks1.Range("L20")
                 .Range("Q12") = wks1.Range("M20")
                 .Range("R12") = wks1.Range("J20")
                 .Range("S12") = wks1.Range("K20")
            Case "STEFANO PINTI"
                 .Range("P13") = wks1.Range("L20")
                 .Range("Q13") = wks1.Range("M20")
                 .Range("R13") = wks1.Range("J20")
                 .Range("S13") = wks1.Range("K20")
            Case "ALESSANDRA NASTASE"
                 .Range("P14") = wks1.Range("L20")
                 .Range("Q14") = wks1.Range("M20")
                 .Range("R14") = wks1.Range("J20")
                 .Range("S14") = wks1.Range("K20")
            Case "PAMELA PELOSINI"
                 .Range("P15") = wks1.Range("L20")
                 .Range("Q15") = wks1.Range("M20")
                 .Range("R15") = wks1.Range("J20")
                 .Range("S15") = wks1.Range("K20")
            Case "MARIO STECCHI"
                 .Range("P16") = wks1.Range("L20")
                 .Range("Q16") = wks1.Range("M20")
                 .Range("R16") = wks1.Range("J20")
                 .Range("S16") = wks1.Range("K20")
            Case "MARVY GABRILLO"
                 .Range("P17") = wks1.Range("L20")
                 .Range("Q17") = wks1.Range("M20")
                 .Range("R17") = wks1.Range("J20")
                 .Range("S17") = wks1.Range("K20")
            Case "FOGLINERVI RAMONA"
                 .Range("P18") = wks1.Range("L20")
                 .Range("Q18") = wks1.Range("M20")
                 .Range("R18") = wks1.Range("J20")
                 .Range("S18") = wks1.Range("K20")
                    ActiveSheet.Protect "123"
               
            End Select
        End With
        Set wks1 = Nothing
        Set wks2 = Nothing
          MsgBox ("AGGIORNAMENTO TERMINATO"), vbInformation, "ATTENZIONE"
    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!

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

    Re: modifica macro

    Grazie appena arrivo a casa provo il tutto. ....Danilo

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

    Re: modifica macro

    grazie Ges...soluzione perfetta......Danilo

Discussioni Simili

  1. Modifica foglio pronostici con Macro VBA
    Di giovannib nel forum Domande su Excel VBA e MACRO
    Risposte: 5
    Ultimo Messaggio: 19/09/16, 20:38
  2. Modifica Macro VBA foglio pronosticiù
    Di giovannib nel forum Domande su Excel VBA e MACRO
    Risposte: 1
    Ultimo Messaggio: 19/09/16, 14:01
  3. Modifica Macro Inserimento Numeri
    Di Bright nel forum Domande su Excel VBA e MACRO
    Risposte: 11
    Ultimo Messaggio: 15/12/15, 17:14
  4. Modifica macro Sorteggio
    Di roky48 nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 31/10/15, 14:47
  5. Modifica macro
    Di nick0573 nel forum Domande su Excel VBA e MACRO
    Risposte: 3
    Ultimo Messaggio: 22/07/15, 13:10

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
  •