Una famiglia di software per fogli di calcolo Microsoft con strumenti per l'analisi, la creazione di grafici e la comunicazione dei dati.
ciao
potrebbe essere
Private Sub Worksheet_Activate()
Dim Lista As Range
Set Lista = Range(Cells(2, 3), Cells(2, 3).End(xlDown))
For Each cl In Lista
If cl > 0 And cl < Date Then
cl.Value = DateSerial(Year(Date), Month(Date), Day(cl))
End If
Next
End Sub
all'attivazione del foglio adegua le date
ma mi sembra incompleto si dovrebbe sapere quenti pagamenti
ci sono da fare per fermare il ricalcolo
o lo fai a parte tu