Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

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

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

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

Postdi Flash30005 » 09/04/10 14:53

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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Sponsor
 

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

Postdi Angroz » 09/04/10 18:58

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
Immagine

a
Immagine

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

Angroz
Angroz
Utente Junior
 
Post: 53
Iscritto il: 18/11/09 09:21

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

Postdi Flash30005 » 09/04/10 22:06

Angroz ha scritto: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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

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

Postdi Flash30005 » 10/04/10 08:05

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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "XL Traslare dati da orizzontale a verticale (solo in parte)":


Chi c’è in linea

Visitano il forum: Nessuno e 8 ospiti