spostare contenuto da Verticale a Orizzontale

[raimea]

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




https://www.dropbox.com/s/gt4cv9bhg7uapuh/bot_radar_20%20-%20Copia.rar?dl=0

[raimea]

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.

[Anthony47]

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

[raimea]

tutto ok

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

ma e' stato interpretato tutto nel modo corretto

grazie