MODIFICA TABELLE IN EXCEL

[AngyGates]

buongiorno a tutti, è la prima volta che scrivo...ho bisogno del vostro aiuto!!
Ho una tabella in excel su molte righe e 4 colonne ..devo spostare i dati contenuti nelle prime 3 colonne in una sola colonna.
Attualmente eseguo in sequenza:
copia,
inserisci in basso,
quindi, sposto sotto la prima colonna i dati della 2^ e 3^ colonna ed elimino i restanti dati .
Ripeto tali operazioni per le prime tre colonne e per ogni gruppo di dati.

Il problema è che il file può contenere circa 2000-3000 righe e che i gruppi di dati non sono omogenei (gruppi da 10 oppure da 20 ecc...)...e quindi il copia ed incolla richiede tanto tempo e tanto rischio di errore...vorrei poter fare queste operazioni in maniera più sicura e con pochi clic (ho pensato anche alle pivot..ma non ho trovato la soluzione giusta)...........help, meeeeeeeeee

Vi riporto in basso un esempio
la tabella com'è
Nome Prodotto Codice Cognome e nome Pres Sal Time Euro
AUTOMOBILE 3220 ROSSI MARIO 70 70 55,00 390,00
AUTOMOBILE 3220 VERDI GIUSEPPE 114 89 70,50 500,50
AUTOMOBILE 3220 BIANCHI FABIO 54 53 93,50 701,50
AUTOMOBILE 3220 MONTI FEDERICO 9 9 4,50 27,00
AUTOMOBILE 3220 ALPI GIOVANNI 75 75 66,50 432,50
MOTOCICLETTA 3860 ROSSI MARIO 179 119 46,39 394,95
MOTOCICLETTA 3860 VERDI GIUSEPPE 144 79 37,79 249,43
MOTOCICLETTA 3860 BIANCHI FABIO 121 84 74,46 540,28
MOTOCICLETTA 3860 MONTI FEDERICO 16,10 80,50
CICLOMOTORE 3864 ROSSI MARIO 105 18 37,79 267,93
CICLOMOTORE 3864 VERDI GIUSEPPE 106 30 74,46 615,28
CICLOMOTORE 3864 BIANCHI FABIO 106 20 60,03 395,15
CICLOMOTORE 3864 MONTI FEDERICO 106 25 85,34 546,68
CICLOMOTORE 3864 ALPI GIOVANNI 127 30 37,63 512,13
BICICLETTA 3853 ROSSI MARIO 14,59 72,95
BICICLETTA 3853 VERDI GIUSEPPE 0,00


come diventa

