Range("AQ2").Formula = "=TRUNC(SQRT(Cells(4, 2)^2 + Cells(3, 2)^2))"

[montecarlo2012]

Hi.
I think maybe I can get some help here.
so I write this basic formula

Sub iii()
          Range("AQ2").Formula = "=TRUNC(SQRT(B4^2+B3^2))"
End Sub

and work, but when I tried like

Sub mrexcel()
          Range("AQ2").Formula = "=TRUNC(SQRT(Cells(4, 2)^2 + Cells(3, 2)^2))"
End Sub

and even worst like

Sub mx()
      Cells(2, 43).Formula = "=TRUNC(SQRT(Cells(4, 2)^2 + Cells(3, 2)^2))"
End Sub

and according to the theory say that B2 is equal to cells(2,2),so.......
anyone can explain me this.
Please
Thank you for reading

 

[montecarlo2012]

Hi.
well working a little bit more I found

Sub Pal()
            Cells(1, 43) = ((Cells((2), 2) ^ 2) + (Cells((3), 2) ^ 2))
End Sub

here at lease I got the power and add up
so now how to apply the SQRT function, I have testing and still nothing

 

[Herakles]

When you say nothing, do you get an error message?

I've just replicated this.

Your code versions 2 and 3 use Cells to refer to B3 and B4.

Cells is used in VBA and not in a worksheet formula.

If you need to use Cells in VBA, try this idea.

Cells(6, 4).Formula2 = "=TRUNC(SQRT(" & Cells(4, 2).Address & "^2 + " & Cells(3, 2).Address & "^2))"

 

[montecarlo2012]

Thank you so much Herakles for your help,
this is what I got when I run this line

I am learning so your lesson is really appreciated

 

[montecarlo2012]

Sub herakles()

    Cells(1, 43).Formula2 = "=TRUNC(SQRT(" & Cells(2, 2).Address & "^2 + " & Cells(3, 2).Address & "^2))"

End Sub

 

[Herakles]

Glad I could help in my very sleepy Sunday evening state.

With formulas, I type them into the cell first and if / when they work sometimes use VBA to insert them

I copy and paste the working formula into the VBA editor and then edit it as appropriate.

I don't think that I've ever had a VBA sub named after me. Thanks.