Creare unica macro per selezionare foglio di lavoro specifico

[bg66]

#11140

Buonasera.
Vorrei imparare come aggregare varie semplici macro.
In pratica ho differenti pulsanti per aprire foglio specifici:

Sub spin()
    Sheets("spina").Select
    Range("a1").Select
End Sub
Sub stroc()
    Sheets("stroc").Select
    Range("a1").Select
End Sub

Ma vorrei creare uno script dove “gli dico”:
se schiaccio il pulsante 1, apri il foglio di lavoro spina
se schiaccio il pulsante 2, apri il foglio di lavoro stroc
etc, etc

E’ fattibile?

Grazie per l’aiuto.

• Questo topic è stato modificato 1 mese, 2 settimane fa da bg66.

[Kris_9951]

#11142

Ciao Bg66

Io non ho capito bene la tua esigenza…

Potresti spiegarmela di nuovo per

favore?

Casomai allegando anche file di esempio…

[bg66]

#11143

Ciao Kris_9951,
come vedrai dal file per ogni pulsante creo uno script.
href=”https://www.dropbox.com/scl/fi/e0kceffyvualvtz4qth5l/Aggrega-script.xlsm?dl=0&rlkey=72erhjexhmbo0vxbhwr4ciy1g”

Mentre vorrei un solo script che mi apre il foglio di lavoro a seconda del pulsante schiacciato.

Grazie per l’aiuto.

[Kris_9951]

#11144

Ciao BG66

Prova questa soluzione:

https://www.dropbox.com/s/lsdl4fs8qbm76o0/Aggrega%20script.xlsm?dl=0

La macro che seleziona il foglio è solo una.

In base al pulsante che si preme viene chiamata quella macro ed il foglio che viene selezionato va in base al nome del pulsante premuto.

Spero di aver capito bene la tua richiesta.

Fai sapere (se vuoi)

[bg66]

#11145

Ciao Kriss9951,
è super.

Sub SelezionaFoglio(nome As String)
    Sheets(nome).Select
    Range("a1").Select
End Sub

Sub pulsante()
    Call SelezionaFoglio(ActiveSheet.Shapes(Application.Caller).Name)
End Sub

Un piccolo approfondimento per imparare la logica:
Il nome del foglio da aprire lo prende dall’etichetta?

Grazie ancora.

[Kris_9951]

#11146

Ciao BG66.

Sono contento che può esserti utile.

Il nome del foglio lo prende dal NOME del pulsante (che non è da confondere con il nome dell’etichetta).

Ogni pulsante l’ho nominato con il nome del foglio che deve aprire.

Non ho usato il nome dell’etichetta perché ho visto che tu ci hai scritto “vai a [nomeFoglio]”, quindi ho dovuto dare necessariamente un altro riferimento, ovvero il nome.

A disposizione per qualsiasi altra cosa

[Autore]

Post