VBA Help: Automatically resize all rows containing specific calculated value in a column

[tyfy95]

Hello MrExcel community

I am searching for a solution to resize all of the rows in a worksheet based on the calculated value in column H. I have used column H a conditional formatting helper. In this case, the only two values in column H are "None" and "Color". These values are being returned from an if statement that I wrote. Anyway, I have conditionally formatted the sheet to color fill all rows containing "Color" in column H but I also want to resize these to basically create a thick border as conditional formatting only has thin boarders.

If someone could help me write a sub procedure to find all rows with "Color" in column H and resize them I would be extremely grateful as I have not found an easy solution at the moment. Also, as I add more data, the amount of "Color" and "None" values will change as well.


Thank you!

 

[Fluff]

Hi & welcome to MrExcel.
How about

Sub ResizeRws()
   With Range("A2", Range("A" & Rows.Count).End(xlUp))
      .Replace "Color", True, xlWhole, , False, , False, False
      .SpecialCells(xlConstants, xlLogical).EntireRow.RowHeight = 5
      .Replace True, "Color", xlWhole, , False, , False, False
   End With
End Sub

 

[tyfy95]

Hi, thanks for the reply and welcoming. I will give it a go