Conta se con filtro e VBA

Buongiorno a tutti,
sto facendo innumerevoli tentativi e prove ma non ne vengo a campo
in allegato il foglio di lavoro

l'intenzione è quella che selezionando il mese e l'anno nelle due combobox in alto e premendo il tasto filtra
mi copiasse nel foglio stampa solo i nominativi univoci n base al filtro mese e anno e mi contasse affianco ad ogni nome il numero di pasti o cene

Ovviamente ringrazio per quasliasi contributo

spezza il problema in 2:

primo problema:

krashone, 4/22/2017 12:10 PM:

---

l'intenzione è quella che selezionando il mese e l'anno nelle due combobox in alto e premendo il tasto filtra
mi copiasse nel foglio stampa solo i nominativi univoci n base al filtro mese e anno

---

per creare il criterio data su un filtro,
per quello che ne so, vba ha bisogno della data in formato inglese.
per ciò, concatena in momodo adeguato:
mese & giorno & anno

lascio a te il secondo problema:

krashone, 4/22/2017 12:10 PM:

---

mi contasse affianco ad ogni nome il numero di pasti o cene

---

ciao
Frank

Grazie per i consigli
per evitare probelmi con le date ho creato altre due colonne
nel registro dove appare il mese in numero e l'anno
e per il filtro non ho probelmi particolari

è il conta se una volta filtrato che non ottengo risultati

modifica
Sheets("Stampa").Cells(i, 6) = Application.WorksheetFunction.CountIf(Sheets("Registro").Range("E6:UR"), "X")


con
Sheets("Stampa").Cells(i, 6) = Application.WorksheetFunction.CountIf(Sheets("Registro").Range("E6:E"&UR), "X")


Ciao

Ancora non è perfetto
esce fuori per antrambi nominativi il valore 2

prova a studiarti ed ad utilizzare la funzione COUNTIFS (CONTA.PIU'.SE)

al posto di CountIf (CONTA.SE)

Dire solamente che il risultato ottenuto non è ancora perfetto,
non è particolarmente gradevole per chi ti sta dando una mano........


Ricordo anche bene che in passato, questa cosa ti è già stata fatta notare anche da altri utenti.

Sono certo che ce la puoi fare


Ciao
Frank

potresti anche:

creare una variabile contatore

un If .... Then a due condizioni con un AND
all'interno di un
FOR ..... NEXT sulla colonna "E", da "E6" to UR

Fare la stessa cosa per la colonna "F"


Ciao
Frank

capisco
mi scuso per l'uso delle parole che assolutamente non devono essere fraintese, prima di postare aiuti provo e riprovo varie combinazioni
cerco sul web etc...

Grazie a Frank che mi ha fatto conoscere Application.WorksheetFunction.CountIfs

ho modificato il codice come segue e pare che adesso funzioni

UR1 = Sheets("Stampa").Range("B11").End(xlDown).Row
For i = 11 To UR1
DoEvents
Nom = Sheets("Stampa").Cells(i, 2)
Sheets("Stampa").Cells(i, 6) = Application.WorksheetFunction.CountIfs(Sheets("Registro").Range("E6:E" & UR), "X", Sheets("Registro").Range("A6:A" & UR), Nom)
Next i

Sicuramente per voi il codice è brutto ma per le mie capacità mi devo accontentare, proseguo con il lavoro e verifico se avrò bisogno ancora del vostro indispensabile aiuto

per adesso grazie 1000

Se vuoi imparare sii curioso come sei e non cercare risposte da chi le
ha già'.
Fatti domande e prima di scrivere un codice in vba,
scrivilo in italiano.




Ciao
Frank