preleva il valore cassa per ogni giornata

[raimea]

ciao

tramite macro, vorrei compilare la colonna F
del fgl Giorno2

confrontando la data
di col L5 fgl giorno2
con la data in fgl generale col D8

voglio importare il valore della cassa
col Q all' ultimo valore della giornata

SE la data di fogl giorno2
NON viene trovata in generale
in fgl giorno2 colonna F mettere la lettera " n "
relativa a quel giorno non trovato

la ricerca deve far riferimento fino all ultima data
compilata nel fgl generale

nel file allegato , ho compilato manualmente
alcune riga per far capire come dovrebbe lavorare la macro.

vi allego il file

ciao



https://www.dropbox.com/scl/fi/d3im90r9qesr8llsdsn6t/compila_giornata.xlsm?rlkey=xt9g1xpllkpco1043nwr0feo9&st=qbxu0a5s&dl=0

[Anthony47]

Dovrebbe andare bene questa:

Codice: Seleziona tutto

Sub NuovaCassa()
Dim I As Long, mMatch As Variant, CurDt As Date
Dim mArea As Range, Gen As Worksheet, MaxDt As Date
Dim oArr()
'
Sheets("Giorno2").Select
Set Gen = Sheets("generale")
Set mArea = Range(Gen.Range("D1"), Gen.Range("D8").End(xlDown))
MaxDt = Application.WorksheetFunction.Max(mArea)
ReDim oArr(5 To Range("L5").End(xlDown).Row, 1 To 1)
For I = 5 To Range("L5").End(xlDown).Row
    CurDt = Cells(I, "L")
    mMatch = Application.Match(CLng(CurDt), mArea)
    If Gen.Cells(mMatch, "D") = CurDt Then
        oArr(I, 1) = Gen.Cells(mMatch, "Q")
    Else
        oArr(I, 1) = "n"
    End If
    If CurDt > MaxDt Then Exit For
Next I
Range("F5").Resize(UBound(oArr) - 4, 1) = oArr
End Sub


Prova e fai sapere...