Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Copiare alcune celle di un Record a seconda della data

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Copiare alcune celle di un Record a seconda della data

Postdi Omocaig » 17/06/15 15:03

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
Xp + Office 2003 Ita
Omocaig
Utente Junior
 
Post: 76
Iscritto il: 11/05/15 15:08

Sponsor
 

Re: Copiare alcune celle di un Record a seconda della data

Postdi Omocaig » 17/06/15 15:25

Se non è chiaro posso mandare il file !
Xp + Office 2003 Ita
Omocaig
Utente Junior
 
Post: 76
Iscritto il: 11/05/15 15:08

Re: Copiare alcune celle di un Record a seconda della data

Postdi Anthony47 » 18/06/15 21:28

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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13904
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Copiare alcune celle di un Record a seconda della data

Postdi Omocaig » 19/06/15 12:27

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 !
Xp + Office 2003 Ita
Omocaig
Utente Junior
 
Post: 76
Iscritto il: 11/05/15 15:08

Re: Copiare alcune celle di un Record a seconda della data

Postdi Anthony47 » 20/06/15 01:54

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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13904
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Copiare alcune celle di un Record a seconda della data":


Chi c’è in linea

Visitano il forum: alfrimpa, giorgio1979 e 12 ospiti