You are here:---Rispondi a: [RISOLTO] Calcolo giorni per differenza date e trasferisce valori
Rispondi a: [RISOLTO] Calcolo giorni per differenza date e trasferisce valori 2019-02-20T10:58:26+01:00

Home Forum Domande su Excel Generale [RISOLTO] Calcolo giorni per differenza date e trasferisce valori Rispondi a: [RISOLTO] Calcolo giorni per differenza date e trasferisce valori

BySalvBySalv
Amministratore del forum
    Post totali: 401

    Ciao Paolots, ecco il file con la macro, la cosa importante che la colonna “B” sia ordinata alfabeticamente.

    questa la macro:

    Sub sviluppa()
    Dim r, c, x, d
    
    For x = 2 To Cells(Rows.Count, 2).End(xlUp).Row
        d = Cells(x, 2)
        If d <> Cells(x - 1, 2) Then
            r = x
            c = 10
            If Cells(x, 6) = "" Then
                Cells(x, 9) = "N"
                Cells(x, 10) = Cells(x, 7)
            Else
                Cells(x, 9) = Cells(x, 7) - Cells(x, 6)
                Cells(x, 10) = Cells(x, 7)
            End If
        End If
        If d = Cells(x - 1, 2) Then
            c = c + 1
            Cells(r, c) = Cells(x, 7)
        End If
    Next x
    End Sub

    ti posizioni sul foglio e lanci la macro, l’ho legata ad i tasti “Control+p” oppure la lanci aprendo le macro con F8 si chiama “Sviluppa”

    questo il file ho aggiunto un foglio “Input1” per fare le prove

    http://www.filedropper.com/forum_7

    Ciao By Sal :bye:

    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