Macro to compare cell contents and make calculations

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
 
R

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Compare two worksheets in the same workbook and highlight difference 7
Macro to check if current cell value is 1 and previous cell was 0 6
VBA Compare part of cell to another cell and then calculate 0
Is there a way to place the cell contents separated by a comma byinserting a new line and then copyi 1
Merge data by macro 9
Update this macro to make it generate a counter as text 7
Arrays and scattered cell values or another way? 16
Dynamic Offset from an Application.Goto cell = Date or Time 10

Top