ho la seguente difficoltà, ho un foglio Uscite in cui inserisco dei movimenti per data,
ho poi un'altro foglio in cui andare a copiare le uscite posteriori all'ultima data.
Nella Cella AB3 ho la differenza tra la data dell'ultimo movimento e l'ultima data presente
nel Foglio Uscite, espressa in giorni, nella Cella AB1 ho invece l'ultima data come data.
Non potendo essere i movimenti più di uno al giorno, ma non sembre tutti i giorni, ho pensato
di creare questa macro che allego.
Calcolati prima il numero di giorni mancanti tra le due date, che determinano il ciclo For..Next,
vado poi a fare un raffronto tra le date e quando le date sono uguali, dovrebbe uscire dal ciclo.
Ho provato con Exit For, ma non succede niente. Avete una spiegazione?
- Codice: Seleziona tutto
ES = Worksheets("Uscite").Range("AB3").Value 'num giorni mancanti
DT = Worksheets("Uscite").Range("AB1").Value ' ult data inserita
NU = 0
For i = 1 To ES
If Cells(i + 1, 1).Value = DT Then
Exit For
End If
If Cells(i + 1, 1).Value > DT Then
NU = NU + 1
End If
Next
Range(Cells(2, 1), Cells(2 + NU, 16)).Select
Grazie
Francesco