How is this?

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

'Paste this macro in Worksheet_SelectionChange
'Type a sentence in Column "A" and select cell.

If ActiveCell.Column = 1 Then
rng = (ActiveCell.Text) & " "
l = Len(rng)
m = 1
k = 1
For i = 1 To l
If Mid(rng, i, 1) = " " Then
ActiveCell.Offset(0, m) = Mid(rng, k, i - k)
If Len(Mid(rng, k, i - k)) > 1 Then
m = m + 1
End If
k = i
End If
Next i
End If
 
If 1st word is 2 or more charctors it seems to split sentance u
starting in column b

If 1st word is 1 charactor it places 2nd word in column B - is this th
way it is supposed to work
 
If 1st word is 2 or more charctors it seems to split sentance up
starting in column b

If 1st word is 1 charactor it places 2nd word in column B - is this the
way it is supposed to work?
 
Thank u for point out the mistake.

rng = " " & (ActiveCell.Text) & " "
is the correct code.

THANKING U ONCE AGAIN.
 
Back
Top