You are here:---Rispondi a: [RISOLTO] Riassumere scadenze in foglio di lavoro
Rispondi a: [RISOLTO] Riassumere scadenze in foglio di lavoro2018-11-19T10:11:52+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

sidsid
Moderatore
    Post totali: 718

    Un esempio da mettere in un modulo standard

    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:J" & 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
    WS2.Range("A2:B" & 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

    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