howto add a formula in a Sheet with VB 6.0 1

[Gilske]

Hi everybody

how do you put a formula in a cell with VB 6.0
I tried making a macro and adapting the code but it still won't work

I've got this none-working code

oSheet1.Cells(TlRow, 9).Select
        ActiveCell.Formula = "=IF(ISNUMBER(G" & TlRow & ");IF(ABS(H" & TlRow & ")>0,3;" * ";"");"")"

I've found this here but it wouldn't work
click here



Can you help me?

 

[Nelviticus]

There's nothing wrong with what you're doing, it's just that your string is not set up properly - that asterisk should probably be an ampersand and some of your semicolons should be commas, but it still doesn't work.

The clearest thing to do would be to set up a string variable and assign your formula to that, then assign the string to the cell's formula like this:

sMyString = "=IF(ISNUMBER(G" & TlRow & ");IF(ABS(H" & TlRow & ")>0,3;" * ";"");"")"
ActiveCell.Formula = sMyString

That way you'll get a better idea of what's going wrong in the debugger.

N.

 

[combo]

Note that even if you have local formula names, list and decimal separators in excel, in VBA you use VBA specific: "," for argument separators, "." for decimal separator.

combo

 

[Gilske]

Guys
I don't want to offend you but your sollutions wouldn't work
i didn't need to use .Formula but .FormulaLocal.

oSheet1.Cells(TlRij, 9).FormulaLocal = "=IF(ISNUMBER($G" & TlRij & "IF(ABS($H" & TlRij & &quot>0,3;""*"";"""""""&quot"

strange but true

Thnx for your help anyway

Koen