trovare e scrivere date mancanti

[raimea]

ciao

tramite macro
vorrei scrive i giorni in cui non ho
avuto una partita.

analizzando le date in fgl 4_archivio
col F14:F
vorrei riportare i giorni " mancanti "
in fgl 5_tabelle da cella H66

x far capire ho scritto manualmente
le prime date mancanti

vi allego il file

https://www.dropbox.com/scl/fi/h8wczro1g9uty7g39zz9d/giorni-senza.xlsm?rlkey=i9z6a0cpntmsw103rfr266x1j&st=zwb4knrc&dl=0

ciao

[Anthony47]

Prova con questa:

Codice: Seleziona tutto

Sub MissingDays()
Dim wArr, oArr() As Long, I As Long, rDate As Range
'
Set rDate = Range(Sheets("4_archivio").Range("F14"), Sheets("4_archivio").Range("F14").End(xlDown))
ReDim oArr(Application.WorksheetFunction.Min(rDate) To Application.WorksheetFunction.Max(rDate), 1 To 1)
wArr = rDate.Value
For I = 1 To UBound(wArr)
    oArr((wArr(I, 1)), 1) = 1
Next I
For I = LBound(oArr) To UBound(oArr)
    If oArr(I, 1) = 0 Then
        Sheets("5_tabelle").Cells(Rows.Count, "H").End(xlUp).Offset(1, 0).Value = CDate(I)
    End If
Next I
End Sub