Reversing an Add Data Macro

Hi Everyone,

Sorry, I'd need help again.

So I have this code, which allows me to put data from several vertical cells into one single cell, while keeping the "vertical" aspect of the data, so that in the single cell, it looks exactly like when in several cells.... (I do hope that I am clear enough here)

Dim v As Long, LastRoww As Long, str As String
str = ""
LastRoww = Sheets("Saisie").Range("B37").End(xlUp).Row

For v = 6 To LastRoww
str = str + Sheets("Saisie").Cells(v, 2).Value & vbCrLf
Next v

So my question is, is it possible to create a module to reverse this procedure? Transforming data in several lines but in a single cell, to data in several cells?

Thank you so much in advance for your assistance.

All the best

Hi
May be

Please Login or Register  to view this content.

Put data from several vertical cells into one single cell
How about

Please Login or Register  to view this content.

Just an idea

It works perfectly! Genius! Thank you so much!!!

You are well come
Thank you for the feedback
Be happy