Ciclo For Next tra 2 date

[Statix]

Ciao a tutti,
ho un piccolo quesito da porvi,
devo fare un ciclo For Next tra 2 date
esempio
mese 3 anno 2001 a mese 6 anno 2017
in questo codice il ciclo Anno è ok
mentre quello del mese dovrebbe incominciare da 3 arrivato a 12 ricominciare da 1 a 12 e ultimo anno finire a 6

Codice: Seleziona tutto

Sub Ciclo()


 For Anno = 2001 To 2017
    Range("L2") = Anno

    For Mese = 1 To 12
      Range("K2") = Mese
      Call Estrazione
     
    Next Mese
 Next Anno
End Sub

[Anthony47]

Cambia approccio; ad esempio:

Codice: Seleziona tutto

Sub cicloYM()
Dim dInit As Date, dEnd As Date, dCurrent As Date
'
dInit = DateSerial(2001, 3, 1)      '<<< Data iniziale (anno, mese, gg)
dEnd = DateSerial(2017, 6, 17)      '<<< Data finale (anno, mese, gg)
'
dCurrent = dInit
Do While dCurrent < dEnd
    Range("L2") = Year(dCurrent)
    Range("K2") = Month(dCurrent)
    dCurrent = Application.WorksheetFunction.EDate(dCurrent, 1)
DoEvents
Loop
End Sub


Le due righe marcate <<< definiscono le date di inizio e fine tramite le due variabili dInit e dEnd

Ciao

[Statix]

Ciao Anthony47,
tutto ok grazie.