Set row height of filtered rows

Brian F · Feb 28, 2012

Excel 2010, Windows 7: I have this little vba routine that sets the row height on merged cells in one column of a worksheet based on the number of characters in the text string. It's not very elegant but it does what I need. The worksheet has been filtered. There may be 20 rows showing and 500 hidden. Is there a way to make this routine only adjust the row height of rows showing after the "filter" has been performed? It takes too long for it to adjusts all 500 rows every time.

 Sub Row_Height_AIR()
Dim targetRange As Range
Dim targetCell As Range
'Sets row height
Set targetRange = Range("F24:F" & WorksheetFunction.CountA(Range("X24:X1081").Value) + 24)
For Each targetCell In targetRange.Cells
If Not IsEmpty(targetCell.Value) Then
If targetCell.Value Like "Photo Comment:*" Then
targetCell.RowHeight = 185.25
ElseIf Len(targetCell.Value) < 190 Then
targetCell.RowHeight = 80
ElseIf Len(targetCell.Value) >= 190 And Len(targetCell.Value) < 289 Then
targetCell.RowHeight = 97
ElseIf Len(targetCell.Value) >= 289 Then
targetCell.WrapText = True
targetCell.EntireRow.AutoFit
targetCell.RowHeight = targetCell.RowHeight + 5
End If
End If
Next targetCell
End Sub

Set row height of filtered rows

Brian F

Active Member

Excel Facts

Similar threads

Forum statistics

Share this page

Set row height of filtered rows

Brian F

Active Member

Excel Facts

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock