VBA: Wrapping text and transversing text between nubers or given speific text

[sroysroy]

I am looking for a VBA solution for
1. transversed text and
2. Wrapping text
between numbers or after and before numbers or given specific text in between. Please find the attachment. My actual row is 1000 rows.

[sroysroy]

I know its the most easiest but ...

[nilem]

maybe

Please Login or Register  to view this content.

Please Login or Register  to view this content.

[sroysroy]

If there is no blank rows in between data, it is transposing all
Can't we transpose data under each numeric number (or given text) I think it can work without blank rows then.

[nilem]

try it

Please Login or Register  to view this content.

Please Login or Register  to view this content.

[sroysroy]

The transverse is not working
1. if I am have only numbers 1, 2, 3, 4, .......
2. If I have text with numbers in between 1, 2, 3, 4, ....... (1 above)

[jindon]

This should do

Please Login or Register  to view this content.

[sroysroy]

This line is giving problem: .Cells(1, 3).Value = Join(Application.Transpose(.Value), vbLf)

I have got errors where my rows are as
1
1a
bb2
2
2a
3ab
rrr
sss

After transpose the result aswell should be
1 1a bb2
2 2a 3ab rrr sss

[jindon]

If you are talking about the file I don't see, forget about the code.

[sroysroy]

out of Curiosity I thought about changed input.

[LeoTaxi]

Can this one help ?



Kind regards
Leo

[LeoTaxi]

Or maybe this, works with or without empty rows


Kind regards
Leo

[jindon]

This line is giving problem: .Cells(1, 3).Value = Join(Application.Transpose(.Value), vbLf)

I have got errors where my rows are as
1
1a
bb2
2
2a
3ab
rrr
sss

After transpose the result aswell should be
1 1a bb2
2 2a 3ab rrr sss

I don't believe this at all!

See
Waht are you talking about.xlsm