Hide / Unhide rows in a table that the first column cells are empty

Hi, my problem is that I have a worksheet that multiple users have input to & in the tables are formulas etc & my code will not work due to the formulas. I need the tables locked so the user can only enter data into the cells that I want. P.s there are muliple tables in the worksheet so I cant have the table rows increasing in number.

Long story short......Can I hide / unhide rows depending if col 1 is empty or not (using a command button)?

Please Login or Register  to view this content.

Here is a macro that I use to hide rows, it might get you started, but you'll have to make one to unhide as well. I modified it to hide if Column A is blank.
Sub HideMacro()

Dim x As Integer
x = 1

Do Until x = 10000
If Cells(x, 1).Value = "" Then
Rows(x).Select
Selection.EntireRow.Hidden = True
x = x + 1
Else
x = x + 1
End If
Loop


End Sub

Ah, thanks for the reply but I have multiple tables on the same sheet, can it be modified just to work on a specific table? eg. Table "Mod_T41"

I think I need to clarify further..........The tables I use have approx 25 rows but as well as entering data the users will have to delete data from a row meaning a blank row can exist in the middle of other rows that are filled with data so I created a sort button so that the blank rows would sort to the bottom. Due to having multiple tables it is a lot neater if the blank rows are hidden….hence the reason I would like a code to hide/unhide. I use filters at the moment but it would be neater if the blank rows would auto hide after “sorting”….I hope I’ve explained a bit better!!

I've stumbled across an easy solution.........."ShowAlldata" but a cell within the table must be selected first then simply filter on the coloumn I want. So basicaly it "unfilters" then sorts then filters on the colomn I need which will inturn hide all the blank rows at the bottom of my tables....All from a press of a button............VBA is the way to go!!

Please Login or Register  to view this content.