Formulas

[Rafael Alvares Tubero]

Hello everybody!

I would like to right a formula like that in vba Cells(ult_lin, ult_col2 + 1) = "=" & ult_col & "" & ult_lin & "-" & ult_col1 & "" & ult_lin & "" but it have to appear like =C10-D10 cell F10, got it?

How can I do it??


Thanks and have a good weekend!

 

[Sektor]

Cells(ult_lin, ult_col2 + 1).Formula = "=" & ult_col & "" & ult_lin & "-" & ult_col1 & "" & ult_lin & ""

 

[Rafael Alvares Tubero]

of course!!!
sorry, I'm a beginner! =)

thank you very much!

 

[Rafael Alvares Tubero]

yeah... but it's not working =(...

it's giving me something like =310-410. 3 because of the column C and 10 because the row, join C10 it will be 310.

is there another way to read the variables as column and row like example F10???

 

[VoG]

Try

Cells(ult_lin, ult_col2 + 1).Formula = "=" & Cells(ult_lin, ult_col).Address & "-" & Cells(ult_lin, ult_col1).Address

 

[Rafael Alvares Tubero]

yeah that works, but it lock the rows and columns... and if my next command is:

Range(Cells(ult_lin, ult_col2 + 1), Cells(ult_lin, ult_col2 + 4)).Select

Selection.AutoFill Destination:=Range(Cells(ult_lin, ult_col2 + 1), Cells(2, ult_col2 + 4)), Type:=xlFillDefault

it will give me the same row and column in all range that I fill dragging this formula, go it!?

I know that i'm being so demanding... but could you guys help me out, please??? =]

thanks a lot!

 

[VoG]

Try

Cells(ult_lin, ult_col2 + 1).Formula = "=" & Cells(ult_lin, ult_col).Address(False, False) & "-" & Cells(ult_lin, ult_col1).Address(False, False)

 

[Rafael Alvares Tubero]

thank you very much!

Superb!!!!!