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...

[Merlbbard]

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 fnf

Se la data esiste più volte nel foglio Generale, io importerei il valore della cassa dell'ultima registrazione di quella giornata. Per i giorni non trovati, la "N" è una buona soluzione perché permette di individuare subito le date mancanti. Hai già verificato che le date nei due fogli abbiano esattamente lo stesso formato e non contengano anche l'orario?

[raimea]

ciao

Antony47
tutto ok

Merlbbard

Se la data esiste più volte nel foglio Generale, io importerei il valore della cassa dell'ultima registrazione di quella giornata

SI, hai interpretato correttamente la richiesta

grazie ad entrambi

ciao