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.
@marius44 Visto, sistemato. L'errore stava in
Select Case Cells(R, C) 'primo app.to
Case Is = "" 'nessun app.to
MaxData = Date
'
'questa è stata aggiunta
Case Is < Date
MaxData = Date
'
Case Else
MaxData = .Cells(LR, C) 'ultima data
End Select
l'errore non compariva quando non c'erano appuntamenti ma quando tutti avevano una data inferiore a Oggi.
Non l'avevo rilevato perché i test naturalmente si fanno con dati validi ma questa possibilità non l'avevo contemplata. In effetti potrebbe presentarsi dopo un periodo abbastanza lungo di inattività (ferie di 5/6 mesi...)
Spero sia l'ultimo errore da sistemare. Allego file corretto e invito Monia a scaricarlo e lavorare su questo.
Nemmeno io l'avevo notato perché sono partita dal presupposto che almeno un appuntamento fosse fissato. Farò dei test anche su questa versione, ma sono certa che funzionerà bene. Grazie
