Copiare alcune celle di un Record a seconda della data

[Omocaig]

Ciao a tutti,

ho una serie di records dalla riga 14
Nella Colonna E sono inserite delle date di ricontatto
Vorrei che Le celle nell'intervallo D2:D11 ed E2:E11 , restituissero rispettivamente nomi e date inserite nei record in colonna C ed E solo se la data nella colonna E è > di 20 giorni dalla data odierna.

Pensavo che una macro che esegue l'operazione di:
-Filtro delle date che cadono 20 giorni dopo la data odierna
-Copia e incolla le celle
Possa darmi il risultato sperato.

Ora, mettendo alla prova quanto ho imparato sul forum, avrei bisogno di sapere che istruzione devo dare ad un filtro perchè filtri solo le date 20 giorni dopo quella odierna e come scriverlo su VBA, poi lavorandoci dovrei riuscire a fare il resto.

Buona Giornata

[Omocaig]

Se non è chiaro posso mandare il file !

[Anthony47]

Potresti usare la macro suggerita a ssm nel quesito "Chi compie gli anni oggi?", vedi viewtopic.php?f=26&t=104854&p=612060#p612054
La semplificazione e' che, non dovendo cercare la data di compleanno partendo dalle date di nascita, ma una data "secca" scritta in colonna E, non sara' necessaria la colonna di appoggio.
Quindi, oltre ai nomi dei fogli perche' coincidano con quelli da te in uso, dovrai modificare anche le linee
Columns("M:M").AutoFilter
ActiveSheet.Range("$M:$M").AutoFilter Field:=1, Criteria1:="=0"
In

Codice: Seleziona tutto

    Columns("E:E").AutoFilter
    ActiveSheet.Range("$E:$E").AutoFilter Field:=1, Criteria1:= "=" & Int(Now) + 20

Ciao

[Omocaig]

Difatti volevo proprio commentare quella conversazione al posto di aprire un Topic nuovo. Dunque, funziona tutto ma vorrei che il range del copia e incolla corrispondesse alle due colonne B13 ed E13, per poi incollare sulla cella D2:

Codice: Seleziona tutto

range("B13:E13").Copy Destination:=Sheets("Totale").range("D2")

Posso definire due range ad esempio Range(B13:B10000) Range (E13:E10000) nella stessa stringa ? Oppure devo usare un'altra funzione ?

Ciao, Grazie !

[Anthony47]

Insomma

Codice: Seleziona tutto

    Range("B13:B10000, E13:E10000").Copy Destination:=Sheets("Foglio2").Range("D2")

[invece che Range("A:M").Copy Destination:=Sheets("Foglio2").Range("A1")]

Ciao