How to hide a row if a range of cells are blank

[Alpacas]

I would like to hide a row if cells AT4:BM4 are blank.

Thanks for any help you can give.

AlpacaMan

 

[Chris84]

Hi

Welcome to the forum

Which row do you want to hide?

 

[Alpacas]

Hi

Welcome to the forum

Which row do you want to hide?

I'd like to hide the row that they range is on--in this case Row 4.

Thx.

 

[Michael M]

Try

Sub MM1()
If WorksheetFunction.CountA(Range("AT4:BM4")) = 0 Then Rows("4:4").Hidden = True
End Sub

 

[Alpacas]

Try

Sub MM1()
If WorksheetFunction.CountA(Range("AT4:BM4")) = 0 Then Rows("4:4").Hidden = True
End Sub

Thx for your time and expertise.

There are multiple rows in the sheet that need to be hidden based upon a range of AT#:BM# where # are the number of rows in the sheet. Could you vary the macro code to include them?

Again, I appreciate your help.

AlpacaMan

 

[Michael M]

Assuming that you have data all the way down column "A" try

Sub MM1()
Dim lr As Long, r As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row 'change col reference to suit
    For r = lr To 2 Step -1
        If WorksheetFunction.CountA(Range("AT" & r & ":BM" & r)) = 0 Then Rows(r).Hidden = True
    Next r
End Sub

 

[Alpacas]

Assuming that you have data all the way down column "A" try

Sub MM1()
Dim lr As Long, r As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row 'change col reference to suit
    For r = lr To 2 Step -1
        If WorksheetFunction.CountA(Range("AT" & r & ":BM" & r)) = 0 Then Rows(r).Hidden = True
    Next r
End Sub

Thx very much!!

 

[Michael M]

pleasure...

 

[jenniferE]

Hi Michael,

How would I change this code so that I could use to hide the row

if coulmns D to (last column) which will vary workbook to workbook?

Thanks for your help!

Jennifer