Ciao a tutti…
ho creato una macro dove inserendo in due separati box due date, ad es. 12/01/2013 e 15/01/2013 ho bisogno di ricercare tutti i dati presenti in una tabella, dal 12/01/2013 al 15/01/2013 e copiarli in un' altra tabella, senza dover controllare per forza tutto il foglio. Non riesco a venirne a capo… ho provato in tutti i modi conosciuti ma niente…
ecco un pezzo di tabella (foglio 1)

284937 CONSEGNA MILANO 12/01/2013
673645 SPEDIZIONE MILANO 13/03/2013
238875 SPEDIZIONE ROMA 13/03/2013
6762263 CONSEGNA ROMA 12/01/2013
2544745 CONSEGNA NAPOLI 13/03/2013
9678236 CONSEGNA ROMA 13/03/2013
8578365 SPEDIZIONE VIAREGGGIO 12/01/2013
657833 SPEDIZIONE ROMA 13/03/2013
374535 SPEDIZIONE MILANO 13/03/2013
235758 CONSEGNA LUCCA 13/03/2013
613759 SPEDIZIONE NAPOLI 12/01/2013
787836 CONSEGNA ROMA 15/01/2013
949835 SPEDIZIONE MILANO 15/01/2013
294658 CONSEGNA MILANO 15/01/2013
633759 SPEDIZIONE NAPOLI 15/01/2013


ecco la macro:

Sub cerca()
Sheets("Foglio1").Select
Set Rng = ActiveSheet.Range("D11200")

riga = 1
cdata1 = Application.InputBox("", "Inserisci la 1° data", Date)
cdata2 = Application.InputBox("", "Inserisci la 2° data", Date)
If cdata1 <> False Or cdata2 <> False Then

For Each cell In Rng.Cells
If Format(cell.Value, "dd/mm/yyyy") = "" Then
Exit For
Else
If (Format(cell.Value, "dd/mm/yyyy") >= Format(cdata1, "dd/mm/yyyy") And Format(cell.Value, "dd/mm/yyyy") <= Format(cdata2, "dd/mm/yyyy")) Then
Rows(cell.Row).Select
Selection.Copy
Sheets("Foglio2").Select
Rows(riga).Select
ActiveSheet.Paste
Sheets("Foglio1").Select
riga = riga + 1
End If
End If
Next
End If
Application.Goto Reference:="Cerca"
End Sub


Grazie in anticipo