ActiveCell.Formula = result FALSE

[Forestq]

hi,

I have simply formula in loop:

Set WS = WB.Sheets("Sheet2")
Dim b as String

For j=1 to 6
     b = ActiveCell.Formula = "=MID(Right(WS.Cells(j, 2),9),1,6)"
next j

and my result is always false. Do you know why?

 

[JLeno]

b now returns the value of ActiveCell.Formula = "=MID(Right(WS.Cells(j, 2),9),1,6)"
which is false if the active cell does not have exactly that formula.

could you please elaborate what you're trying to accomplish?

 

[Forestq]

in the cell I have values likes:
B1 = AAAAAAAAAAA - N12345-CN
B2 = AAAABBBCCCCC - N12345-BS

I want to substitute into value "b" reuslt from formula

Normally in excel I have = MID(RIGHT(12,9),1,6) and it's fine

 

[JLeno]

Then try

b=MID(Right(WS.Cells(j, 2),9),1,6)

instead of

b = ActiveCell.Formula = "=MID(Right(WS.Cells(j, 2),9),1,6)"

 

[Forestq]

perfect!!!!

thanks a lot!

 

[JLeno]

perfect!!!!

thanks a lot!

You're welcome