Have you tried something like this?
For Each cell In Range("J2:J200") ' Change this to suit your cell range(s)
If cell.Offset(0, 0) > "0" Then
cell.Offset(0, 0) = "0"
End If
Next cell
Jim
"Donna" wrote:
> In a form that is linked to both a query and tables, I need to change all the
> values in a particular field back to 0 (zero) to start a new year's worth of
> data.
>
> is there a way to set this up with a macro or some other way, other than to
> just scroll thru every record and type in the 0?
>
> I can't seem to get it right.
|