Distinta base in colonne

Hai un problema con Excel?

Nuova discussione

Distinta base in colonne
di SCUMM BAR (utente non iscritto) data: 03/11/2015 14:13:21
Buongiorno a tutti,
intanto vi ringrazio anticipatamente per l'attenzione. Vi spiego brevemente il mio problema, dal quale non riesco a venirne proprio a capo.

Nel foglio excel "anagrafe" ho nella colonna A tutti i codici di vendita (es. YYY, ZZZ), nella colonna D la descrizione (es.TAVOLO MOGANO, LETTO NOCE) e nella colonna I la distinta base collegata, tutta in una cella (es. GAMBA_TESTIERA_LUSSO = 2 # GAMBA_PEDIERA_LUSSO = 2 # CORRIMANO_LUSSO_100 = 2 # PANNELLO_TESTIERA_LUSSO_100 = 1 # PANNELLO_PEDIERA_LUSSO_100_ATTREZZATO = 1)

Quello che servirebbe a me è creare un altro file (o un altro foglio) dove avrò nella cella A1 il codice di vendita, A2 la descrizione, e da A3 in poi la distinta base non con una sola stringa. Finita la distinta base (es. A10) ripartire con il codice successivo:

Vi faccio l'esempio pratico di come è ora:

A1 YYY D2 LETTO NOCE I2 GAMBA_TESTIERA_LUSSO = 2 # GAMBA_PEDIERA_LUSSO = 2 # CORRIMANO_LUSSO_100 = 2 #

E come servirebbe a me:

A1 YYY
A2 LETTO NOCE
A3 GAMBA_TESTIERA_LUSSO
A4 GAMBA_PEDIERA_LUSSO
A5 COPRI..
A6 ZZZ
A7 TAVOLO MOGANO
...

Quindi i problemi sono due, uno è svilupparlo per colonna, e non per riga, due dividere quella benedetta stringa.

Come potete vedere i componenti della stringa sono separati dal cancelletto, spero vi possa dare una mano.

Vi prego aiutatemi. Grazie.
Saluti
di patel data: 03/11/2015 14:59:37
allega un file di esempio con i dati ed il risultato desiderato
di Luca73 data: 03/11/2015 15:00:26
Ciao Allega un file con qualche esempio e con il risultato voluto
Ciao
Luca
di alfrimpa data: 03/11/2015 15:00:43
Ciao Scumm Bar

Senza vedere un file è difficile essere precisi.

Comunque per trasformare le righe in colonne se il testo è in un'unica cella devi utilizzare "Testo in colonne" in modo che ogni stringa (o quello che vuoi) vada in una singola cella.

Poi seleziona la riga fai Copia, Incolla Speciale e Trasponi.

Non ho capito il secondo problema quindi allega un file e spiega bene quello che vuoi ottenere.

Alfredo
di SCUMM BAR (utente non iscritto) data: 03/11/2015 16:11:18
Ho allegato il file.

Nel foglio1 vedete com'è ora.

Nel foglio2 come vorrei che fosse.

Grazie

di patel data: 04/11/2015 08:33:01
prova questa macro, risultato in foglio 2

Sub a()
Set sh2 = Sheets(2)
Sheets(1).Select
LR = Cells(Rows.Count, "B").End(xlUp).Row
DR = 1
For riga = 3 To LR
  sh2.Cells(DR, 1) = Cells(riga, "B")
  DR = DR + 1
  sh2.Cells(DR, 1) = Cells(riga, "D")
  DR = DR + 1
  arr = Split(Cells(riga, "I"), "#")
  For i = 0 To UBound(arr)
    sh2.Cells(DR, 1) = arr(i)
    DR = DR + 1
  Next
Next
End Sub

di SCUMM BAR (utente non iscritto) data: 04/11/2015 08:52:29
Funziona perfettamente. Veramente grazie!

Vuoi Approfondire?