Condividi:        

Filtra Settimana Corrente, Filtra Mese Corrente

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

Filtra Settimana Corrente, Filtra Mese Corrente

Postdi Omocaig » 15/07/15 15:55

Ciao a tutti, è possibile creare due macro "filtra per settimana corrente" e "filtra per mese corrente" ?
So che è altrettanto semplice inserire le date direttamente nel campo del filtro che mi interessa ma vorrei creare un pulsante user friendly.

Grazie ! Ciao !
Xp + Office 2016 Ita
Omocaig
Utente Junior
 
Post: 93
Iscritto il: 11/05/15 15:08

Sponsor
 

Re: Filtra Settimana Corrente, Filtra Mese Corrente

Postdi Anthony47 » 16/07/15 02:18

Se hai almeno XL2007 (e dopo 50 post mi sembra strano che non hai imparato a indicare la versione di software che usi):
Codice: Seleziona tutto
Sub MacroWeek()
Columns("N:N").AutoFilter
    ActiveSheet.Range("$N:$N").AutoFilter Field:=1, Criteria1:= _
        4, Operator:=xlFilterDynamic
End Sub

Codice: Seleziona tutto
Sub MacroMonth()
Columns("N:N").AutoFilter
    ActiveSheet.Range("$N:$N").AutoFilter Field:=1, Criteria1:= _
        7, Operator:=xlFilterDynamic
End Sub

Ovviamente devi adattare gli intervalli.

Per le opzioni disponibili guarda qui: https://msdn.microsoft.com/en-us/librar ... 14%29.aspx

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Filtra Settimana Corrente, Filtra Mese Corrente

Postdi Omocaig » 16/07/15 11:22

Ciao, credo di aver risolto il problema definitivamente aggiungendo la firma. Non mi sono permesso di aggiungere "E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)".

Uso Excel 2003, dove trovo le istruzioni xlFilterDynamic per il 2003 ? Esistono ?

Saluti
Xp + Office 2016 Ita
Omocaig
Utente Junior
 
Post: 93
Iscritto il: 11/05/15 15:08

Re: Filtra Settimana Corrente, Filtra Mese Corrente

Postdi Anthony47 » 18/07/15 00:26

Quella prestazione e' disponibile solo da XL2007 in avanti; per versioni precedenti devi calcolare le date del filtro. Quindi
Codice: Seleziona tutto
Sub MacroWeek003()
Columns("N:N").AutoFilter
my1 = ">" & CLng(Now - Weekday(Now, vbMonday))
my2 = "<=" & CLng(Now + 7 - Weekday(Now, vbMonday))
    ActiveSheet.Range("$N:$N").AutoFilter Field:=1, Criteria1:=my1, Operator:=xlAnd, Criteria2:=my2
End Sub

Codice: Seleziona tutto
Sub MacroMonth003()
Columns("N:N").AutoFilter
my1 = ">=" & CLng(DateSerial(Year(Now), Month(Now), 1))
my2 = "<" & CLng(DateSerial(Year(Now), Month(Now) + 1, 1))
    ActiveSheet.Range("$N:$N").AutoFilter Field:=1, Criteria1:=my1, Operator:=xlAnd, Criteria2:=my2
End Sub

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Filtra Settimana Corrente, Filtra Mese Corrente":


Chi c’è in linea

Visitano il forum: systemcrack e 36 ospiti