Hiding rows, conditionally

[Peter Muller]

In column A, from row 7 to rows 500+ I have a list of clothing and accessories items, with a blank row separating each category.

In column J, from row 7 to 500+ I have the sum of sales figures, relating to the list in Col A.

I am looking for a macro that will hide the rows if the sum result in Col J is less than 1, or 0, but must not hide the separating rows as indicated in col A.

This list will change daily as stock is received or sold

Can you please help me with this.

 

[most]

Maybe something like this...

Sub Hide() LastRow = Cells(Rows.Count, 10).End(xlUp).Row '10 = Column J


For Each c In Range("J1:J" & LastRow)
  If c.Value < 1 And Not c.Offset(0, -9) = "" Then 'do if value in J is less then 1 and if column A is not blank
    Rows(c.Row).EntireRow.Hidden = True 'Hide the row
  End If
Next c


End Sub

 

[Peter Muller]

Thank you so much, will check this out in a bit.

 

[Peter Muller]

Thank you so much, it is perfect.