Affiancare celle dispari alle celle pari in excel

[bibo60100]

Come da titolo qualcuno sa aiutarmi a capire come spostare le celle pari vicino alle celle dispari
faccio un esempio:
siccome ho un file "listino di circa 30000 righe dove sopra ho il codice e sotto la descrizione volevo mettere codice e descrizione tutto su un unica riga senza dover trascinare tutti i codici manualmente
da cosi:

KNDUO05
ESP. ASS.TO MINE DUE 2MM ES 116,400
PLES112
ESP. MICRO MATITE H187 PZ.24 ES 24,960
OSOW690
ESP.24PORTAMINE+12CF.MINEJUMBO PZ 23,484


a cosi
KNDUO05 ESP. ASS.TO MINE DUE 2MM ES 116,400

PLES112 ESP. MICRO MATITE H187 PZ.24 ES 24,960

OSOW690 ESP.24PORTAMINE+12CF.MINEJUMBO PZ 23,484

Grazie

[ricky53]

Ciao,
come te la cavi con il VBA.

Si può fare, per mia prassi sono contrario alle soluzoni chaivi in mano ma se per te il VBA è solo una sigla allora potrei proporti una soluzione.

In quante colonne hai i dati da spostare?
Solo la colonna "A" ?

Ciao da Ricky53

[bibo60100]

Purtroppo il Visual non lo so usare

[bibo60100]

Dimenticavo la righe da spostare è una sola

[ricky53]

Ciao,

"COLONNA" volevi dire vero?

Questa sera, tempo permettendo, vedo di scriverti qualcosa.

Ciao da Ricky53

[bibo60100]

grazie

[ricky53]

Ciao,
allora:
1. apri il tuo file
2. seleziona il foglio sul quale ci sono i dati da accoprare
3. "Alt+F11"
4. nel VBaProject, su Microsoft Excel Oggetti, tasto destro, inserisci, modulo
5. copia la macro
6. la esegui con "F5" tutta senza intervento, con "F8" passo passo con tuo intervento
7. poi potrai associarla ad un pulsante o ad una combinazione di tasti oppure sul foglio con "Alt+F8" e qui scegli la tua macro

Codice: Seleziona tutto

Option Explicit
Public RR As Long, I As Long
Sub Accorpa_Dati()
    Application.ScreenUpdating = False
    RR = Range("A" & Rows.Count).End(xlUp).Row ' Calcola il numero di righe da accorpare

'Legge dalla colonna "A"  e scrive sulla colonna "C" (la "3"), modifica se ti occorre
    For I = 1 To RR Step 2
        Cells(I, 3) = Cells(I, 1) & " " & Cells(I + 1, 1)
    Next I
   
    Application.ScreenUpdating = True
    MsgBox "Accorpati:  " & I - 1 & "   dati"
End Sub

Buon lavoro e buone prove.

Ciao da Ricky53

[ricky53]

ciao,
prima mi sono dimenticato di dirti che la macro lascia una riga vuota, tra i dati accorpati, come avevi fatto capire tu nel tuo intervento.
Ma serve quella riga vuota ???

Nel caso utilizza questa variante che non scrive righe vuote:

Codice: Seleziona tutto

Option Explicit
Public RR As Long, I As Long, J As Long
Sub Accorpa_Dati()
    Application.ScreenUpdating = False
    RR = Range("A" & Rows.Count).End(xlUp).Row ' Calcola il numero di righe da accorpare

'Legge dalla colonna "A"  e scrive sulla colonna "C" (la "3"), modifica se ti occorre
    J = 1
    For I = 1 To RR Step 2
        Cells(J, 3) = Cells(I, 1) & " " & Cells(I + 1, 1)
        J = J + 1
    Next I
   
    Application.ScreenUpdating = True
    MsgBox "Accorpati:  " & I - 1 & "   dati"
End Sub

Ciao da Ricky53

[bibo60100]

Grazie ancora ma penso di non essermi spiegato
come ho scritto io ho un foglio excel di circa 30000 righe cosi formate:
colonna a colonna b
SD775/07
PORTAMINE MARS MICRO PUNTA
e le dovrei trasormare cosi
colonna a colonna b
SD775/07 PORTAMINE MARS MICRO PUNTA
ciao e grazie ancora

[ricky53]

Ciao,
perchè dici "colonne" e poi metti i dati in due "righe"?

Precisiamo meglio tu hai:
in "A1" ---->> SD775/07
in "A2" ---->> PORTAMINE MARS MICRO PUNTA
è così?

e vorresti unire i due dati in questo modo
SD775/07 PORTAMINE MARS MICRO PUNTA

