Risultati da 1 a 16 di 16

Discussione: Errore nel trasferimento



  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

    Errore nel trasferimento

    Buonasera a tutti nel file che allego che funziona bene grazie ai preziosi suggerimenti di Ges.....ho un nodo che vorrei sciogliere.....la macro"inserisci" trasferisce dei dati dal foglio 1 al foglio2 e funziona tutto correttamente però se le celle di destinazione range(P9:S19) del foglio2 sono bloccate mi da un errore se fosse possibile vorrei che il trasferimento avvenisse correttamente anche con le celle bloccate.. nel file che inserisco le ho bloccate cosi si vede l errore il pulsante del trasferimento sul foglio 1 è lo smile la password del foglio e dei codici è 123...grazie danilo
    File Allegati File Allegati

  2. #2

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

    Re: Errore nel trasferimento

    Ciao Danilo,
    quello che chiedi è fattibile ma quando metto la password 123 non mi funziona .....
    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 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: Errore nel trasferimento

    anche io non riesco a capire di solito quando metto il comando"unprotect" funziona correttamente...come posso ovviare? forse bisogna attivarlo anche sul foglio 2? e se cosi fosse dove si interviene nel codice?

  4. #4
    L'avatar di rollis13
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Cordenons
    Messaggi
    821
    Versione Office
    2016 64bit
    Likes ricevuti
    148
    Likes dati
    55

    Re: Errore nel trasferimento

    Nella macro "Inserisci" devi spostare la riga:

    ActiveSheet.Unprotect "123"

    a subito sotto la riga:

    With wks2

    e togliere la parte "Activesheet" (questa parte la devi togliere anche più sotto quando riattivi la password). Tutto questo perché nel momento che premi il pulsante che lancia la macro il foglio attivo non è il "wks2".
    Codice: 
    ...
        Set wks2 = Worksheets("Foglio2")
        With wks2
            .Unprotect "123"
            Select Case wks1.Range("A3")
    ...

  5. #5

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

    Re: Errore nel trasferimento

    Purtroppo la password 123 non funziona e non mi fa vedere il codice.

    Comunque, la macro che stai usando dovrebbe essere questa, basta che aggiungi la parte in rosso

    Codice: 
    Sub inserisci()
    Dim wks1 As Worksheet, wks2 As Worksheet
    Set wks1 = Worksheets("Foglio1")
    Set wks2 = Worksheets("Foglio1")
    
        With wks2
    .unprotect "123"
            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
    .protect "123"
        End With
        Set wks1 = Nothing
        Set wks2 = Nothing
          MsgBox ("AGGIORNAMENTO TERMINATO"), vbInformation, "ATTENZIONE"
    
    End Sub
    EDIT: Ciao Rollis, scusa, non ho fatto il refresh della pagina e mi sono sovrapposto
    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 Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3345
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: Errore nel trasferimento

    Citazione Originariamente Scritto da Danilo Fiorini Visualizza Messaggio
    anche io non riesco a capire di solito quando metto il comando"unprotect" funziona correttamente...come posso ovviare? forse bisogna attivarlo anche sul foglio 2? e se cosi fosse dove si interviene nel codice?
    Ciao Danilo,
    piccola modifica wks2.unprotect "123" invece di activesheet.unprotect "123"

    alla fine prima di set wks1 = nothing metti wks2.protect "123"

    ciao ciao

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  7. #7
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3345
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: Errore nel trasferimento

    Scusate la sovrapposizione :280:

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  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: Errore nel trasferimento

    l'ho fatto l'errore non lo da più però a trasferimento avvenuto il foglio 2 resta sbloccato .....non è che magari in fondo al codice devo mettere tipo activesheet foglio2?

  9. #9
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3345
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: Errore nel trasferimento

    Citazione Originariamente Scritto da Danilo Fiorini Visualizza Messaggio
    l'ho fatto l'errore non lo da più però a trasferimento avvenuto il foglio 2 resta sbloccato .....non è che magari in fondo al codice devo mettere tipo activesheet foglio2?
    Guarda la mia risposta #6 : in testa ed in coda devi mettere wks2.unprotect "123" e wks2.protect "123"

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  10. #10

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

    Re: Errore nel trasferimento

    Ma voi riuscite a vedere il codice ... io metto la password 123 e mi dice errata? Boh??
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  11. #11
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3345
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: Errore nel trasferimento

    Citazione Originariamente Scritto da ges Visualizza Messaggio
    Ma voi riuscite a vedere il codice ... io metto la password 123 e mi dice errata? Boh??
    io sì vedo il codice tranquillamente (ciao Ges)

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  12. #12
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3345
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: Errore nel trasferimento

    Danilo ti allego il tuo file modificato così vai tranquillo
    File Allegati File Allegati

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  13. #13

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

    Re: Errore nel trasferimento

    Citazione Originariamente Scritto da Baloon_50 Visualizza Messaggio
    io sì vedo il codice tranquillamente (ciao Ges)
    Ciao Baloon,
    niente il mio computer si rifiuta di aprirmi il codice .. eppure metto come pass 123 ... boh???
    https://youtu.be/qg45D3GGNLc
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  14. #14
    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: Errore nel trasferimento

    Testate e funzionanti......grazie infinite a tutti mi state dando una mano incredibile.......2 mesi fa non sapevo neanche cosa fosse il vba....ora piano piano sto imparando ....Grazie ancora alla prossima....Danilo

  15. #15
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3345
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49

    Re: Errore nel trasferimento

    Citazione Originariamente Scritto da ges Visualizza Messaggio
    Ciao Baloon,
    niente il mio computer si rifiuta di aprirmi il codice .. eppure metto come pass 123 ... boh???
    https://youtu.be/qg45D3GGNLc
    Ti allego il file senza password vedi se lo apri
    File Allegati File Allegati

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  16. #16

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

    Re: Errore nel trasferimento

    Ora lo vedo, grazie baloon.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

Discussioni Simili

  1. Trasferimento di righe da un Database
    Di svizzera nel forum Domande su Excel VBA e MACRO
    Risposte: 16
    Ultimo Messaggio: 07/01/17, 16:49
  2. [Risolto] Trasferimento dati e creazione id progressivo
    Di G.Bove nel forum Domande su Excel VBA e MACRO
    Risposte: 17
    Ultimo Messaggio: 10/12/16, 23:01
  3. [Risolto] Trasferimento dati
    Di svizzera nel forum Domande su Excel in generale
    Risposte: 1
    Ultimo Messaggio: 23/11/16, 13:41
  4. [Risolto] Trasferimento dati tra fogli su più colonne non uguali
    Di Varans92 nel forum Domande su Excel in generale
    Risposte: 2
    Ultimo Messaggio: 06/10/16, 12:05
  5. range di trasferimento
    Di D@nilo nel forum Domande su Excel VBA e MACRO
    Risposte: 19
    Ultimo Messaggio: 23/04/16, 13:58

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
  •