You are here:---Rispondi a: [RISOLTO] Quaterne
Rispondi a: [RISOLTO] Quaterne2018-05-13T18:51:56+02:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] Quaterne Rispondi a: [RISOLTO] Quaterne

BySalvBySalv
Amministratore del forum
    Post totali: 505

    Ciao Eccoti la Macro

    Sub quaterne()
    Dim r, c, c1, c2, x, y, z, d, k
    
    r = 10
    c = 24
    c1 = 3
    Range("Dele").ClearContents
    For x = 10 To Cells(Rows.Count, 3).End(xlUp).Row
        For z = c1 To Cells(x, Columns.Count).End(xlToRight).Column - 3
            If Cells(x, z + 3) = "" Then
                Exit For
            End If
            d = Cells(x, z) & "-" & Cells(x, z + 1) & "-" & Cells(x, z + 2) & "-"
            c2 = z + 3
            For y = c2 To Cells(x, Columns.Count).End(xlToRight).Column
                If Cells(x, y) = "" Then
                    Exit For
                End If
                k = d & Cells(x, y)
                Cells(r, c) = k
                c = c + 1
            Next y
        Next z
        r = r + 1
        c = 24
    Next x
    End Sub

    ho creato un range “Dele” in Nomi per cancellare i dati, nel caso devi aggiungere altre righe devi aggiornarlo.

    Ciao By Sal :bye:

    il link al file
    https://mega.nz/#!5ZVExDQA!jdO6ejsAKKYV-nWNPtZZ6LWektPVp2BQM2QcaRZKwSs

    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