You are here:---Rispondi a: [RISOLTO] Riassumere scadenze in foglio di lavoro
Rispondi a: [RISOLTO] Riassumere scadenze in foglio di lavoro2018-11-19T14:43:02+02:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] Riassumere scadenze in foglio di lavoro Rispondi a: [RISOLTO] Riassumere scadenze in foglio di lavoro

bg66bg66
Partecipante
    Post totali: 50

    Ciao Sid,
    grazie per il tuo intervento.
    In realtà volutamente non ho scritto/detto che i dati in scadenza erano 2 perchè volevo provare io a capire lo script per poi correggerlo….ma purtroppo non ci sono riuscito :

    Sub SCADUTI()
    
    Dim WS1 As Worksheet, WS2 As Worksheet
    Dim DB As Variant, Matrix() As Variant
    Dim j As Long, nIncr As Long
    
    Set WS1 = Sheets("DB Doc")
    Set WS2 = Sheets("In scadenza")
    
    DB = WS1.Range("A2:K" & WS1.Range("J" & Rows.Count).End(xlUp).Row).Value2
    
    For j = LBound(DB) To UBound(DB)
        If DB(j, 10) < Date Then
            nIncr = nIncr + 1
            ReDim Preserve Matrix(1 To 2, 1 To nIncr)
            Matrix(1, nIncr) = DB(j, 1)
            Matrix(2, nIncr) = CDate(DB(j, 10))
        End If
    Next j
    
    For k = LBound(DB) To UBound(DB)
        If DB(k, 11) < Date Then
            nIncr = nIncr + 1
            ReDim Preserve Matrix(1 To 2, 1 To nIncr)
            Matrix(1, nIncr) = DB(k, 1)
            Matrix(2, nIncr) = CDate(DB(k, 11))
        End If
    Next k
    WS2.Range("A2:C" & Rows.Count).ClearContents
    
    If nIncr > 0 Then
        WS2.Range("A2:B" & nIncr + 1).Value = Application.Transpose(Matrix)
    End If
    
    Set WS1 = Nothing
    Set WS2 = Nothing
    
    End Sub

    Il risultato ottenuto non è quello atteso:

    Attendo tue per capire l’errore….e mi mette anche le altre date all’americana..
    https://www.dropbox.com/s/mglovtkaxbrkcy0/GestScadenze%20VF%20bySid.xlsm?dl=0

    • Questa risposta è stata modificata 10 mesi fa da bg66 bg66.
    • Questa risposta è stata modificata 10 mesi fa da bg66 bg66.
    • Questa risposta è stata modificata 10 mesi fa da bg66 bg66.

    Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

    Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

    Chiudi