sum formula and if
 

Hi,

I am trying to make the vba make a small calculation without success. I have
tried the formula below.

What I want to do is : if (sum of AH2 to AH1000) is greater than ( 0 ) do
this, else do that.

Thanks!

Dim ca As Variant

'ca = "=sum(AH2:AH1000)"
'ca = "=SUM(R[2]C[33]:R[1000]C[33])"
'ca=FormulaR1C1 = "=sum(AH2:AH1000)"

If ca 0 Then
do this

Else

do that

End If
--
Mathieu

sum formula and if
 

if application.sum(AH2:AH1000)0 then


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Mathieu" wrote in message
...
Hi,

I am trying to make the vba make a small calculation without success. I
have
tried the formula below.

What I want to do is : if (sum of AH2 to AH1000) is greater than ( 0 ) do
this, else do that.

Thanks!

Dim ca As Variant

'ca = "=sum(AH2:AH1000)"
'ca = "=SUM(R[2]C[33]:R[1000]C[33])"
'ca=FormulaR1C1 = "=sum(AH2:AH1000)"

If ca 0 Then
do this

Else

do that

End If
--
Mathieu

sum formula and if
 

Sub addif()
If Application.Sum(Range("AH2:AH1000")) 0 Then
MsgBox "HI"
else
msgbox "no"
end if
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Mathieu" wrote in message
...
Hi,

I am trying to make the vba make a small calculation without success. I
have
tried the formula below.

What I want to do is : if (sum of AH2 to AH1000) is greater than ( 0 ) do
this, else do that.

Thanks!

Dim ca As Variant

'ca = "=sum(AH2:AH1000)"
'ca = "=SUM(R[2]C[33]:R[1000]C[33])"
'ca=FormulaR1C1 = "=sum(AH2:AH1000)"

If ca 0 Then
do this

Else

do that

End If
--
Mathieu

sum formula and if
 

Thank you very much! I'll remember the "application.*"
--
Mathieu


"Don Guillett" wrote:

Sub addif()
If Application.Sum(Range("AH2:AH1000")) 0 Then
MsgBox "HI"
else
msgbox "no"
end if
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Mathieu" wrote in message
...
Hi,

I am trying to make the vba make a small calculation without success. I
have
tried the formula below.

What I want to do is : if (sum of AH2 to AH1000) is greater than ( 0 ) do
this, else do that.

Thanks!

Dim ca As Variant

'ca = "=sum(AH2:AH1000)"
'ca = "=SUM(R[2]C[33]:R[1000]C[33])"
'ca=FormulaR1C1 = "=sum(AH2:AH1000)"

If ca 0 Then
do this

Else

do that

End If
--
Mathieu