Hello, I am tring to us a macro that will hide all rows that are blank, however i have formulas in each cell of the column, so when i us go to special, blanks it will not work due to the formulas, what are my options
Sub HidingEmptyRows()
Dim p As Range, i As Long
Set p = Application.InputBox(Prompt:="Select a range of cells", _
Title:=" Hiding of empty rows", Type:=8)
With p
For i = .Rows.Count To 1 Step -1
If Application.CountA(.Rows(i)) = 0 Then _
.Rows(i).EntireRow.Hidden = True
Next i
End With
End Sub
Best regards
"Pour trouver une solution à ses problèmes, il faut s'en donner la peine."
Sorry , I had forgotten the possibility to have cells= 0, try this new one :
Sub HidingEmptyRows()
Dim p As Range, i As Long
Set p = Application.InputBox(Prompt:="Select a range of cells", _
Title:=" Hiding of empty rows", Type:=8)
With p
For i = .Rows.Count To 1 Step -1
If Application.CountIf(.Rows(i), "=0") > 0 Or _
Application.CountIf(.Rows(i), "*") = 0 Then _
.Rows(i).EntireRow.Hidden = True
Next i
End With
End Sub
Best regards
"Pour trouver une solution à ses problèmes, il faut s'en donner la peine."
Please could you load a brief example of your excel file (without any private or personal data) on https://authentification.site then copy past the created link to your next answer.
