vba 2003: eseguire macro al cambio di foglio

[karug64]

Vorrei far appararire un msgbox di avvertenza ogni qualvolta si selezioni un foglio.
Sapreste dirmi qual'e' l'evento in cui inserire il relativo codice ?
Grazie

[Flash30005]

lo trovi nel foglio stesso

Codice: Seleziona tutto

Private Sub Worksheet_Activate()
'qui inserisci il codice o nome della macro che vorrai avviare (macro o messaggio, se unico per tutti i fogli, potrai inserirlo in un modulo e richiamarlo da ogni foglio)
End Sub


ciao

[Anthony47]

Ricordo che esiste anche l' evento Workbook_SheetActivate, da gestire all' interno del modulo ThisWorkbook.
Quindi se i fogli coinvolti sono pochi allora conviene usare i singoli eventi Worksheet_Activate, se sono "tutti" allora forse converra' Workbook_SheetActivate, se sono "molti ma non tutti" allora va valutato se e' piu' semplice impostare tante macro di Worksheet_Activate oppure una singola Workbook_SheetActivate contenente il codice per escludere un tot di fogli dalle operazioni; qualcosa come

Codice: Seleziona tutto

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
NotList = Array("Foglio1", "Foglio2")   '<<< Lista dei fogli da escludere
If IsError(Application.Match(ActiveSheet.Name, NotList, 0)) Then Exit Sub
'
' le istruzioni per fare il lavoro sui fogli non in array
'
End Sub


La riga marcata <<< e' da personalizzare
Ovviamente se la lista "da escludere" fosse piu' lunga della lista "da includere" allora converrebbe invertire il significato dell' array e modificare in If Not IsError etc etc

Ciao

[karug64]

Grazie. Risolto