vba iferror

[SQUIDD]

Hi

I have a line of code, but sometimes when i have zeros, it gives me a "divide by zero error"
so, when i do this as a formula i use iferror(formula,"")

so my question is, can i wrap this code in an iferror sttatment in vba

result = 100 / Application.CountIf(Sheets("TRAP" & a - 1).Range("C:C"), a - 1) * Application.WorksheetFunction.CountIfs(Sheets("TRAP" & a - 1).Range("C:C"), a - 1, Sheets("TRAP" & a - 1).Range("E:E"), 1)

thanks in advance
i did try application.iferror
dave

 

[Sektor]

result = WorksheetFunction.IfError( _
100 / WorksheetFunction.CountIf(Sheets("TRAP" & a - 1).Range("C:C"), a - 1) * _
WorksheetFunction.CountIfs(Sheets("TRAP" & a - 1).Range("C:C"), a - 1, Sheets("TRAP" & a - 1).Range("E:E"), 1), _
"YOUR_TEXT")

 

[SQUIDD]

hi sektor

still gives me a divide by zero error.
the calculation would look like this

100/0*0

i know the calculation is wrong and will not work, but was hoping iferror would fix it.

any other ideas?

cheers

dave

 

[Sektor]

Then this way (if you want to hold string in result variable, then its type must be Variant):

On Error Resume Next
result = ....
If Err <> = 0 Then
    result = "ERROR"  '// Your value for error indicator
End If
On Error GoTo 0

 

[SQUIDD]

Hi

seem to have a probelm with this line of code
If Err <> = 0 Then

i have simplified the code to give me the same error

c = 100 / 0 * 0

so if we can get the above code to make c = "" or "error" then the rest will work

thanks for looking

dave

 

[Sektor]

Ooops! Of course, it must be If Err <> 0

 

[SQUIDD]

sektor

thats it mate.

many thanks

saved me doing a horrible formula workaround.

cheers

dave

 

[Sektor]

You're welcome!