New Excel user needs help with simple Macro...

Hello,

I am relatively need to Microsoft Excel and I need help creating a simple
Macro.

I would like to create a Macro that will:

- take the value of the selected value
- add it to the value of the cell below it
- if the sum of these two cells is zero - replace values of both cells with
an x
- move to the next set of cells in the same column repeat the procedure
- continue the procedure for the entire column
- once that is done, for each cell with an x delete the entire row

the reason why I do not wish to delelte the rows on the fly is because it is
possible that after a deletion of a pair, the value of the cell above it and
the value of the cell below could also sum to zero but I would want to keep
these.

I have tried to accomplish this with the use of the Macro recorder and VBA
in Excel 2000 but have been thus far unsuccessful, any help would be much
appreciated.

Thanks in advance.

R.

suppose your data is in A1 to A10 . introduce a blank column (column B) and
try this url. if you data is different range change it in the third line .
I assume there is no "x" in column A. now column B will be empty and the
rows would have been deleted. you can delete column B if you want;.



Public Sub test()
Dim cell As Range
For Each cell In Range("a2:a10")
cell.Activate
If ActiveCell + ActiveCell.Offset(1, 0) = 0 Then
ActiveCell.Offset(0, 1) = "x"
ActiveCell.Offset(1, 1) = "x"
End If
Next
line1:

Range("A1").Activate
On Error GoTo line2

Cells.Find(what:="x").Activate
ActiveCell.EntireRow.Delete
GoTo line1
line2:

End Sub





Rahim Kassam <[email protected]> wrote in message
news:[email protected]...
> Hello,
>
> I am relatively need to Microsoft Excel and I need help creating a simple
> Macro.
>
> I would like to create a Macro that will:
>
> - take the value of the selected value
> - add it to the value of the cell below it
> - if the sum of these two cells is zero - replace values of both cells
with
> an x
> - move to the next set of cells in the same column repeat the procedure
> - continue the procedure for the entire column
> - once that is done, for each cell with an x delete the entire row
>
> the reason why I do not wish to delelte the rows on the fly is because it
is
> possible that after a deletion of a pair, the value of the cell above it
and
> the value of the cell below could also sum to zero but I would want to
keep
> these.
>
> I have tried to accomplish this with the use of the Macro recorder and VBA
> in Excel 2000 but have been thus far unsuccessful, any help would be much
> appreciated.
>
> Thanks in advance.
>
> R.
>
>