Risultati da 1 a 20 di 20

Discussione: range di 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
    571

    range di trasferimento

    Buongiorno a tutti nel file che allego che funziona perfettamente (grazie a ges e baloon) per sola cultura personale ho copiato e incollato la macro"inserisci" e l'ho chiamata "inserisci2" ho cambiato il foglio di destinazione "foglio 3" e vorrei sapere come devo modificare il codice per far trasferire l'intero range(A4:E19) del foglio 1 al foglio 3 sempre in (A4:E19) invece delle singole celle ho provato ad intervenire modificando i range ma funziona solo se impostato per trasferire le singole celle....la password del foglio e dei codici è 123.....grazie Danilo
    File Allegati File Allegati

  2. #2
    L'avatar di rollis13
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Cordenons
    Messaggi
    812
    Versione Office
    2016 64bit
    Likes ricevuti
    147
    Likes dati
    53

    Re: range di trasferimento

    Puoi sostituire tutto quello che sta tra i UnProtect/Protect con:
    Codice: 
    wks1.Range("A4:E19").Copy Destination:=wks2.Range("A4")

  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
    571

    Re: range di trasferimento

    se vedi la struttura del foglio con la macro "inserisci" riporta i dati (4celle) dal foglio 1 al foglio 2 per ogni persona dell elenco presente in A3 del foglio 1 io vorrei mantenere la stessa struttura della macro ma aumentare il range...cosi da avere sul foglio 3 la copia degli orari inseriti per ogni persona a me basta l'esempio per il primo nominativo il resto lo modifico io.....

  4. #4

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

    Re: range di trasferimento

    Danilo,
    io purtroppo non riesco a visualizzare il codice perchè stranamente mi dice che la password 123 è errata ... credo che sia un problema mio visto che gli altri ci riescono ... ma così non riesco ad aiutarti .... dovresti allegare i files privi di password in particolare del vba.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  5. #5
    L'avatar di rollis13
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Cordenons
    Messaggi
    812
    Versione Office
    2016 64bit
    Likes ricevuti
    147
    Likes dati
    53

    Re: range di trasferimento

    Citazione Originariamente Scritto da Danilo Fiorini Visualizza Messaggio
    [...]far trasferire l'intero range(A4:E19) del foglio 1 al foglio 3 sempre in (A4:E19)[...]
    Scusa, ma non è quello che hai chiesto :92:.

  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
    571

    Re: range di trasferimento

    ciao ges ti allego il file senza password....come dicevo nella macro che hai fatto vorrei copiare un intero range es:spunticcia da A4:E19 foglio 1 a A4:E19 foglio 3 poi gli altri li modifico io creo una griglia su dove farli arrivare....grazie
    File Allegati File Allegati

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

    Re: range di trasferimento

    ciao rollis... si come hai fatto tu copia i dati ma il foglio deve lavorare inserendo i dati nella griglia del foglio 1 e registrarli e poi cancellarli per registrare quelli degli altri nominativi presenti in a3 per cui come è strutturata la macro inserisci voglio solo aumentare il range poi decido dove mandarli sul foglio 3

  8. #8

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

    Re: range di trasferimento

    Ciao Danilo,
    grazie del file senza password.
    Quest'ultima tua spiegazione però mi ha un po' confuso, non ho capito quando dici "deve lavorare inserendo i dati nella griglia del foglio 1 e registrarli e poi cancellarli per registrare quelli degli altri nominativi presenti in a3 .." cioè i dati li deve registrare e poi cancellare dal foglio1? E che senso ha?
    Poi decidi dove mandarli nel foglio3?
    Se riesci a essere più chiaro spiegando tutti i passaggi e se questa nuova macro si attivi con uno dei bottoni presenti o bisogna aggiungere un altro pulsante?
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  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
    571

    Re: range di trasferimento

    il pulsante l ho gia messo associato a inserisci2 la macro è identica all'altra io vorrei solo che invece di trasferire le celle singole come impostato sull altra macro mi trasferisse il range A4:E19 sul foglio 3 con lo stesso sistema che mi hai creato sulla macro inserisci che è perfetta (posso cambiare i nomi)...spero di essere chiaro....

  10. #10

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

    Re: range di trasferimento

    Danilo ... sarà l'"ammazzacaffè" che ho bevuto stasera.. :167: ...ma proprio non riesco a capire ...
    Facciamo così, riproduci nel foglio 3 scrivendolo a mano cosa vuoi ottenere e faremo il tuo esempio sia effettuato con la macro.
    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 D@nilo
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Roma
    Età
    45
    Messaggi
    1170
    Versione Office
    Excel 2010
    Likes ricevuti
    509
    Likes dati
    571

    Re: range di trasferimento

    allora....nella macro inserisci mandiamo i valori di j20 k20 l20 m20 nelle colonne d e f g del foglio 2 associati ai relativi nomi io vorrei fare la stessa cosa ma con un range più ampio cioe inserisco i dati nella griglia del foglio 1 da A4 a E19 li vorrei ritrovare nel foglio 3 registrati....ho provato a modificare il tuo codice.....Range("D9") = wks1.Range("L20")... ESEMPIO:.Range("B4:E19") = wks1.Range("A4:E19")....ma non va....

  12. #12
    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
    571

    Re: range di trasferimento

    allego file con esempio (ho messo solo due persone).....
    File Allegati File Allegati

  13. #13

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

    Re: range di trasferimento

    Ah ok, io avevo capito così (ormai che ho fatto il lavoro allego il file)

    Codice: 
    Sub inserisci2()
    	Dim wks1 As Worksheet, wks2 As Worksheet
    	Set wks1 = Worksheets("Foglio1")
    	Set wks2 = Worksheets("Foglio3")
    	wks2.Unprotect "123"
    	y = 2
    	While wks2.Cells(y, 4).Value <> ""
    		y = y + 1
    	Wend
    	wks2.Range("C" & y) = wks1.Range("A3")
    	wks2.Range("D" & y) = wks1.Range("J20")
    	wks2.Range("E" & y) = wks1.Range("K20")
    	wks2.Range("F" & y) = wks1.Range("L20")
    	wks2.Range("G" & y) = wks1.Range("M20")
    	wks1.Range("A4:I19") = ""
    	wks2.Protect "123"
    	Set wks1 = Nothing
    	Set wks2 = Nothing
    	MsgBox ("REGISTRAZIONE EFFETTUATA CON SUCCESSO"), vbInformation, "NOTIFICA"
    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!

  14. #14

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

    Re: range di trasferimento

    Prova così:

    Codice: 
    Sub inserisci2()
    	Dim wks1 As Worksheet, wks2 As Worksheet
    	Set wks1 = Worksheets("Foglio1")
    	Set wks2 = Worksheets("Foglio3")
    	y = 1
    	While wks2.Range("B" & y) <> ""
    		y = y + 20
    	Wend
    	wks1.Range("A3:E19").Copy Destination:=wks2.Range("A" & y)
    	Set wks1 = Nothing
    	Set wks2 = Nothing
    	MsgBox ("AGGIORNAMENTO TERMINATO"), vbInformation, "ATTENZIONE"
    End Sub
    Le tabelle ho preferito salvarle in verticale perché ritengo più facili da visualizzare con lo scroll della pagina.
    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!

  15. #15
    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
    571

    Re: range di trasferimento

    perfetto hai centrato l obiettivo ora ho da chiederti un ultima cosa me la commenti passo passo in modo che posso comprenderla e di conseguenza capendola se ci dovessi intervenire o usarla per qualche altro scopo saprei dove mettere le mani? oppure una cosa simile all altra macro (ne preparasti due che facevano la stessa cosa quella che sto utilizzando"inserisci" e una meno comprensibile simile a questa).....comunque grazie infinite.....Danilo

  16. #16

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

    Re: range di trasferimento

    Citazione Originariamente Scritto da Danilo Fiorini Visualizza Messaggio
    ....ho da chiederti un ultima cosa me la commenti passo passo in modo che posso comprenderla e di conseguenza capendola se ci dovessi intervenire o usarla per qualche altro scopo saprei dove mettere le mani? ......
    Codice: 
    Sub inserisci2()
        Dim wks1 As Worksheet, wks2 As Worksheet 'dichiaro le variabili
        Set wks1 = Worksheets("Foglio1") 'wks1 la imposto come foglio1
        Set wks2 = Worksheets("Foglio3") 'wks2 come foglio3
        y = 1 'imposto la prima riga da dove parte il ciclo
        While wks2.Range("B" & y) <> "" 'l'istruzione trova della colonna B la riga piena
            y = y + 20 ' quando trovi la riga piena aumenta di 20 righe (sarà la riga da dove incomincia a inserisce l'altra tabella)
        Wend 
        wks1.Range("A3:E19").Copy Destination:=wks2.Range("A" & y) ' copia il range A3:E19 del foglio1 e incollalo a partire dalla cella che è stata trovata in base al ciclo sopra (+ 20 righe da quella piena)
        Set wks1 = Nothing
        Set wks2 = Nothing ' annullo l'impostazione che avevo fatto sopra per i fogli1 e 3
        MsgBox ("AGGIORNAMENTO TERMINATO"), vbInformation, "ATTENZIONE" ' a questo punto faccio venire fuori il messaggio a video
    End Sub
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  17. #17
    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
    571

    Re: range di trasferimento

    grazie infinite.....sei sempre eccezionale ora faccio un po di prove su un foglio nuovo modificando i parametri.....sto imparando tantissime cose grazie a persone come te.....Danilo

  18. #18
    L'avatar di principiante
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Italia
    Età
    59
    Messaggi
    121
    Versione Office
    2007
    Likes ricevuti
    1

    Re: range di trasferimento

    salve a tutti,con l'aiuto di Patel, in un'altro forum, siamo arrivati ad una quasi soluzione ad un mio problema. Ho letto il codice e ho cercato di modificarlo alle miei esigenze.. ma non riesco. Mi chiedevo, la macro copia dei range da un foglio e li trasferisce su un'altro foglio, i range sono definiti, ma se si volessero copiare solo i valori di molteplici range non definiti ma vari,di un foglio pieno di formule e trasferirli in un'altro foglio senza far sovrapporre i valori sarebbe possibile? Grazie a prescindere

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

    Re: range di trasferimento

    Citazione Originariamente Scritto da principiante Visualizza Messaggio
    ma se si volessero copiare solo i valori di molteplici range non definiti ma vari,di un foglio pieno di formule e trasferirli in un'altro foglio senza far sovrapporre i valori sarebbe possibile? Grazie a prescindere
    che significa vari ? non sarebbe meglio riportare il link della discussione ? come si fa a rispondere ad un quesito cosi vago ?

  20. #20
    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
    571

    Re: range di trasferimento

    Prova questo esempio.......c'è una macro che trasferisce tutto dal foglio 1 al foglio 3......è semplice da modificare in base alle esigenze.....la password è 123
    File Allegati File Allegati

Discussioni Simili

  1. [Tutorial VBA] Range.End() - Range.OffSet() - Come operare sulle tabelle di dati
    Di dracoscrigno nel forum Imparando Excel & VBA - Tutorial di Excel-
    Risposte: 3
    Ultimo Messaggio: 29/03/17, 22:30
  2. 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
  3. [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
  4. [Risolto] Trasferimento dati
    Di svizzera nel forum Domande su Excel in generale
    Risposte: 1
    Ultimo Messaggio: 23/11/16, 13:41
  5. Errore nel trasferimento
    Di D@nilo nel forum Domande su Excel VBA e MACRO
    Risposte: 15
    Ultimo Messaggio: 15/04/16, 00:19

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
  •