Macro to adjust row height based on criteria

[ashleym81]

Hi,

I have not been able to find the right macro to do what I need. I have conditional formatting on my pages that make a divider line when a "-" is entered into column A. I would like to see if there is something that will adjust the row height to either 8.25cm or 11 pixels when that is entered in. I have a header on line 1 of all tabs, so it would just have to be A2 and on.

If it is something that could be automated based on the criteria (instead of having to run the macro each time) then that would be ideal.

Thank you.

 

[Fluff]

How about

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.CountLarge > 1 Then Exit Sub
   If Target.column > 1 Then Exit Sub
   If Target.Value = "-" Then
      Target.RowHeight = 8.25
   ElseIf Target.Value = "" Then
      Target.EntireRow.AutoFit
   End If
End Sub

this needs to go in the sheet module.
Right click the sheet tab > view code > & paste the above in the code window.

PS You cannot have more than one Worksheet_Change event per sheet.
If you already have a Worksheet_Change event please post the code here.

 

[ashleym81]

That is exactly what I needed. Thank you so much for the help!

How about

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.CountLarge > 1 Then Exit Sub
   If Target.column > 1 Then Exit Sub
   If Target.Value = "-" Then
      Target.RowHeight = 8.25
   ElseIf Target.Value = "" Then
      Target.EntireRow.AutoFit
   End If
End Sub

this needs to go in the sheet module.
Right click the sheet tab > view code > & paste the above in the code window.

PS You cannot have more than one Worksheet_Change event per sheet.
If you already have a Worksheet_Change event please post the code here.

 

[Fluff]

Glad to help & thanks for the feedback