Macro to hide rows when certain cells are blank

[Alberta Rose]

Hello. We have updated our operating system and someone has made a timesheet form for ease of copy/paste into the system. The timesheet has 20 rows of various cost centres the person can charge to. Some weeks there will be no hours in these cells (M4 through Q25) and I need a macro to check the cells for a numeric value (hours), if none - then hide the row.

The spreadsheet columns that contain the hours per week (Monday to Sunday) are in columns M through Q. Cells A through L are populated with project information coding. So, if there are no hours charged to a specific job as per columns M - Q, then I want that row hidden.

Can anyone help me out with this please? Thanks

 

[farmerscott]

Alberta,

Welcome to MrExcel.

you wrote "I need a macro to check the cells for a numeric value (hours)", does this mean there could be text in some of these cells?

FarmerScott

 

[farmerscott]

Alberta,

try-

Sub Hide_Rows()
Dim ws As Worksheet
Dim x As Integer
Dim rng As Range

Set rng = Sheets("Sheet1").Range("M4:Q25")
    rng.EntireRow.Hidden = False
For x = 25 To 4 Step -1
    If Cells(x, 13).Value = "" And Cells(x, 14).Value = "" And Cells(x, 15).Value = "" And Cells(x, 16).Value = "" And Cells(x, 17).Value = "" Then
    Rows(x).EntireRow.Hidden = True
    End If
Next x
End Sub

Hope that helps?

FarmerScott