Hello,

how can I trap an overflow error for a division made in vba code?

Example:
..
other coding
..
If IsError(.Cells(1, 1).Offset(0, -2).Value / .Cells(BaseRangeRow,
1).Offset(0, -2).Value) Then
.Cells(1, 1).Value = CVErr(xlErrNA)
Else
.Cells(1, 1).Value = .Cells(1, 1).Offset(0,
-2).Value / .Cells(BaseRangeRow, 1).Offset(0, -2).Value
End If
..
other coding
..

When the denomonator is 0, then the procedure stops with an eeror
message "Overflow"

Any idea to manage this situation?

Excel XP SP3
WIN XP SP1

Regards
Werner

On 4 Apr, 16:14, Werner Rohrmoser wrote:
Hello,

how can I trap an overflow error for a division made in vba code?

Example:
.
other coding
.
If IsError(.Cells(1, 1).Offset(0, -2).Value / .Cells(BaseRangeRow,
1).Offset(0, -2).Value) Then
* *.Cells(1, 1).Value = CVErr(xlErrNA)
Else
* *.Cells(1, 1).Value = .Cells(1, 1).Offset(0,
-2).Value / .Cells(BaseRangeRow, 1).Offset(0, -2).Value
End If
.
other coding
.

When the denomonator is 0, then the procedure stops with an eeror
message "Overflow"

Any idea to manage this situation?

Excel XP SP3
WIN XP SP1

Regards
Werner

Hi Werner

If "denominator" = 0 Then
'Do nothing
Else
Run code
End if

Regards

Steve

Thanks Scoops,

simple and good.

Werner

Use On Error
--
Gary''s Student - gsnu2007g


"Werner Rohrmoser" wrote:

Hello,

how can I trap an overflow error for a division made in vba code?

Example:
..
other coding
..
If IsError(.Cells(1, 1).Offset(0, -2).Value / .Cells(BaseRangeRow,
1).Offset(0, -2).Value) Then
.Cells(1, 1).Value = CVErr(xlErrNA)
Else
.Cells(1, 1).Value = .Cells(1, 1).Offset(0,
-2).Value / .Cells(BaseRangeRow, 1).Offset(0, -2).Value
End If
..
other coding
..

When the denomonator is 0, then the procedure stops with an eeror
message "Overflow"

Any idea to manage this situation?

Excel XP SP3
WIN XP SP1

Regards
Werner

Thanks Gary,

yes, works as well.

Werner