Go to special
Closed
Viking57
-
Jul 16, 2010 at 11:59 AM
aquarelle
aquarelle
- Posts
- 7115
- Registration date
- Saturday April 7, 2007
- Status
- Moderator
- Last seen
- June 2, 2022
Related:
- Go to special
- Special items in little alchemy - Guide
- Steam special access code - Guide
- Special e - Guide
- Facebook special characters - Guide
- Special code to reset the network - Guide
3 replies
aquarelle
Jul 16, 2010 at 03:06 PM
- Posts
- 7115
- Registration date
- Saturday April 7, 2007
- Status
- Moderator
- Last seen
- June 2, 2022
Jul 16, 2010 at 03:06 PM
Hi,
Try this :
Best regards
"Pour trouver une solution à ses problèmes, il faut s'en donner la peine."
Try this :
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."
aquarelle
Jul 16, 2010 at 04:20 PM
- Posts
- 7115
- Registration date
- Saturday April 7, 2007
- Status
- Moderator
- Last seen
- June 2, 2022
Jul 16, 2010 at 04:20 PM
Yes, because I made a mistake but I edited my message to modify my macro and now I think it is OK :)
aquarelle
Jul 17, 2010 at 02:16 PM
- Posts
- 7115
- Registration date
- Saturday April 7, 2007
- Status
- Moderator
- Last seen
- June 2, 2022
Jul 17, 2010 at 02:16 PM
Hi,
Sorry , I had forgotten the possibility to have cells= 0, try this new one :
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."
aquarelle
Jul 23, 2010 at 01:51 AM
- Posts
- 7115
- Registration date
- Saturday April 7, 2007
- Status
- Moderator
- Last seen
- June 2, 2022
Jul 23, 2010 at 01:51 AM
Hi,
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.
See you
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.
See you
Jul 16, 2010 at 02:18 PM