Nome Prodotto Codice Cognome e nome Pres Sal Time Euro
AUTOMOBILE 3220 ROSSI MARIO 390,00
AUTOMOBILE 3220 VERDI GIUSEPPE 500,50
AUTOMOBILE 3220 BIANCHI FABIO 701,50
AUTOMOBILE 3220 MONTI FEDERICO 27,00
AUTOMOBILE 3220 ALPI GIOVANNI 432,50
MOTOCICLETTA 3860 ROSSI MARIO 394,95
MOTOCICLETTA 3860 VERDI GIUSEPPE 249,43
MOTOCICLETTA 3860 BIANCHI FABIO 540,28
MOTOCICLETTA 3860 MONTI FEDERICO 80,50
CICLOMOTORE 3864 ROSSI MARIO 267,93
CICLOMOTORE 3864 VERDI GIUSEPPE 615,28
CICLOMOTORE 3864 BIANCHI FABIO 395,15
CICLOMOTORE 3864 MONTI FEDERICO 546,68
CICLOMOTORE 3864 ALPI GIOVANNI 512,13
BICICLETTA 3853 ROSSI MARIO 72,95
BICICLETTA 3853 VERDI GIUSEPPE 0,00
AUTOMOBILE 3220 ROSSI MARIO 70
AUTOMOBILE 3220 VERDI GIUSEPPE 114
AUTOMOBILE 3220 BIANCHI FABIO 54
AUTOMOBILE 3220 MONTI FEDERICO 9
AUTOMOBILE 3220 ALPI GIOVANNI 75
MOTOCICLETTA 3860 ROSSI MARIO 179
MOTOCICLETTA 3860 VERDI GIUSEPPE 144
MOTOCICLETTA 3860 BIANCHI FABIO 121
MOTOCICLETTA 3860 MONTI FEDERICO
CICLOMOTORE 3864 ROSSI MARIO 105
CICLOMOTORE 3864 VERDI GIUSEPPE 106
CICLOMOTORE 3864 BIANCHI FABIO 106
CICLOMOTORE 3864 MONTI FEDERICO 106
CICLOMOTORE 3864 ALPI GIOVANNI 127
BICICLETTA 3853 ROSSI MARIO
BICICLETTA 3853 VERDI GIUSEPPE
AUTOMOBILE 3220 ROSSI MARIO 70
AUTOMOBILE 3220 VERDI GIUSEPPE 89
AUTOMOBILE 3220 BIANCHI FABIO 53
AUTOMOBILE 3220 MONTI FEDERICO 9
AUTOMOBILE 3220 ALPI GIOVANNI 75
MOTOCICLETTA 3860 ROSSI MARIO 119
MOTOCICLETTA 3860 VERDI GIUSEPPE 79
MOTOCICLETTA 3860 BIANCHI FABIO 84
MOTOCICLETTA 3860 MONTI FEDERICO
CICLOMOTORE 3864 ROSSI MARIO 18
CICLOMOTORE 3864 VERDI GIUSEPPE 30
CICLOMOTORE 3864 BIANCHI FABIO 20
CICLOMOTORE 3864 MONTI FEDERICO 25
CICLOMOTORE 3864 ALPI GIOVANNI 30
BICICLETTA 3853 ROSSI MARIO
BICICLETTA 3853 VERDI GIUSEPPE
AUTOMOBILE 3220 ROSSI MARIO 55,00
AUTOMOBILE 3220 VERDI GIUSEPPE 70,50
AUTOMOBILE 3220 BIANCHI FABIO 93,50
AUTOMOBILE 3220 MONTI FEDERICO 4,50
AUTOMOBILE 3220 ALPI GIOVANNI 66,50
MOTOCICLETTA 3860 ROSSI MARIO 46,39
MOTOCICLETTA 3860 VERDI GIUSEPPE 37,79
MOTOCICLETTA 3860 BIANCHI FABIO 74,46
MOTOCICLETTA 3860 MONTI FEDERICO 16,10
CICLOMOTORE 3864 ROSSI MARIO 37,79
CICLOMOTORE 3864 VERDI GIUSEPPE 74,46
CICLOMOTORE 3864 BIANCHI FABIO 60,03
CICLOMOTORE 3864 MONTI FEDERICO 85,34
CICLOMOTORE 3864 ALPI GIOVANNI 37,63
BICICLETTA 3853 ROSSI MARIO 14,59
BICICLETTA 3853 VERDI GIUSEPPE

[gahan]

Ciao,

sposto la discussione nella sezione adatta.

[AngyGates]

