For x = 3 To RigNum
If x < RigNum Then
Giorni = Cells(x + 1, 1) - Cells(x, 1)
Else
Giorni = Val("31/12/2009")-Cells(x,1)
End If
Premesso che nella colonnaA ci sono delle date, con questo codice intendo contare quanti giorni passano tra la data presente nella riga x+1 e la riga x. Se la riga x+1 è vuota il codice deve simulare la data del 31/12/2009.
Funziona correttamente fino all'ultima riga quando il codice non riesce a trasformare la data simulata con un numero e quindi sbaglia. Ho provato in vari modi, anche simulando la data in inglese ma sbaglia comunque.
Qualche suggerimento?
Grazie