Sono alle prese con la tabella di un file, di cui allego una versione ridotta, nella quale sono elencate una serie di monete e gli anni nelle quali sono state coniate. Vorrei potere fare una ricerca per anno, ad esempio ottenere l'elenco di tutte le monete coniate nel 1961. E' possibile?? Grazie
Sub cerca()
Range("D18:D500").ClearContents
riga1 = 4
riga2 = 10
col1 = 2
col2 = 4
dr = 18
anno = Range("D17")
For r = riga1 To riga2
For c = col1 To col2
If Cells(r, c) = anno Then
Cells(dr, "D") = Cells(r, "A")
dr = dr + 1
End If
Next
Next
End Sub