e qual è la sezione adatta?? :-((
è la prima volta che tento di scrivere in un forum...
grazieeeeeeeee

[gahan]

e qual è la sezione adatta?? :-((
è la prima volta che tento di scrivere in un forum...
grazieeeeeeeee

Non ti preoccupare.
Applicazioni Office Windows (Word, Excel ecc. ecc.)

[AngyGates]

Tks!!

[Anthony47]

Ciao AngyGates, benvenuto nel forum.

Purtroppo la mancata formattazione del testo rende illeggibili i dati di partenza e quelli desiderati; potrebbe essere utile allegare quindi direttamente il file di esempio, per la procedura puoi guardare qui: viewtopic.php?f=26&t=80395

Inoltre, mi pare che stai chiedendo di destrutturare i tuoi dati, operazione che mi lascia sempre un po' perplesso: sei sicuro che questo sia la via giusta per arrivare al risultato finale? e quale e' l' obiettivo finale?

Ciao, ti aspettiamo.

[AngyGates]

Eccomi qui...proprio quello che mi serviva..allegare il file, Grazie!!!

Di seguito il link
http://myfreefilehosting.com/f/0d2bd5af66_0.01MB

Anthony..se ho ben capito cosa intendi per destrutturare..purtroppo sì..devo farlo..
La questione è che la prima tabella mi giunge in quel modo (proviene da un tipo di output)..mentre io devo produrre la tabella input per un altro software che ragionando solo su righe (e non su righe e colonne) deve avere per forza il secondo formato.

Proprio perchè occorre "smanettare" coi dati, con troppi dati, mi piacerebbe trovare soluzioni per ridurre al minimo la manualità su quei dati..ripeto, pensavo ad una pivot..ma anche qui...la pivot raggruppa i dati, non li splitta ..ieri ho pensato ad un copia ed incolla di tutta la tabella per 3 volte, invece che di ogni singolo gruppo per 3 volte..ma non mi fa impazzire

Grazie ancora

[Flash30005]

Ciao AngyGates e benvenuto nel Forum

Ho eseguito una registrazione delle fasi e adattato alle possibili variazioni (quantità righe, etc)
Considero che la tabella iniziale inizi dalla riga 2 (testata) altrimenti si deve correggere l'inizio della fase copia
e che la tabella destinazione sia nel foglio 2

invio la macro

Codice: Seleziona tutto

Public Ws1, Ws2 As Worksheet
Sub TraspTab()

Set Ws1 = Worksheets("Foglio1")
Set Ws2 = Worksheets("Foglio2")
Ws2.Cells.Clear
    UR = Ws1.Range("A" & Rows.Count).End(xlUp).Row

    Ws1.Range("A2:D" & UR).Copy Destination:=Ws2.Range("A1")
    Ws1.Range("E2:H2").Copy Destination:=Ws2.Range("E1")
    UR2 = Ws2.Range("A" & Rows.Count).End(xlUp).Row
    Ws2.Range("A2:D" & UR2).Copy Destination:=Ws2.Range("A" & UR2 + 1)
    Ws2.Range("A2:D" & UR2).Copy Destination:=Ws2.Range("A" & 2 * UR2)
    Ws2.Range("A2:D" & UR2).Copy Destination:=Ws2.Range("A" & 3 * UR2 - 1)
    Ws2.Columns("A:D").EntireColumn.AutoFit
    Ws1.Range("H3:H" & UR).Copy Destination:=Ws2.Range("H2")
    Ws1.Range("E3:E" & UR).Copy Destination:=Ws2.Range("E" & UR2)
    Ws1.Range("F3:F" & UR).Copy Destination:=Ws2.Range("E" & 2 * UR2)
    Ws1.Range("G3:G" & UR).Copy Destination:=Ws2.Range("E" & 3 * UR2 - 1)
Call FormattaTab

End Sub
Sub FormattaTab()
Ws2.Select
    Range("E2:H65").Select
    Application.CutCopyMode = False
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    Range("G6").Select

End Sub


La seconda macro è solo di formattazione tabella destinazione se vuoi puoi eliminarla

Fai sapere
ciao

[AngyGates]

Wow..Flash30005...grazie mille!!
domani proverò ad usarla..ti darò aggiornamenti!!!

grazie mille!

AngyGates

[Flash30005]

Fai attenzione!
La prima riga del foglio1 l'ho lasciata come l'hai postata
con l'indicazione "la tabella com'è "
Nel caso che nella prima riga immetti la testata
la macro dovrà essere adattata per la prima riga del foglio1 e non la seconda (testata) e terza (dati)
non è complicato e penso tu possa riuscirci da solo, semmai posta ancora

ciao

[AngyGates]

Ciao Flash30005!!
c'ho perso la testa per un pò..poi improvvisamente l'illuminazione è giunta!! e sono riuscita a registrare e farla funzionare..però non funziona proprio correttamente perchè sfasa i dati..cioè i valori di alcuni vanno a finire in corrispondenza di qualcun altro..

però mi è stata utilissima e mi piacerebbe adattarla meglio alle mie esigenze (infatti devo aggiungere altri passaggi cambiando i codici),
ma non conosco bene come fare a far adattare la macro al numero di righe di volta involta presenti nel file..puoi spiegarmi quale parte corrisponde a tale aggiustamento?

Grazie!

[Flash30005]

Per fare l'aggiustamento che richiedi dovresti far capire cosa hai di diverso rispetto al file da te pubblicato inizialmente

oppure pubblicare (modificando dati sensibili) il nuovo file

ciao

[AngyGates]

ciao a tutti, ciao in particolare a Flash30005!

Perdonate l'assenza..ho avuto da fare.. ho rielaborato il file "tipo" che invio in allegato
http://myfreefilehosting.com/f/4cc6a3e381_0.25MB

Il file contiene già delle macro da me elaborate che corrispondono a tutti i vari step che mi servono per pulire del tutto il file da eventuali imprecisioni (quella più importante è "Incolonnamento_Abbinamento_codici").

Quello al secondo link il file con il formato finale per dare un'idea di come diventa.
http://myfreefilehosting.com/f/fd1dea4347_0.47MB

Quello che mi serve soprattutto è poter adattare le righe giacchè il numero di righe varia notevolmente di volta in volta che devo elaborarlo.

Grazie per il supporto!!
AngyGates

[Flash30005]

Per fare mente locale, dopo un mese, ho impegato diverso tempo...

Prova questo file

ciao

P.s. Puoi mettere un pulsante di comando su sheet1 che attivi la macro "TraspTab"