Using VBA to set cell values based on values in the same row

[Swagner]

Hey guys, need a little help here.

I'm working on a proposal sheet for a business and I want to add a button on the top that would let them reset the quantities all to 0. I have a "Description" column that has values such as header, product, description, and subtotal. Basically what I need is some VBA to set each row's quantity value to 0 if the "Description" column = product.

I've tried some things, but just can't get it to work.

Thanks all!

 

[Fluff]

Hi & welcome to MrExcel.
A few questions
1) What column is the Description column?
2) What columns do you want setting to 0?
3) Do you have the Headers in row 1 with data starting in row2?
4) Are the Quantities values, or the result of formulae?

 

[Swagner]

1) The description column is titled "Formatting" and it is in column D
2) "Quantity" column is in column I
3) Headers start on row 51 (Quote info is above)
4) Quantities are all values, no formulas

Thanks!

 

[Fluff]

Ok, try

Sub Swagner()
   Dim Lr As Long
   Lr = Range("D" & Rows.Count).End(xlUp).Row
   Range("D51:D" & Lr).AutoFilter 1, "Product"
   Range("I52:I" & Lr).Value = 0
   ActiveSheet.AutoFilterMode = False
End Sub

 

[Swagner]

This replaced all quantities with 0, including the ones for the headers and subtotals. hmmmm

 

[Fluff]

If you step through the code using F8, when this line is highlighted

Range("I52:I" & Lr).Value = 0

have a look at the sheet, is it filtered correctly?

 

[Swagner]

Ohhh, I think I see what's happening.

Column A is a hidden column that controls the filtering (if the quantity = 0, then value = hide, if quantity <0 then value = display). After the quote is created then the table auto-filters to only show rows that contain "Display" in that column.

Hope that makes sense. If this can't work that's fine. i'll just name the range and remember to update the range as we add new products.

 

[Fluff]

Do you want to remove the filter on col A, to then clear the values for "Products"?

 

[Swagner]

Can you even do that?!

 

[Fluff]

Yup, what's the last col in row 51?