Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

macro per copia valori foglio precedente

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

macro per copia valori foglio precedente

Postdi luca62 » 01/03/20 16:01

Ciao a Tutti, dopo tanto tempo.
Ho un file excel composto di tanti fogli con nomi variabili, esempio primo foglio Base, secondo Pippo,terzo Pluto...
Necessito di avere una macro che in un range (j7:j199) del terzo foglio (Pluto) mi vada a scrivere i valori dello stesso range
(j7:J199) del foglio precedente ( ossia del secondo chiamato Pippo) con i nomi dei fogli variabili.Macro che attivo quando voglio con il ctrl+p.
Con il registratore di macro:

Codice: Seleziona tutto
Sub copiaprecedente()
'
' copiaprecedente Macro
'
' Scelta rapida da tastiera: CTRL+p
'
    Sheets("pippo").Select
    Range("J7:J199").Select
    Selection.Copy
    Sheets("pluto").Select
    Range("J7").Select
    ActiveSheet.Paste
End Sub

Come faccio a sostituire a "pluto " il foglio su cui sto lavorando e a "pippo" il foglio precedente a quello su cui sto lavorando?
luca62 office2007 window7
luca62
Utente Senior
 
Post: 169
Iscritto il: 23/12/12 14:54

Sponsor
 

Re: macro per copia valori foglio precedente

Postdi Anthony47 » 01/03/20 22:48

Bentornato...

Una versione che lavora come la macro autoregistrata:
Codice: Seleziona tutto
Sub copiaprecedente1()
'
' copiaprecedente Macro
'
' Scelta rapida da tastiera: CTRL+p
'

Orig = ActiveSheet.Name
Sheets(ActiveSheet.Index - 1).Select
Range("J7:J199").Select
Selection.Copy
Sheets(Orig).Select
Range("J7").Select
ActiveSheet.Paste
End Sub



Pero' queste altre opzioni sono piu' semplici:
Codice: Seleziona tutto
Sub copiaprecedente2()
'
Range("J7:J199").Value = Sheets(ActiveSheet.Index - 1).Range("J7:J199").Value
End Sub




Codice: Seleziona tutto
Sub copiaprecedente3()
'
Sheets(ActiveSheet.Index - 1).Range("J7:J199").Copy Destination:=Range("J7").Select
End Sub


Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 16956
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: macro per copia valori foglio precedente

Postdi luca62 » 01/03/20 23:29

Grazie perfetto!
luca62 office2007 window7
luca62
Utente Senior
 
Post: 169
Iscritto il: 23/12/12 14:54


Torna a Applicazioni Office Windows


Topic correlati a "macro per copia valori foglio precedente":


Chi c’è in linea

Visitano il forum: Nessuno e 22 ospiti