ma in quale cella???

oppure:
...
scrivi tu le posizioni dei dati (i due di prima): dove sono e dove li vorresti.

Ciao da Ricky53

[bibo60100]

No io ho in b1 SD775/07 e in b2 PORTAMINE MARS MICRO PUNTA
e devo portare b1 (sd775/07) in a2 in modo che stia nella colonna affianco alla descrizione e non sopra
grazie ancora

[ricky53]

Ciao,
allora azione da compiere con la macro:
spostare "B1" in "A2" --->> si può fare
e vale per tutte le celle della colonna "B" !!!

Domanda: in "A1" cosa ci deve stare?

Conferma: i dati della colonna "B" sono insieme a due a due ???


Dopo le tue risposte si parte ...

Ciao da Ricky53

[bibo60100]

In a1 non ci deve stare nulla mentre i dati in b sono a 2 a2
ciao

[ricky53]

Perfetto,
modifico quanto già inviato e ci risentiamo.

E' possibile aver un file di esempio per testare quanto ti invierò.

Ciao da Ricky53

[bibo60100]

grazie

ecco l'esempio
RA3068
PENNARELLI 30PZ PUNTA CONICA CF 2,400
AD8004A
PENNARELLI IMPORTAZIONE PZ 0,235
AD970
PENNARELLI PUNTA TONDA PZ 0,261
UN41511
PENNE CARIOCA 10 COLORI FLUO PZ 1,685
PKRT6
PENNE SFERE QUEST PZ 0,770
GP81365
PENNE 3D WINX PZ 5,530
NJ4392
PENNE A SFERA BLIZ 36PZ PZ 0,328
SD434
PENNE A SFERA STAEDTLER NORIS PZ 0,380
AUE38
PENNE AURORA PZ 29,664
NJ84
PENNE B4 NIJI 4 FUNZIONI PZ 4,326
RM5130/5B
PENNE BIC CF. 5 PZ. BLU BL 0,870
RM5130/5N
PENNE BIC CF. 5 PZ. NERO BL 0,870
RM5130/5R
PENNE BIC CF. 5 PZ. ROSSO BL 0,870
RM5130/5V
PENNE BIC CF. 5 PZ. VERDE BL 0,870
MO100
PENNE BRIO GEL PZ 1,118

visto che quando incopio mi cambia la formattazioneconsidera che:
i prezzi fanno parte della colonna E mentre la colonna D è vuota mentre unita di misura (pz,bl,cf) sta nella colonna B

[ricky53]

Ciao,
ma allora le cose sono diverse!!!

Per non fare le modifiche alla macro che poi non servono, dovresti dire colonna per colonna cosa c'è e cosa vuoi ci sia dopo l'esecuzione della macro.
In questo modo

Dati di partenza
a----- b------- c----- d------ e-------
------ Un.Mis. ------ Vuota Prezzo
------ --------- ------- ...... -------

Dati di arrivo:
qui devi mettere tutte le TESTATE di colonna
a----- b------- c----- d------ e-------
questi sono i dati per colonna/riga
------- -------- ------- ------- --------
------- -------- ------- ------- --------
------- -------- ------- ------- --------

In quanto da te allegato non si capisce la separazione delle colonne

RA3068 --->> in quale colonna/riga si trova ed in quale colonna/riga deve andare


PENNARELLI 30PZ PUNTA CONICA CF 2,400
è così suddiviso:
PENNARELLI --- 30PZ --- PUNTA CONICA --- CF --- 2,400
Qui i dati rimangono dove sono?

Le righe vuote che si creano spostando i dati devono rimanere ???

ATTENZIONE:
la struttura dei dati deve essere sempre la stessa.
A me non sembra sia così, vedi:

PENNARELLI 30PZ PUNTA CONICA CF 2,400
e
PENNE CARIOCA 10 COLORI FLUO PZ 1,685
PENNE BIC CF. 5 PZ. BLU BL 0,870

Se invii un file (allegalo tramite un servizio di File Hosting Free) con la situazione delle righe/colonne prima e dopo la “CURA” sarà più facile capirci.

Senza informazioni precise non si può fare nulla.

Forza ... fatti sentire
Ciao da Ricky53

[bibo60100]

Grazie
ho uppato file con nome listino sposta celle
ciao

[bibo60100]

mi ero dimenticato
fino a riga 1459 la cura l'ho fatta manualmente

[ricky53]

Ciao,
devi darci il link che ti ha restituito il servzio.

[bibo60100]

scusa ma non mi ha dato nessun indirizzo