Replace Values in range selection

[Terri]

Hello,
I have Cells E3:AE77 selected. How can I assess each cell in the range
selected and if the cell value is >0 then change the cell value to 0. Also,
how do I have the macro stop after all the cells in the range have been
assessed.

Thank you all for your help!

Terri

[Bob Phillips]

For Each cell In Range("E3:AE77")
If cell.Value > 0 Then cell.Value = 0
Next cell

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Terri" <Terri@discussions.microsoft.com> wrote in message
news:DB16B564-B2F5-42A0-BC50-7124E553EA53@microsoft.com...
> Hello,
> I have Cells E3:AE77 selected. How can I assess each cell in the range
> selected and if the cell value is >0 then change the cell value to 0.
Also,
> how do I have the macro stop after all the cells in the range have been
> assessed.
>
> Thank you all for your help!
>
> Terri

[Terri]

Bob & "Gary's Student",
Both suggestions worked perfectly. Thank you both so much for the help and
for getting me on the right path to other ways to use this code. Thanks
again!

Terri

"Bob Phillips" wrote:

> For Each cell In Range("E3:AE77")
> If cell.Value > 0 Then cell.Value = 0
> Next cell
>
> --
>
> HTH
>
> RP
> (remove nothere from the email address if mailing direct)
>
>
> "Terri" <Terri@discussions.microsoft.com> wrote in message
> news:DB16B564-B2F5-42A0-BC50-7124E553EA53@microsoft.com...
> > Hello,
> > I have Cells E3:AE77 selected. How can I assess each cell in the range
> > selected and if the cell value is >0 then change the cell value to 0.
> Also,
> > how do I have the macro stop after all the cells in the range have been
> > assessed.
> >
> > Thank you all for your help!
> >
> > Terri
>
>
>

[Gary''s Student]

Enter this small macro:

Sub Macro1()
Dim r As Range
For Each r In Selection
If r.Value > 0 Then
r.Value = 0
End If
Next
End Sub

Select any range of cells and run the macro.
--
Gary''s Student


"Terri" wrote:

> Hello,
> I have Cells E3:AE77 selected. How can I assess each cell in the range
> selected and if the cell value is >0 then change the cell value to 0. Also,
> how do I have the macro stop after all the cells in the range have been
> assessed.
>
> Thank you all for your help!
>
> Terri