Excel Forum

	Soluzioni Excel Domande e Risposte
		Copia e trasponi in automatico

Pagina precedente | 1 | Pagina successiva

Vota | Stampa | Notifica email

« Discussione Precedente | Lista | Discussione Successiva »

Autore

Copia e trasponi in automatico

Ultimo Aggiornamento: 20/06/2019 10:21

theshield09

Post: 1

Registrato il: 19/06/2019

Età: 42

Utente Junior

2010

OFFLINE

19/06/2019 17:26

00#1

Ciao a tutti,

ho un lavoro da svolgere e mi serve il vostro aiuto.

Ho dei dati presi dal web e incolonnati tutto nella stessa colonna (A).

io con copia e incolla speciale (trasponi) li sto mettendo "in orizzontale" lungo le righe...

ma a mano ci metto davvero troppo tempo...

mi servirebbe qualche gentilissimo utente che possa postarmi un codice vba o qualunque soluzione per non dover fare tutto a mano.

allego il file...altrimenti a spiegarlo bene diventa difficile.

le parti fatte a mano stanno in alto ed è come vorrei fosse fatto tutto il file!

se non è chiaro sono qui!
grazie in anticipo

dodo47

Post: 2.284

Registrato il: 06/04/2013

Utente Veteran

2010

OFFLINE

19/06/2019 19:02

00#2

l'unica mi sembra è testare se la cella è in grassetto e quindi fare fino al prossimo grassetto la trasposizione. Non vedo altri elementi e comunque devi ben controllare.

Ti riallego il tuo file dove nel foglio2 ho riportato da riga 2 in poi la tua col. A del primo foglio (parte in basso).

La macro ha un limite messo da me di 50 righe per fare i test.
Pertanto se vuoi provare tutto, al posto di 50 ci devi mettere 1941 che è l'ultima riga.

La trasposizione viene fatta da col. C in poi

saluti

Download (118 KB)

Domenico
Win 10 - Excel 2016

theshield09

Post: 1

Registrato il: 19/06/2019

Età: 42

Utente Junior

2010

OFFLINE

19/06/2019 20:51

00#3

Re:

dodo47, 19/06/2019 19.02:
l'unica mi sembra è testare se la cella è in grassetto e quindi fare fino al prossimo grassetto la trasposizione. Non vedo altri elementi e comunque devi ben controllare.

Ti riallego il tuo file dove nel foglio2 ho riportato da riga 2 in poi la tua col. A del primo foglio (parte in basso).

La macro ha un limite messo da me di 50 righe per fare i test.
Pertanto se vuoi provare tutto, al posto di 50 ci devi mettere 1941 che è l'ultima riga.

La trasposizione viene fatta da col. C in poi

saluti

Grazie grazie grazie

dodo47

Post: 2.286

Registrato il: 06/04/2013

Utente Veteran

2010

OFFLINE

20/06/2019 10:21

00#4

ciao
ti sottopongo una versione più snella che fa a meno dei select:

Sub trasp()
r = 2
r1 = 2
For j = 1 To 50 ' ULTIMA RIGA DEL FOGLIO (nell'esempio 1941)
    If Cells(j, 1).Font.Bold = True Then
        daRiga = j
        r = r + 1
        Do Until Cells(r, 1).Font.Bold = True
            r = r + 1
        Loop
        aRiga = r - 1
        j = aRiga
        Range("A" & daRiga & ":A" & aRiga).Copy
        Range("C" & r1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=True
        r1 = r1 + 1
    End If
Next
End Sub

Saluti

Domenico
Win 10 - Excel 2016