split it into firstname and lastname

[latifpatel.t]

i have data like FirstnameLastname

JamesLee
williamsmith

where


firstname is in black color
and
last name is in red color
there is no space b/w first name and last name


i want to split it into first name and last name
only identity b/w first name and last name is color difference....


please help

[sktneer]

Post deleted due to violation of forum rules by the OP.

[sktneer]

Post deleted due to violation of forum rules by the OP.

[sktneer]

Post deleted due to violation of forum rules by the OP.

[latifpatel.t]

thank u very much but one small issue not major

if i copy the module and run in new excel the result is coming like

first name column is empty
and
last name column will return into data present in column "A" but not seperated but color is changed to black

its working in the worksheet you have been provide very nicely but that code is not working in other worksheet

[stanleydgromjr]

Cross Posted here:
http://www.mrexcel.com/forum/excel-q...-identity.html

A message to forum cross posters.

Please read this:
http://www.excelguru.ca/node/7

[Kamboj]

use this macro
you can make any two colours difference



n = 1
bb = 1
Do Until bb = 5
b = Cells(bb, 1).Characters(n, 1).Font.Color

Do Until n = Len(Range("A" & bb))

c = Cells(bb, 1).Characters(n, 1).Font.Color
If b <> c Then
Range("B" & bb) = Mid(Range("A" & bb), 1, n - 1)
Range("C" & bb) = Mid(Range("A" & bb), n, Len(Range("A" & bb)))
bb = bb + 1
n = 1
Exit Do
End If
n = n + 1
Loop
Loop

[sktneer]

@stanleydgromjr
Thanks for pointing this out.

[latifpatel.t]

thank u all

sorry for it this is was my first post...