Change "If instr(Activecell) like Activecell.offset(0'-1) then"
to
"If instr(Activecell) like Activecell.offset(0 , -1) then"

I missed a typo when sending.

Jim


"Jim Jackson" wrote:

I would try:

Range("B1").activate
For each cell in sheets
Do
If instr(Activecell) like Activecell.offset(0'-1) then
Activecell.offset(0,1) = "ok"
else
Activecell.offset(0,1) = "x"
end if
activecell.offset(1,0).activate
loop
next

Best wishes,

Jim

"xtrmhyper" wrote:


i have 3 row

A B C
xtrm hyper xtrm hype
hyper xtrm asdfd kd


how can i get for the formula of this? if A1 contains the data of b1
c1=ok
else
C1=x

and you may specify the starting letter
for ex. on B1 1st 3 char only that contain in A1
1st 3 char of b1 is xtr hyp

output

A B C
xtrm hyper xtrm hype ok
hyper xtrm asdfd kd x



tnx in advance


--
xtrmhyper
------------------------------------------------------------------------
xtrmhyper's Profile: http://www.excelforum.com/member.php...o&userid=23851
View this thread: http://www.excelforum.com/showthread...hreadid=559442