Condividi:        

spostare contenuto da Verticale a Orizzontale

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

spostare contenuto da Verticale a Orizzontale

Postdi raimea » 25/01/20 19:04

ciao
tramite macro vorrei spostare il contenuto di alcune celle da
Verticale a Orizzontale

in modo di avere il contenuto in orizzontale come da immagine

le celle da sistemare sono nella col D

l ultima riga cella andra in col I sotto 1ma riga libera
la penultima riga col D va in col H
tez ultima riga va in col G

ecc in modo di averle in verticale
la cella con la data NON va spostata

allego un immagine ed il file

grazie

Immagine


https://www.dropbox.com/s/gt4cv9bhg7uapuh/bot_radar_20%20-%20Copia.rar?dl=0
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Sponsor
 

Re: spostare contenuto da Verticale a Orizzontale

Postdi raimea » 26/01/20 13:07

non potendo piu modific il post sopra aggiungo :

si deve aggiungere un controllo:

l'ultma riga di col D
va spostata in col I che deve essere libera ( non occupata)

questo x evitare spostamenti errati.

quindi la riga da riempire e'' quella dove c'e la data.
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Re: spostare contenuto da Verticale a Orizzontale

Postdi Anthony47 » 27/01/20 01:49

Hai detto poco su come cercare questo/questi blocco/blocchi da spostare; mi sono quindi semplificato la vita immaginando che ce ne possa essere solo 1 in fondo all'elenco.

Se fosse cosi' allora puoi sanare la situazione con questa macro:
Codice: Seleziona tutto
Sub TraspSp()
Dim myNext As Long
'
myNext = Cells(Rows.Count, "E").End(xlUp).Offset(1, 0).Row
If Left(Cells(myNext, "D").Value, 5) = "DATA:" Then
    Cells(myNext + 1, "D").Resize(5, 1).Copy
    Cells(myNext, "E").PasteSpecial Paste:=xlPasteValues, Transpose:=True
    Cells(myNext + 1, "D").Resize(5, 1).ClearContents
End If
End Sub

Nel tuo processo, la Sub TraspSp va eseguita prima di richiamare la Sub Normal, in modo che anche questa ulteriore riga possa venire "normalizzata"

Se mi sono semplificato troppo la vita, e quindi quanto proposto non puo' funzionare, allora devi spiegare meglio quali sono le situazioni che possono verificarsi.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: spostare contenuto da Verticale a Orizzontale

Postdi raimea » 27/01/20 07:19

tutto ok

chiedo scusa se non ho specificato piu accuratamente cio che mi serviva

ma e' stato interpretato tutto nel modo corretto

grazie
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago


Torna a Applicazioni Office Windows


Topic correlati a "spostare contenuto da Verticale a Orizzontale":


Chi c’è in linea

Visitano il forum: Nessuno e 45 ospiti