Find Numeric data
The following macro will select all cells that display 79.00
Sub find_79()
v = "79.00"
Dim r As Range
Dim rf As Range
Set rf = Nothing
For Each r In ActiveSheet.UsedRange
If r.Text = v Then
If rf Is Nothing Then
Set rf = r
Else
Set rf = Union(rf, r)
End If
End If
Next
If rf Is Nothing Then Exit Sub
rf.Select
End Sub
--
Gary''s Student - gsnu200740
"RobWN" wrote:
Is there any way to get the Find function to locate numeric values?
i.e. cells are formatted as Numbers with a comma separator for thousands and brackets for
negative values.
ex 1,079.00
A search for 79.00 returns any cell with 79.00 (179.00), 1,079.00 etc.
If I try an exact match (Match Entire Cell Contents) it finds nothing - I'm assuming because of
the sign byte.
--
Regards
Rob
|