vba

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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"
 
Sub positate()
For Each r In ActiveSheet.UsedRange
If r.Value < 0 Then
r.Value = "0.00"
End If
Next
End Sub
 
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
 
Back
Top