Affiancare celle dispari alle celle pari in excel

[ricky53]

Ciao,
dopo aver fatto "Upload" ti restituisce dei link, rifai l'upload e gaurda con attenzione la pagina che ti viene proposta

[bibo60100]

http://myfreefilehosting.com/f/6603fa93ff_0.31MB

[ricky53]

Ciao,
mi permetto di scrivere: come pensavo la tua esigenza è diversa da quanto esposto.

Il "gruppo", a mio avviso, dovrebbe essere posto in colonna davanti al "codice" o meglio occorre riorganizzare i dati ma è necessario sapere cosa devi farci con questa base dati.

Esempio di nuova organizzazione:
Gruppo..........Descrizione gruppo...........Codice...Descrizione Codice....................Unità di misura...Prezzo
110..............ALBUM BLOCCHI DISEGNO...FB1017..341150 ALBUM F3 NERO FG 24X34...PZ...................1,296
110..............ALBUM BLOCCHI DISEGNO...FB661...341151 BLOCCO TIZIANO 24X33......PZ...................2,250
110..............ALBUM BLOCCHI DISEGNO...PG8045..8045 BL. RAFF. CM 24X33 16F L.....PZ...................0,545
ecc.
ecc.

Cosa ti occore effettivamente come risultato finale?
Sentiamoci e sicuramente ne usciremo ma occorre precisione e chiarezza sulle necessità

Non dirmi che sono un precisino e rompino ma ... al contrario la mia intenzione/volontà è di aiutare tutti coloro che pongono quesiti nei forum.

Ciao da Ricky53

[bibo60100]

Quello che dici è giusto
il codice 110 come hai scritto per quello che penso potrebbe essere conglobato alla descrizione,altrimenti fa lo stesso.
Per il resto è giusto come hai scritto

[ricky53]

Ciao,
per esperienza conviene averli distinti.

Io guarderei anche la descrizione codice:
Descrizione Codice....................
341150 ALBUM F3 NERO FG 24X34...
341151 BLOCCO TIZIANO 24X33......
8045 BL. RAFF. CM 24X33 16F L.....

in molti casi ci sono dei numeri davanti alla descrizione
341150
341151
8045
...
...
...

sicuramente significano qualcosa, vale la pena di spezzare (se possibile) in due colonne i dati?

Però non hai detto quale obiettivo finale hai, altrimenti riorganizziamo pure ma magari non ti serve per quello che devi fare.

Ciao da Ricky53

[bibo60100]

i numeri davanti alle descrizioni non hanno senso sono eredita pasate volendo potrebbero anche essere tolti
il resto tutto ok

[ricky53]

Ciao,
bene lasciamo la descrizione così altrimenti si complica la cosa.

Ma non vuoi proprio dire cosa devi farci con i dati ???
Non che mi interessi particolarmente saperlo per saperlo; sapendo casa fare si può proporre anche qualche altra cosa.

Sicuramente li elaborerai/tratterai, magari con una userform o ... e potrebbero nascere altre esigenze ...
Comunque vedi tu.

Ciao da Ricky53

[bibo60100]

nessun segreto
il mio gestionale purtroppo crea un listino impossibile da decifrare duque lo trasformo in excel e me lo rilavoro
ciao e grazie ancora

[ricky53]

Ciao,
allora procediamo con una macro che parte dalla struttura che hai inviato e produce la struttura che ti ho proposto, gruppo compreso !!!

Si parte ...

Ciao da Ricky53

[bibo60100]

ok grazie

[ricky53]

Ciao,
si può avere un file originale senza la tue lavorazioni ???

L'operazione va fatta una sola volta oppure il listino ti arriva più volte nel corso dell'anno ???

Grazie.

Ciao da Ricky53

[ricky53]

Ciao,
comunque in attesa delle informazioni ho scritto il seguente codice

Codice: Seleziona tutto

Option Explicit
Public RR As Long, I As Long, J As Long, Gruppo As String, Descr_Gruppo As String

Sub Modifica_Struttura()
    Application.ScreenUpdating = False
    RR = Foglio1.Range("B" & Rows.Count).End(xlUp).Row
    J = 1
    Foglio2.Cells.ClearContents
    Foglio2.Cells(J, 1) = "Gruppo"
    Foglio2.Cells(J, 2) = "Descrizione Gruppo"
    Foglio2.Cells(J, 3) = "Codice"
    Foglio2.Cells(J, 4) = "Descrizione Codice"
    Foglio2.Cells(J, 5) = "Unità di misura"
    Foglio2.Cells(J, 6) = "Prezzo"
    J = 2
    For I = 1 To RR
        If UCase(Trim(Foglio1.Cells(I, 2))) = "GRUPPO" Then
            Gruppo = Foglio1.Cells(I, 3)
            Descr_Gruppo = Foglio1.Cells(I, 4)
            Foglio2.Cells(J, 1) = Foglio1.Cells(I, 3)
            Foglio2.Cells(J, 2) = Foglio1.Cells(I, 4)
        Else
            If Foglio1.Cells(I, 2) <> "" And UCase(Trim(Foglio1.Cells(I, 5))) = "" Then
                Foglio2.Cells(J, 1) = Gruppo
                Foglio2.Cells(J, 2) = Descr_Gruppo
                Foglio2.Cells(J, 3) = Foglio1.Cells(I, 2)
                Foglio2.Cells(J, 4) = Foglio1.Cells(I + 1, 2)
                Foglio2.Cells(J, 5) = Foglio1.Cells(I + 1, 3)
                Foglio2.Cells(J, 6) = Foglio1.Cells(I + 1, 5)
                J = J + 1
            End If
        End If
    Next I
    Columns("A:A").NumberFormat = "0000"
    Columns("F:F").NumberFormat = "0.000"
    Columns("A:F").EntireColumn.AutoFit
    ActiveWindow.Zoom = 90

    Application.ScreenUpdating = False
    MsgBox "Elaborazione Effettuata"
End Sub


La macro scrive sul Foglio2 (ATTENZIONE perchè cancella tutti i dati presenti sul Foglio2)
Ho eliminato la colonna "D" che sul tuo file era vuota tranne per le descrizioni del gruppo.

Dovrebbe andare ma ... non avendo il file originale (non lavorato da te) ... non lo posso affermare con certezza.

Ovviamente la devi lanciare sul file non lavorato !!!

Ciao da Ricky53

[bibo60100]

scusa ma il codice dove lo devo scrive
perdona l'ignoranza

[bibo60100]

fai finta che prima non ti ho scritto nulla
funziona egregiamente grazie
ora controllo bene e ti faccio sapere