VBA: carriage return in place of ;

[Nelson78]

Hello everybody.

I have a range composed by cells with data separeted by ;

for example

125; 545; 5498; 154


Now, inside the cells, I need carriage returns to turn the text into this way:

125
545
5498
154



My unsuccessful attempt:

range.Replace what:=";", replacement:=vbNewLine, lookat:=xlPart, MatchCase:=False

 

[Fluff]

Try

Selection.Replace what:="; ", replacement:=vbNewLine, lookat:=xlPart, MatchCase:=False

 

[Nelson78]

Try

Selection.Replace what:="; ", replacement:=vbNewLine, lookat:=xlPart, MatchCase:=False

Analysing the problem, It is better to share something more.
In effect, I have this situation:

            If alpha(J, 1) = delta(i + 1, 1) Then
                delta(i + 1, 2) = delta(i + 1, 2) & [COLOR="#FF0000"]" ;"[/COLOR] & alpha(J, 2)
            End If

Now, the data are separated by ;.
I think it is more appropriate to intervene in this snippet.

 

[shg]

delta(i + 1, 2) = delta(i + 1, 2) & vbLf & alpha(J, 2)