Pulsante "Indietro"

[massimo]

Ciao a tutti, ho necessità di creare una macro che mi permetta di tornare
all'ultimo foglio visualizzato (foglio precedente). Come devo fare? Vi
ringrazio anticipatamente e attendo speranzoso. Massimo

[Mauro Gamberini]

Post by massimo
Ciao a tutti, ho necessità di creare una macro che mi permetta di tornare
all'ultimo foglio visualizzato (foglio precedente). Come devo fare? Vi
ringrazio anticipatamente e attendo speranzoso. Massimo

Se ho capito bene:

Questo nel codice di ThisWorkbook:

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
FoglioPrecedente = Sh.Name
End Sub

Questo in un modulo:


Public FoglioPrecedente As String

Public Sub m()
Worksheets(FoglioPrecedente).Activate
End Sub


Il tuo pulsante richiamerà la routine m().

[massimo]

Ciao Maurizio, scusami ma non sono riuscito a risolvere il mio problema e
sinceramente non so se non l'ho esposto bene nel mio primo messaggio ho se
non ho applicato bene il tuo suggerimento.
Provo ad esporlo più dettagliatamente:
Ho un file di excel con tanti fogli, con un collegamento ipertestuale da uno
qualsiasi di questi fogli posso andare ad un altro (specifico) per eseguire
un calcolo che mi serve a determinare quante pagine devo stampare.
Dal foglio dove ho eseguito il calcolo vorrei tornare a quello precedente
nel quale ho inserito un cero numero di dati.
Quindi avrei bisogno di creare un pulsante che mi permetta di ritornare al
foglio precedentemente visualizzato qualunque esso sia.

Nel caso il tuo suggerimento sia lo stesso, ti prego di espormelo con
maggiori dettagli, perchè come avrai gia capito non sono un esperto e mi sono
avventuarato nel fantastico mondo delle macro da poco.

Ti ringrazio nuovamente.

Massimo

Post by Mauro Gamberini

Post by massimo
Ciao a tutti, ho necessità di creare una macro che mi permetta di tornare
all'ultimo foglio visualizzato (foglio precedente). Come devo fare? Vi
ringrazio anticipatamente e attendo speranzoso. Massimo

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
FoglioPrecedente = Sh.Name
End Sub
Public FoglioPrecedente As String
Public Sub m()
Worksheets(FoglioPrecedente).Activate
End Sub
Il tuo pulsante richiamerà la routine m().
--
---------------------------
Mauro Gamberini
http://www.riolab.org/

[Mauro Gamberini]

Post by massimo
Ciao Maurizio

Maurizio? Mah...

Post by massimo
Ho un file di excel con tanti fogli, con un collegamento ipertestuale da uno
qualsiasi di questi fogli posso andare ad un altro (specifico) per eseguire
un calcolo che mi serve a determinare quante pagine devo stampare.
Dal foglio dove ho eseguito il calcolo vorrei tornare a quello precedente
nel quale ho inserito un cero numero di dati.
Quindi avrei bisogno di creare un pulsante che mi permetta di ritornare al
foglio precedentemente visualizzato qualunque esso sia.

Lascia stare il pulsante(da quel che ho capito non sappiamo poi
come gestirlo..).

Apri il file di Excel.
ALT+F11
e sei nell'editor del vba.
Individua: Progetto-VBAProject
Doppio click su ThisWorkbook
Copia/incolla questo nel foglio bianco(modulo):

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
FoglioPrecedente = Sh.Name
End Sub

Adesso: Inserisci--Modulo
Copia/incolla questo:

Public FoglioPrecedente As String

Public Sub m()
Worksheets(FoglioPrecedente).Activate
End Sub

ALT+F11 e sei di nuovo in Excel
Strumenti-->Macro-->Macro
Seleziona m()
Pulsante: Opzioni
Metti un tasto di scelta rapida(es: CTRL+a)
Ok
Adesso muoviti con i tuoi collegamenti tra i fogli.
Quando vuoi andare al precedente, premi assieme CTRL+a

[massimo]

Grazie Mauro, missione compiuta, sei stato molto preciso nell'esposizione dei
passaggi, di più non potivi fare. Sono riuscito anche ad abbinare la macro ad
un pulsante, questo lo sapevo fare.
Ciao
Massimo
P.S. - Scusami per aver sbagliato il tuo nome, ho un amico con il tuo stesso
cognome di nome Maurizio. E' stato un "làpsus freudiano".

Post by Mauro Gamberini

Post by massimo
Ciao Maurizio

Maurizio? Mah...

Post by massimo
Ho un file di excel con tanti fogli, con un collegamento ipertestuale da uno
qualsiasi di questi fogli posso andare ad un altro (specifico) per eseguire
un calcolo che mi serve a determinare quante pagine devo stampare.
Dal foglio dove ho eseguito il calcolo vorrei tornare a quello precedente
nel quale ho inserito un cero numero di dati.
Quindi avrei bisogno di creare un pulsante che mi permetta di ritornare al
foglio precedentemente visualizzato qualunque esso sia.

Lascia stare il pulsante(da quel che ho capito non sappiamo poi
come gestirlo..).
Apri il file di Excel.
ALT+F11
e sei nell'editor del vba.
Individua: Progetto-VBAProject
Doppio click su ThisWorkbook
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
FoglioPrecedente = Sh.Name
End Sub
Adesso: Inserisci--Modulo
Public FoglioPrecedente As String
Public Sub m()
Worksheets(FoglioPrecedente).Activate
End Sub
ALT+F11 e sei di nuovo in Excel
Strumenti-->Macro-->Macro
Seleziona m()
Pulsante: Opzioni
Metti un tasto di scelta rapida(es: CTRL+a)
Ok
Adesso muoviti con i tuoi collegamenti tra i fogli.
Quando vuoi andare al precedente, premi assieme CTRL+a
--
---------------------------
Mauro Gamberini
http://www.riolab.org/

[Mauro Gamberini]

Post by massimo
Sono riuscito anche ad abbinare la macro ad
un pulsante, questo lo sapevo fare.

Bene. Scusa se ne ho dubitato... ;-)