Formula Calcolo Voli ed Ore

---

Praticamente ogni volta che la riga 6 del foglio MFR1 è movimentata la cella dell'altro foglio deve contare 1.

---

---

Come detto al punto 1 la formula di per se può essere modificata o cambiata come impostazione a me interessa che mi venga restituito il valore corretto che è il numero di volte in cui c'è un numero tranne il numero 31 o 32 o 31 e 32.
Esempio se nella riga 4 dalla colonna F/G in poi del foglio MFR1 c'è scritto 27 deve contare 2 se c'è scritto 27-30 deve contare 4, se c'è scritto 35-42 deve contare 4, se c'è scritto 28-31 deve contare due perchè la formula non deve moltiplicare per due nè la cifra 31 nè 32.
Secondo l'esempio appena descritto io nella cella D17, dunque, del foglio riepilogo devo vedere indicato il totale 12.

---

---

... la formula funziona egregiamente.

---

---

Il file che ho postato è solo l'esempio (uno stralcio) di un file più grande che contiene MFR e riepilogo MFR per quanti giorni ci sono in un mese, quindi diciamo genericanente 31 MFR e 31 riepiloghi.

---

Option Explicit

Sub Analizza()
On Error GoTo 10
Application.ScreenUpdating = False
Dim x As Byte, Tot As Byte, y As Byte, w As Byte
Dim Fgl As String
   
    Fgl = Cells(1, 6).Value
    With Worksheets(Fgl)
        For x = 6 To 78 Step 3
            If .Cells(4, x).Value <> "" Then
                If Len(.Cells(4, x)) = 2 Then
                    y = Left(.Cells(4, x), 2)
                        If y <> 31 And y <> 32 Then Tot = Tot + 2
                End If
                If Len(.Cells(4, x)) = 5 Then
                    y = Left(.Cells(4, x), 2)
                        If y <> 31 And y <> 32 Then Tot = Tot + 2
                    w = Right(.Cells(4, x), 2)
                        If w <> 31 And y <> 32 Then Tot = Tot + 2
                End If
            End If
        Next x
    End With
        Cells(17, 4).Value = Tot
10:
Application.ScreenUpdating = True
End Sub

---

Se mi spieghi come fare ad inserire in ogni foglio di riepilogo il codice VBA attribuendolo al pulsante provvedo ad integrare anche gli altri fogli avendo raggiunto il mio obiettivo.

---

---

Io non trovo la formula che tu citi in B2, sia nel foglio MFR che nel ripeilogo; in B2 non trovo il riferimento da te citato.
Posso dirti, però, che possiamo utilizzare la cella B2 del foglio MFR perchè la scritta DATE al momento inserita non è indispensabile.

---

---

Con il metodo a Menù proposto la cella E4 del foglio di riepilogo funzionerebbe lo stesso correttamente evidenziando il totale dei voli presenti sul foglio MFR di riferimento?

---

 =CONTA.SE(INDIRETTO("'" & $B$2&"'!$F6:CB6");">a") 

 =CONTA.SE(INDIRETTO("'" & $B$2&"'!$F$6:$CB$6");">a") 

---

Il foglio dovrà essere gestito almeno da tre persone diverse e ci può stare che nella fretta di operare, o per leggerezza di chi lo compila, possano dimenticarsi di visualizzare il riepilogo corretto.
Rischieremmo, pertanto, di avere valori di produttività sbagliata inficiando il nostro lavoro.

---

---

Il foglio dovrà essere gestito almeno da tre persone diverse e ci può stare che nella fretta di operare, o per leggerezza di chi lo compila, possano dimenticarsi di visualizzare il riepilogo corretto.
Ti prego solo di chiarirmi, per piacere, l'aspetto legato all'inserimento del codice VBA che deve funzionare su ogni foglio di riepilogo.

---

---

Se mi permetti, un suggerimento. Quando si clicca su "Riepilogo MFR" un MSG che chiede quale giornata analizzare (togliere la convalida Dati in B2 e far sparire tutti gli altri fogli + casomai un bottone=menu).

---

---

Inoltre fare da qualche parte una tabella con le varie sigle (27-28,29-30,28,29,30-31,35-36,35-28 ecc ecc "con range più ampio di quello attuale") con a fianco i vari numeri. Questo eviterebbe di modificare il VBA in futuro causa variazioni di lavoro.

---

---

... il foglio nasce con excel 2013 ma verrà utilizzato con la versione 2003 ...

---