Salve. Sto cercardo di realizzare una specie di agenda elettronica.
Vorrei fare in modo che che selezionando da un menu a tendina il mese e da un altro menu a tendina il Giorno
mi vada direttamente al foglio relativo (Mese_Giorno)
Con una macro cosigliata da Giap ho risolto parzialmente. Chi puo' Aiutarmi?????? Vorrei creare una macro tipo :

Se "Cella x" = mese e "Cella y"= Giorno allora vai al foglio "Mese_giorno"

Riporto la macro che mi ha suggerito Giap:
a10n11 ha scritto:
salve
ipotizzando che la cella di convalida, sia nella cella B2
copia questa macro nel modulo del foglio in cui si trova la cella di convalida.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("b2").Address Then
foglio = Range("B2").Value
Sheets(foglio).Activate
End If
End Sub
Pero' ho questo problemimo:
Quando accendo al foglio selezionato (Es. Marzo) dal foglio precedente (Es. Gennaio) tutto Ok.
Ma se dal foglio (Marzo) ritorno al Mese (Gennaio) mi visualizza il foglio corretto ma nel menu a tendina Risulta ancora (Marzo)
Come posso risolverlo????
Grazie Anticipatamente.


saluti
Giap

salve
basterebbe riselezionare il mese dal menù a tendina..

se vuoi che l'aggiornamento del mese nella cella di covalida, assuma il nome del foglio cambia così:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = Range("b2").Address Then
foglio = Range("B2").Value
Sheets(foglio).Activate
With Sheets(foglio)
.Range("b2").Value = foglio
End With
End If
Application.EnableEvents = True
End Sub

saluti
Giap

---

salve
bisogna che spieghi meglio come è strutturata la tua cartella di lavoro.
saluti
Giap

---

Salve
Ipotizzando che in cella B2 tu abbia l'elenco dei mesi
in cella D2 il numero dei giorni
che i nomi dei fogli siano simili a : gennaio_1 ecc.
prova questa:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = Range("D2").Address Then
foglio = Range("B2").Value & "_" & Range("d2").Value
Sheets(foglio).Activate
End If
Application.EnableEvents = True
End Sub

saluti
Giap

---

salve
L'errore dice che non c'è corrispondenza tra il nome del foglio e i valori di cella B2 e D2
1) dimmi esattemente che nome hai dato ai fogli
2) dimmi che valore hai in B2 e che valore hai in D2
saluti
Giap

---

Salve
succede quello che dici, perchè il formato numerico dei giorni utilizzato esclude lo zero iniziale. cambia così
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = Range("D2").Address Then
foglio = Range("B2").Value & "_" & Format(Range("d2").Value, "00")
Sheets(foglio).Activate
End If
Application.EnableEvents = True
End Sub

saluti
Giap

---

salve
1)
la macro si attiva cambiando il valore della cella che contiene il giorno. Infatti il target è puntato sulla cella D2
se il mese che ti interessa è gia selezionato ti basta cambiare solo il giorno.

2)Non è che è tua intenzione creare 365 fogli ciascuno con la stessa macro ?
in ogni foglio hai sempre le due celle di convalida?


questa che segue è la modifica alla macro:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = Range("D2").Address Then
foglio = Range("B2").Value & "_" & Format(Range("d2").Value, "00")
Sheets(foglio).Activate
Sheets(foglio).Range("d2").Value = Right(foglio, 2)
Application.EnableEvents = True
End If
End Sub

saluti
Giap

---