Row height based on cell value

[wacky_diva]

Hello,
I am trying to find a macro to adjust the row height depending on the value in column B
More specifically if column B contains the value "#Break" I need to adjust the row height to = 9.75 (13 Pixels)

It is a fairly basic one but I have not been able to find any answers by searching through the forum

Can anyone help?

[rylo]

Hi

How's this

Sub aaa()
  For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row
    If InStr(1, Cells(i, 2), "#Break") > 0 Then
      Cells(i, 1).EntireRow.RowHeight = 9.75
    End If
  Next i
End Sub

rylo

[wacky_diva]

Like a dream! Thankyou Rylo. :D
If I wanted to delete those rows, would that be similar?

[rylo]

Hi

Sure, but you have to run the loop backwards (

for i = cells(rows.count,1).end(xlup).row to 2 step -1

) and then

cell(i,1).entirerow.delete

rylo

[wacky_diva]

Like this?

Sub Delete_Breaks()
  For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
    If InStr(1, Cells(i, 2), "#Break") > 0 Then
      cell(i, 1).EntireRow.Delete
    End If
  Next i
End Sub

[wacky_diva]

no joy, I have made an error somewhere along the line

[wacky_diva]

please forgive my lack of technical understanding, I am still learning

[rylo]

Hi

Sorry, my bad. Delete line should be

cells(i, 1).EntireRow.Delete

rylo

[wacky_diva]

Rylo, you sir are a legend. Thankyou