Result of formula in cell

[anil.gupta]

Hi All,

I need to store result of formula in variable.My Problem is to find "." in a cell and return its position.

DIM temp as integer

Temp= "=FIND(""."",ActiveCell)"

This is not working.

Please help. Thanks in advance.

 

[Sektor]

You assing String to Integer. Use this:

Sub fgggg()
    Dim temp As Integer
    temp = [FIND(".",B15)]
End Sub

 

[Sektor]

Sub F()
    Dim temp As Integer
    temp = Evaluate("FIND("".""," & ActiveCell.Address & ")")
End Sub

 

[anil.gupta]

Thanks