Code ends subroutine in error
 

The code below is evaluating a cell containing either a
blank or a dollar amount expressed without a decimal point
($10.00 = 1000).

If ActiveCell.Offset(0, 2) = "" Then
DrAmtAcct = ""
Else
If ActiveCell.Offset(0, 2) 0 Then
DrAmtAcct = Abs(ActiveCell.Offset(0, 2))
End If
End If

The problem I'm having is that when it gets to the cell
with a blank (no data), the routine ends.

Any help in figuring out why this is happening would be
greatly appreciated.

Code ends subroutine in error
 

Mike

What do you want it to do if it finds a blank cell?

What is happening at the moment is, if it finds a blank cell,
DrAmtAcct = "" , then it goes to the last End If and exits.

So, what do you want it to do now?........

Henry


"Mike" wrote in message
...
The code below is evaluating a cell containing either a
blank or a dollar amount expressed without a decimal point
($10.00 = 1000).

If ActiveCell.Offset(0, 2) = "" Then
DrAmtAcct = ""
Else
If ActiveCell.Offset(0, 2) 0 Then
DrAmtAcct = Abs(ActiveCell.Offset(0, 2))
End If
End If

The problem I'm having is that when it gets to the cell
with a blank (no data), the routine ends.

Any help in figuring out why this is happening would be
greatly appreciated.

Code ends subroutine in error
 

Hi,

Are you sure that cell is really empty. There could be space(s) in the cell.

did you step the code? if it stops and gives an error on line "DrAmtAcct = Abs(ActiveCell.Offset(0, 2))", possibly the reason cell has space(s) and not empty.
just change that line to "DrAmtAcct = Abs(Val(ActiveCell.Offset(0, 2)))" and try again.


--
Regards

Haldun Alay

To e-mail me, please remove AT and DOT from my e-mail address.



"Mike" , iletide sunu yazdi ...
The code below is evaluating a cell containing either a
blank or a dollar amount expressed without a decimal point
($10.00 = 1000).

If ActiveCell.Offset(0, 2) = "" Then
DrAmtAcct = ""
Else
If ActiveCell.Offset(0, 2) 0 Then
DrAmtAcct = Abs(ActiveCell.Offset(0, 2))
End If
End If

The problem I'm having is that when it gets to the cell
with a blank (no data), the routine ends.

Any help in figuring out why this is happening would be
greatly appreciated.

Code ends subroutine in error
 

Hi,

Another possibility could be; prior to that code, did you declare DrAmtAcct variable in the Sub or Module. If it is already declared as integer/long/double/currency, you get an error when the cell is blank. because the code is trying to assign a string value to DrAmtAcct variable.


--
Regards

Haldun Alay

To e-mail me, please remove AT and DOT from my e-mail address.



"Haldun Alay" <haldunalayATyahooDOTcom, iletide sunu yazdi ...
Hi,

Are you sure that cell is really empty. There could be space(s) in the cell.

did you step the code? if it stops and gives an error on line "DrAmtAcct = Abs(ActiveCell.Offset(0, 2))", possibly the reason cell has space(s) and not empty.
just change that line to "DrAmtAcct = Abs(Val(ActiveCell.Offset(0, 2)))" and try again.


--
Regards

Haldun Alay

To e-mail me, please remove AT and DOT from my e-mail address.



"Mike" , iletide sunu yazdi ...
The code below is evaluating a cell containing either a
blank or a dollar amount expressed without a decimal point
($10.00 = 1000).

If ActiveCell.Offset(0, 2) = "" Then
DrAmtAcct = ""
Else
If ActiveCell.Offset(0, 2) 0 Then
DrAmtAcct = Abs(ActiveCell.Offset(0, 2))
End If
End If

The problem I'm having is that when it gets to the cell
with a blank (no data), the routine ends.

Any help in figuring out why this is happening would be
greatly appreciated.