(vba) if then

[montecarlo2012]

Hello everyone.
I am trying to add two columns, A2:A34 result in C2, B2:B34 result in D2 and C2/D2 in F2. my problem now is that SOMETIMES I don't need to input values on A2:A34 and I just want the results of column B, so I write this code, but I don't figure It out the condition for empty column, here is my code.

Private Sub CommandButton1_Click()

    Range("C2").Value = WorksheetFunction.Sum(Range("A2:A34"))
    Range("D2").Value = WorksheetFunction.Sum(Range("B2:B34"))
    Range("F2").Value = Range("D2").Value / Range("C2").Value
    If Range("A2:A34") = 0 Then
    Range("C2") = 0
    End If
    
    If Range("F2") > 4.8 Then
    MsgBox "your rick is to hight, be carefull if there are more than 25 rolls"
    End If
    End Sub

 

[iliace]

If your C2 is 0, then your F2 will have a #DIV/0 error. So would you want to say:

If (Range("C2").Value = 0) Then
  Range("F2").Value = Range("D2").Value
Else
  Range("F2").Value = Range("D2").Value / Range("C2").Value
End If

 

[montecarlo2012]

thanks Iliace, sometimes I don't use A2:A34 and I just want the sum of B, so I am looking for how to make this condition possible, if A2:A34 is empty or = 0 then just sum B2:B34 instead to get error messages.

 

[iliace]

That's what the code was intended to do. Di it work?

 

[Peter_SSs]

To clarify, I think iliace's code is intended to replace more than just your first If...Then block. So

Range("C2").Value = WorksheetFunction.Sum(Range("A2:A34"))
Range("D2").Value = WorksheetFunction.Sum(Range("B2:B34"))
If (Range("C2").Value = 0) Then
  Range("F2").Value = Range("D2").Value
Else
  Range("F2").Value = Range("D2").Value / Range("C2").Value
End If

If Range("F2") > 4.8 Then
  MsgBox "your rick is to hight, be carefull if there are more than 25 rolls"
End If

.. or possibly, instead of the blue line you might want

Range("F2").ClearContents

 

[montecarlo2012]

Thank you Peter, it is working now