Snasui Excel Forum

Code: Select all

Sub Hide_rowText()
    Dim ws As Worksheet, headerRow As Range, cel As Range
    Set ws = Sheet1
    Set headerRow = ws.Range("f5:f100")
    For Each cel In headerRow.Cells
        cel.EntireRow.Hidden = (cel.Font.Color = RGB(255, 0, 0))
    Next cel
End Sub

Code: Select all

 Sub Hide_rowText()
    Range("B10").Select
    Selection.End(xlDown).Select
    Rows("23:23").Select
    Range("B23").Activate
    Range(Selection, Selection.End(xlDown)).Select
    Rows("23:80").Select
    Range("B23").Activate
    Selection.EntireRow.Hidden = True
    Range("B3").Select
End Sub

Code: Select all

On Error Resume Next
With Worksheets("Sheet1")
    .Columns(1).Cells.EntireRow.Hidden = False
    .Range(.Range("b10").End(xlDown), .Range("b" & .Rows.Count) _
        .End(xlUp)).SpecialCells(xlCellTypeBlanks) _
        .EntireRow.Hidden = True
End With

Code: Select all

Sub Hide_rowText()
    Dim c As Range
    For Each c In ActiveSheet.Range("b5:b" & Range("b" & Rows.Count).End(xlUp).Row)
    If c = "" Then c.EntireRow.Hidden = True
    Next c
End Sub

Code: Select all

Sub Hide_rowText3()
    Dim f As Range
    For Each f In ActiveSheet.Range("e3:e20", "e31:e130")
    If f = "" Then f.EntireRow.Hidden = True
    Next f
End Sub

Code: Select all

Sub Hide_rowText3()
    Dim f As Range
    For Each f In ActiveSheet.Range("e3:e20,e31:e130")
    If f = "" Then f.EntireRow.Hidden = True
    Next f
End Sub