Macro to compare cell contents and make calculations

[Stereolab]

Hello,

I'm trying to write a macro that will downcount inventory on an Excel spreadsheet as long as the part number value has not changed.

My logic is as follows:

If (Part current) = (Part previous), then Stock (current row) = Stock (previous row) - Qty (previous row)

I tried to code this in VB as follows:

If Cells(-1, -3) = Cells(0, -3) Then Cells(0, 6) = Cells(-1, 6) - Cells (-1, 1)

This doesn't work, and I am not sure why. I have played around with parentheses, added ".Value", and anything else I thought might work. Can anyone help?

Thanks in advance.

[Rowan Drummond]

Maybe like this:

With ActiveCell
If .Offset(-1, -3) = .Offset(0, -3) Then _
.Offset(0, 6) = .Offset(-1, 6) - .Offset(-1, 1)
End With

Hope this helps
Rowan

Stereolab wrote:
> Hello,
>
> I'm trying to write a macro that will downcount inventory on an Excel
> spreadsheet as long as the part number value has not changed.
>
> My logic is as follows:
>
> If (Part current) = (Part previous), then Stock (current row) = Stock
> (previous row) - Qty (previous row)
>
> I tried to code this in VB as follows:
>
> If Cells(-1, -3) = Cells(0, -3) Then Cells(0, 6) = Cells(-1, 6) - Cells
> (-1, 1)
>
> This doesn't work, and I am not sure why. I have played around with
> parentheses, added ".Value", and anything else I thought might work.
> Can anyone help?
>
> Thanks in advance.
>
>

[Stereolab]

Rowan,

THANK YOU.

You are my hero.

[Rowan Drummond]

You're welcome.

Stereolab wrote:
> Rowan,
>
> THANK YOU.
>
> You are my hero.
>
>