Change Values to Something Else
Try this small macro:
Sub Jensen()
Dim oldd(10) As String
Dim neww(10) As String
dq = Chr(34)
oldd(0) = "1"
oldd(1) = "2"
oldd(2) = "11/2"
oldd(3) = "15/16"
oldd(4) = "113/16"
neww(0) = "1" & dq
neww(1) = "2" & dq
neww(2) = "1-1/2"
neww(3) = "1-5/16"
neww(4) = "1-13/16"
For Each r In ActiveSheet.UsedRange
v = r.Value
For i = 0 To 4
If v = oldd(i) Then
r.Value = neww(i)
End If
Next
Next
End Sub
--
Gary''s Student - gsnu200841
"Jeff Jensen" wrote:
I need a macro that looks for certain values on a sheet and changes them, for
example:
Change 1 to 1
Change 2 to 2
Change 11/2 to 1-1/2
Change 15/16 to 1-5/16
Change 113/16 to 1-13/16
Each of those values are in their own cell.
There are some cells that have phrases such as: 2 Pieces I dont want
that to get changed to 2 Pieces
Thank you,
Jeff Jensen
|