Code ends subroutine in error

[Mike]

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.

 

[Henry]

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

 

[Haldun Alay]

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" <[email protected]>, 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.

 

[Haldun Alay]

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" <[email protected]>, 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.