Buongiorno a tutti, vorrei un piccolo aiuto con un codice vba per cercare tra due date specifiche.
Nel Foglio1 ho una serie di nomi in colonna A, una serie di date in colonna B e nelle celle E1 ed E2 introduco la data di inizio e la data di fine della mia ricerca . Il codice dovrebbe copiare i dati che rientrano all'interno delle date inserite e copiarli nel Foglio2, ma ciò non avviene né tantomeno ottengo un errore o altro.
Di seguito il codice:
Sub ESTRAI()
Dim lastrow As Long, erow As Long, i As Long
Dim mydate As Date, StartDate As Date, EndDate As Date
lastrow = Foglio1.Cells(Rows.Count, 1).End(xlUp).Row
Foglio1.Range("A1").Select
For i = 2 To lastrow
StartDate = Foglio1.Range("E1").Value
EndDate = Foglio1.Range("E2").Value
mydate = Cells(i, 2)
If mydate >= StartDate And mydate <= EndDate Then
erow = Foglio2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Range(Cells(i, 1), Cells(i, 2)).Copy Destination:=Foglio2.Cells(erow, 1)
End If
Next i
End Sub
Ringrazio anticipatamente chi potrà darmi una mano.
Prinz
Excel 2003 SP3