inserirò due semplici immagini esplicative di quanto cerco di realizzare,
questo è il primo caso:
questo è il secondo caso:
e questa è la macro che ho realizzato:
- Codice: Seleziona tutto
Sub Progress()
For M = 2 To Range("C" & Rows.Count).End(xlUp).Row
conta = conta + 1
mese1 = Month(Cells(M, 3).Value)
mese2 = Month(Cells(M + 1, 3).Value)
If mese1 = mese2 Then Cells(M, 2) = conta
If mese1 <> mese2 Then
Cells(M, 2) = "U.G.M."
conta = 0
End If
Next M
End Sub
La macro dovrebbe scrivermi la progressione sino alla ultima del mese, nel qual caso dovrà scrivere"U.G.M."
mentre negli altri casi dovrebbe proseguire con il naturale incremento.
Spero sia tutto chiaro, ringrazio chi mi può modificare o fare la macro in modo corretto.
Francesco