Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
vba
I have the following script in an excel spreadsheet;
Dim i As Integer Public Sub test() For i = 8 To 31 If Cells(i, 12) < 0 Then Cells(i, 12) = "0.00" End If Next i End Sub It checks a column for values that are negative and changes them to "0.00", is there a way i can check the whole spreadsheet for negative numbers and change them to "0.00" |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
vba
Sub positate()
For Each r In ActiveSheet.UsedRange If r.Value < 0 Then r.Value = "0.00" End If Next End Sub -- Gary''s Student - gsnu200751 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
vba
Public Sub test()
For Each cell In ActiveSheet.UsedRange If cell.Value < 0 Then With cell .Value = 0 .NumberFormat = "0.00" End With End If Next cell End Sub On Thu, 25 Oct 2007 13:57:01 -0700, Mark J wrote: I have the following script in an excel spreadsheet; Dim i As Integer Public Sub test() For i = 8 To 31 If Cells(i, 12) < 0 Then Cells(i, 12) = "0.00" End If Next i End Sub It checks a column for values that are negative and changes them to "0.00", is there a way i can check the whole spreadsheet for negative numbers and change them to "0.00" |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|