Beh mi devi dire tu, a questo punto, cosa vorresti avere
un elenco fino a 13/14 estrazioni/mese? (è sufficiente incrementare la convalida)
oppure solo inizio e fine mese ma perdiamo le estrazioni intermedie.
ciao
EDIT: Nel frattempo ho modificato così
da 1 a 3 avrai le prime tre estrazioni del mese
con 4 impostato in J2 avrai l'ultima estrazione del mese
- Codice: Seleziona tutto
Sub TrovaEstr()
UR = Worksheets("Archivio").Range("A" & Rows.Count).End(xlUp).Row
Range("B3:B10000").ClearContents
MM = ""
CS = 0
For RR = 3 To UR
If Len(Range("C" & RR).Value) > 9 Then
If Month(Range("C" & RR).Value) <> MM Then
If Range("J2").Value <> 4 Then
For RS = 1 To 4
If Range("J2").Value = RS Then
CS = CS + 1
Range("B" & RR).Value = CS
RR = RR - 1
End If
RR = RR + 1
Next RS
MM = Month(Range("C" & RR).Value)
Else
If MM <> "" Then
CS = CS + 1
Range("B" & RigaP).Value = CS
End If
End If
Else
RigaP = RR
End If
MM = Month(Range("C" & RR).Value)
End If
Next RR
End Sub