Amend range for negative value

[gavmer]

Hi all,

I have 2 questions i hope someone can help with.

1. My code copies and pastes based on value greater than 0. Problem is
i have a negative value i need to include. (IE -50). How can i do thi
and avoid copying all the blanks???

If IsNumeric(cell) Then
If cell > 0 Then
Cells(cell.Row, 5).Copy
Sh.Cells(rw, "D").PasteSpecial Paste:=xlPasteValues
Cells(cell.Row, 2).Copy
Sh.Cells(rw, "b").PasteSpecial Paste:=xlPasteValues


2. values (prices) are inserted in a row however, i would not like th
user to see the pricing. They need to know a value is inserted bu
maybe only with a ##???? These values ditermine which data copies an
pastes so the above code needs to recognise a value??

Can anyone help??

Thanks in advance!!

 

[Tom Ogilvy]

Perhaps

If IsNumeric(cell) Then
If cell.value <> 0 and len(trim(cell.Text)) <> 0 Then


If you do a custom cell format like "N";"N";; or "?";"?";; the value will
not display.


However, if the user selects the cell, the value will be visible in the
formula bar. To hide it in the formula bar, you can format the cell
(protection tab) as Hidden and then protect the sheet.

 

[gavmer]

Tom,

As usual you are spot on. Thanks very much for your help!!!

Cheers!!