Macro to compare cell contents and make calculations

  • Thread starter Thread starter Stereolab
  • Start date Start date
S

Stereolab

Hello,

I'm trying to write a macro that will downcount inventory on an Exce
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) = Stoc
(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) - Cell
(-1, 1)

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

Thanks in advance
 
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
 
Back
Top