Identificare il foglio attivo del mese

Question

Ciao a tutti,

Ho bisogno del vostro aiuto per semplificare quanto segue. Ho la necessità di utilizzare una macro, solo se il foglio attivo che sto lavorando, porta il nome del mese. Ad esempio può essere Gennaio, Marzo o Novembre. Altrimenti dopo aver ricevuto l'avviso che ilo foglio non ha il nome del mese, la sub esce dal completare l'operazione. Grazie della vostra attenzione.

Answer 1

Modifica:

Public Sub MeseAttivo() 

Dim arrM 

    arrM = Array("Gennaio", "Febbraio", "Marzo", "Aprile", "Maggio", "Giugno", "Luglio", "Agosto", "Settembre", "Ottobre", "Novembre", "Dicembre") 

    If IsError(Application.Match(ActiveSheet.Name, arrM, 0)) Then 

        MsgBox "Non sei sul foglio corretto", vbCritical, "Attenzione!" 

        Exit Sub 

    Else 

        MsgBox "Foglio corretto" 

    End If 

End Sub

Ciao.

Answer 2

Ciao Eleuterio,

Hai ragione su quello che dici. Ho inserito in nuovo foglio nominandolo Novembre, ho provato e ha funzionato. Provo sugli altri fogli mensili e non funziona. Vedi lo screenshot.

Answer 3

Ciao Eleuterio,

grazie per la considerazione, ho provato ed effettivamente se il foglio attivo non riporta il nome del mese, ricevo l'avviso. Il problema si ripete anche sui mesi che riportano il nome del mese. Ho riportato il tuo codice su un file di esempio

Se lancio la macro sul foglio che si chiama Novembre, ho il messaggio corretto:

Cosa non ti torna?

Ciao.

Answer 4

Ciao Eleuterio,

grazie per la considerazione, ho provato ed effettivamente se il foglio attivo non riporta il nome del mese, ricevo l'avviso. Il problema si ripete anche sui mesi che riportano il nome del mese. Ho riportato il tuo codice su un file di esempio che trovi qui.

Answer 5

Ciao a tutti,

Ho bisogno del vostro aiuto per semplificare quanto segue. Ho la necessità di utilizzare una macro, solo se il foglio attivo che sto lavorando, porta il nome del mese. Ad esempio può essere Gennaio, Marzo o Novembre. Altrimenti dopo aver ricevuto l'avviso che ilo foglio non ha il nome del mese, la sub esce dal completare l'operazione. Grazie della vostra attenzione.

Dovrebbe bastarti questa riga all'inizio della routine:

If Not (UCase(ActiveSheet.Name) = UCase(Format(Date, "mmmm"))) Then Exit Sub

o più articolato:

If Not (UCase(ActiveSheet.Name) = UCase(Format(Date, "mmmm"))) Then 

    MsgBox "Non sei sul foglio corretto", vbCritical, "Attenzione!" 

    Exit Sub 

End If 

Ciao.