PDA

View Full Version : Aiutino con Excel


vidario
23-03-2009, 13:17
Qualcuno mi può dare una mano con excel? Ho un'esigenza che non mi sembra impossibile ma non riesco a venirne a capo. Ho un foglio con 2 colonne: nella prima ci sono delle date, nella seconda delle descrizioni. Io avrei la necessità di creare una macro (da lanciare manualmente o eventualmente da far girare all'apertura del foglio) che elimini tutte le righe che nella colonna 1 hanno una data inferiore a quella di oggi.
Qualcuno mi aiuta, please??:confused: :rolleyes:

EnricoHU
23-03-2009, 13:35
prova ! (creato con excel 2000 in italiano, ma non dovrebbero esserci problemi con altre versioni)

DATA DESCRIZIONE
12/03/2009 blabla
25/03/2009 blabla
11/03/2009 blabla
26/03/2009 blabla
10/03/2009 blabla
27/03/2009 blabla

Sub Macro1()
riga = 2
Do Until Cells(riga, 1) = ""
If Cells(riga, 1) < Date Then
Rows(riga).Select
Selection.Delete Shift:=xlUp
riga = riga - 1
End If
riga = riga + 1
Loop
End Sub

DATA DESCRIZIONE
25/03/2009 blabla
26/03/2009 blabla
27/03/2009 blabla

vidario
23-03-2009, 14:49
Grazie mille... è perfetta! Io stavo cercando di usare i filtri avanzati, ma non riuscivo a passare la data di oggi....

Grazie ancora :) :)

EnricoHU
23-03-2009, 14:58
prego ! ;)

vidario
24-03-2009, 09:00
Ne approfitto ancora... E se invece di eliminare direttamente le righe con data inferiore ad oggi io volessi prima copiarle sulle prime righe libere di un altro foglio (ad esempio il foglio3) e poi eliminarle? E' fattibile?
Grazie ancora per la gentilezza :)