macro per copia valori foglio precedente

[luca62]

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?

[Anthony47]

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

[luca62]

Grazie perfetto!