Conta da data a data

La colonna A mi contiene della date in formato es. 12/12/2011 (per la precisione partono dalla A6) e si susseguono fino a.......?

In C4 inserisco una data di inizio
In C5 inserisco la data di fine
Come contare le righe occupate da questo range di date In C6

Siccome uso una UserForm per consultare i dati mi andrebbe bene pure una macro.

Grazie e saluti

Giorgio

Ciao Giorgio e benvenuto, per cortesia aderisci alla campagna "Versione excel".

Mi è poco chiaro cosa devi ottenere visto che parli di una userform; provo, puoi utilizzare una colonna di appoggio, ad esempio in colonna F:

=SE(E(A6>=$C$4;A6<=$C$5);1;"") e poi con =SOMMA(F6:F20000) ottieni il numero di righe impegnate

oppure in colonna G:

=SE(E(A6>=$C$4;A6<=$C$5);RIF.RIGA(A6);"") e poi con ="A"&MIN(G6:G20000)&":"&MAX(G6:G20000) ottieni il range occupato, ma in questo caso le date devono essere consecutive (senza salto di righe).

Ma potrebbe bastare anche un semplice =C5-C4, sempre che le date siano consecutive e non ripetitive.

Ti allego esempio. Ciao e buona notte.

Grande Antonio. Mitico

E' quello che volevo.

Cordialità e grazie di cuore

Caio Giorgio, grazie te per il riscontro.

Scusa Antonio.
Un ulteriore domanda

La Data di inizio e in G2 e quella di fine in G3

Come caricare all'apertura del foglio in G3 la Data odierna?

Presumo che nell" Worbook evento Open dell' editor vba va messo del codice ActiveCell.Value = Now()


Grazie e notte

Risolto credo.


Private Sub Workbook_Open()
Worksheets(1).Range("G2") = Date - 30
Worksheets(1).Range("G3") = Date
UserForm1.Show ' All'apertura del foglio si apre la maschera
End Sub

Un ulteriore domanda:

Come fare per far si che all'apertura del file mi si apra sempre il foglio1? In caso di chiusura del file con attivo il Foglio2, alla riapertura del file si riapre sul foglio2 e mi manda in errore la maschera (form) che è impostata sul Foglio1.

Grazie di nuovo.

Saluti

Come fare per far si che all'apertura del file mi si apra sempre il foglio1? In caso di chiusura del file con attivo il Foglio2, alla riapertura del file si riapre sul foglio2 e mi manda in errore la maschera (form) che è impostata sul Foglio1.

=============================================================
Ciao Giorgio.Abbrandini, così:

Private Sub Workbook_Open()
Sheets("Foglio1").Activate
Worksheets(1).Range("G2") = Date - 30
Worksheets(1).Range("G3") = Date
UserForm1.Show ' All'apertura del foglio si apre la maschera
End Sub

Grazie di cuore Benedetto
Perfetto.

Buona giornata

E' servito anche a me grazie