La consultazione del forum è libera per tutti.
Per poter porre un quesito è invece necessario essere un utente registrato (clicca qui se non lo sei).
Tutti gli utenti che richiedono un supporto, come da REGOLAMENTO, sono caldamente invitati ad allegare un file di esempio con l'indicazione di quello che si desidera ottenere.
Buongiorno,
desidero sapere se è possibile, quando apro un file excel, fare in modo che la cella attiva si posizioni nella cella che riporta la data odierna (dato un calendario inserito in una colonna).
Grazie.
ciao
in questa cartella di lavoro
Private Sub Workbook_Open() Dim Lista As Range Set Lista = Range(Cells(2, 1), Cells(2, 1).End(xlDown)) For Each CL In Lista If CL = Date Then CL.Select End If Next End Sub
ciao Gian 😀
ormai ci freghi tutti anche con Vba 🤣
Solo per "pignoleria" farei queste modifiche.
Ciao
Frank
P.S. OFF TOPIC
come faccio a non ricevere gli avvisi via mail di chi interviente nella discussione?
Dim Lista As Range
Dim CL As Range ' definisco la variabile contatore del ciclo For
Set Lista = Range(Cells(2, 1), Cells(2, 1).End(xlDown))
'per maggiore leggibilita', indento il codice per blocchi
For Each CL In Lista
If CL.Value = Date Then ' specificico la proprieta'
CL.Select
Exit For ' non sapendo a priori dove trovera' lo stop, non gli faccio scorrere tutta la lista e quando trovato esco dal For
End If
Next CL 'specifico il contatore che si incrementa
ciao
si perchè mi piace fare macro eh!
lo sai che non mi piacciono.
per gli avvisi dovrebbero arrivare sempre
immagino basti inserire
la mail nel tuo account ( la rotellina sotto l'avatar a destra)
se la mail c'è e non ti arrivano contatta l'amministratore
(trovi il pulsante sui dell'account in basso)
onestamente non so come si fa
nb
Le macro sono tutte tue e di marius 😆
ed io sono diventato "pignolo" grazie a scossa e VecchioFrac, ma non solo grazie a loro...
mi hanno "aiutato" in tanti a diventarlo 😉
perchè ti interessava
a me le macro fanno venire l'orticaria
sono lentissimo a farle e se posso le schivo 😀
come io evito le formule.... DIFFICILMENTE RIESCO A METTERNE INSIEME + DI 2 🤣
Beh, siamo proprio 2 bei rinco di Excel... e per fortuna....
chiudiamo...
altrimenti diventa una chat di whatsapp 🤣
.... e sono pure sbadato ....... 😜
alla macro che postato, alla riga immediatamente prima di End Sub,
manca un bel
Set Lista = Nothing
Ciao,
vi ringrazio, la macro funziona ma solo se quando salvo e chiudo il file la cella attiva è posizionata sul foglio "Agenda", diversamente se salvo e chiudo con la cella attiva in un altro foglio quando lo riapro torna in quella posizione e non nel foglio "Agenda" alla data odierna come avrei bisogno.
Si può fare qualcosa? Grazie!
ciao
certo il file si apre nel foglio di chiusura
se vuoi si apra sempre in Agenda o selezioni Agenda prima di chiudere oppure
Private Sub Workbook_Open()
Dim Lista As Range
Dim CL As Range
Sheets("Agenda").Activate
Set Lista = Range(Cells(2, 1), Cells(2, 1).End(xlDown))
For Each CL In Lista
If CL.Value = Date Then
CL.Select
Exit For
End If
Next CL
Set Lista = Nothing
End Sub
Ciao,
vi ringrazio, la macro funziona ma solo se quando salvo e chiudo il file la cella attiva è posizionata sul foglio "Agenda", diversamente se salvo e chiudo con la cella attiva in un altro foglio quando lo riapro torna in quella posizione e non nel foglio "Agenda" alla data odierna come avrei bisogno.
Si può fare qualcosa? Grazie!
a parte che Gianfranco ti ha già dato la soluzione,
non mi sembra che il primo post della discussione chiedesse tale funzionalità...
@tanimon
hai ragione, ... sono piuttosto ignorante in materia.
Grazie mille dell'aiuto, anche a Gianfranco 🙂
ciao
se hai risolto gentilmente chiudi la discussione
