Solved: convert formula to VBA

[danovkos]

Hi,
pls. how can i convert this formula to vba code?

=VALUE(LEFT(E10;FIND("/";E10)-1)&MID(E10;FIND("/";E10)+1;20))

thx for help

[danovkos]

i tried this, but it doesnt works

[vba]
b = (Left(bunka, InStr(1, "/", bunka) - 1) & Mid(bunka, InStr("/", bunka) + 1, 20))
[/vba]

bunka - is variable to my active cell

[danovkos]

i got it
maybe somebody use this info

[VBA]
b = (Left(bunka, InStr(1, bunka, "/") - 1) & Mid(bunka, InStr(1, bunka, "/") + 1, 20))
[/VBA]

[Ken Puls]

I know that you worked out your answer, but out of curiosity, did you think about asking the macro recorder?

[vba]ActiveCell.FormulaR1C1 = _
"=VALUE(LEFT(R[8]C[2],FIND(""/"",R[8]C[2])-1)&MID(R[8]C[2],FIND(""/"",R[8]C[2])+1,20))"[/vba]

Granted it's not as clean, but it will give you exactly what you're after. This is written in R1C1 notation, but you could just as easily convert it to A1 notation.

Hope it helps for future,

[danovkos]

I know that you worked out your answer, but out of curiosity, did you think about asking the macro recorder?

[vba]ActiveCell.FormulaR1C1 = _
"=VALUE(LEFT(R[8]C[2],FIND(""/"",R[8]C[2])-1)&MID(R[8]C[2],FIND(""/"",R[8]C[2])+1,20))"[/vba]

Granted it's not as clean, but it will give you exactly what you're after. This is written in R1C1 notation, but you could just as easily convert it to A1 notation.

Hope it helps for future,

you right, i will really help for the future. thx a lot