XL Traslare dati da orizzontale a verticale (solo in parte)

[Flash30005]

E' giusto che tu cominci a "mettere le mani" nelle macro
ma se non è chiara quella che ti ho postato,
(confrontandola con la precedente potresti dedurre cosa fare), lo faresti in maniera sbagliata con grandi perdite di tempo e senza ottenere risultati.
Però se ti impegni a capire come funziona potresti riuscire nell'intento.

Se invece te la devo modificare io o dirti come modificarla
dovresti fare almeno uno screenshot della testata di inizio e di come vorresti il foglio finale.

Ciao

[Angroz]

Eccola, i puntini indicano che le taglie proseguono. Mi piacerebbe capire la differenza rispetto alla macro che mi hai mandato, se me la mandi poi me la guardo io così capisco, grazie in anticipo.

Gli spazi sulle colonne delle taglie equivalgono a 0.

da


a


p.s. i vs Suggerimenti sono molto utili per imparare a "leggere" e creare le macro, grazie.

Angroz

[Flash30005]

Mi piacerebbe capire la differenza rispetto alla macro che mi hai mandato, se me la mandi poi me la guardo io così capisco, grazie in anticipo.

Ma questo, ripeto, già lo puoi fare confrontando il primo file inviato e l'ultimo (con la modifica delle tre colonne in più)

Ora vedrò come modificare per questa nuova specifica

ciao

[Flash30005]

Ti invio la macro

Codice: Seleziona tutto

Sub Trasponi5()
Righe2 = Sheets("Foglio2").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("Foglio2").Range("A1:K" & Righe2).ClearContents
Righe = Sheets("Foglio1").Range("A2").CurrentRegion.Rows.Count
Colonne = Sheets("Foglio1").Range("A2").CurrentRegion.Columns.Count
Sheets("Foglio1").Range("A1:I1").Copy Destination:=Sheets("Foglio2").Cells(1, 1)
    Sheets("Foglio2").Range("J1").FormulaR1C1 = "Taglia"
    Sheets("Foglio2").Range("K1").FormulaR1C1 = "Qtà"
    For RR1 = 2 To Righe
        For CC1 = 10 To Colonne
            Sheets("Foglio1").Range("A" & RR1 & ":I" & RR1).Copy Destination:=Sheets("Foglio2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
            Sheets("Foglio1").Cells(1, CC1).Copy Destination:=Sheets("Foglio2").Cells(Rows.Count, 10).End(xlUp).Offset(1, 0)
            Sheets("Foglio1").Cells(RR1, CC1).Copy Destination:=Sheets("Foglio2").Cells(Rows.Count, 11).End(xlUp).Offset(1, 0)
        Next CC1
    Next RR1
    Range("A1").Select
End Sub

Ciao