hide/unhide rows based on cell data in a specific column

[Trent30]

If I have a formula in column A that will have either "Hide" or "Show" depending on mulitple results in other cells what would the VBA be?

I have seen multiple versions based on hiding rows based on a specific cell in the spreadsheet but I cant find it based on each row

 

[mrshl9898]

Try:

Sub FilterRow()
Worksheets("Sheet1").Range("A1").AutoFilter Field:=1, Criteria1:="Hide"
End Sub

 

[Trent30]

Try:

Sub FilterRow()
Worksheets("Sheet1").Range("A1").AutoFilter Field:=1, Criteria1:="Hide"
End Sub

Sorry, I tried this and changed it to "Sheet2" saved, closed then re-opened and still nothing happened

 

[mrshl9898]

Are the headers in row 1 and data in row 2 downwards?

Did it at least put filters on? If you click the dropdown on the filter does it look like it's working?

 

[Trent30]

Below is what the sheet looks like at this stage, however column 5 has a drop down box that selects a number and what ever number is selected will then change the following cells in column A to show. I have tried to use a drop down box and the subsequent code, however I will also be adding further conditions to why it should hide a whole section and thought it would be easier to base it on the specific cell for the row.

Sorry new to VBA codes still trying to find my way around. When you say did it put the filters on are you meaning like the drop down buttons at the top of the column? as I want it to automatically hide the row

Hide/Show	Number	Name	Show lines	4​
Show	1​	Ted
Show	2​	Tom
Show	3​	Taylor
Show	4​	Trevor
Hide	5​	Tabitha
Hide	6​	Tony
Hide	7​	Terry
Hide	8​	Tim
Hide/Show	Number	Name	Show lines	6​
Show	9​	Carly
Show	10​	Cheryl
Show	11​	Charlotte
Show	12​	Charlie
Show	13​	Chris
Show	14​	Christine
Hide	15​	Christy
Hide	16​	Con
Hide/Show	Number	Name	Show lines	2​
Show	9​	Carly
Show	10​	Cheryl
Hide	11​	Charlotte
Hide	12​	Charlie
Hide	13​	Chris
Hide	14​	Christine
Hide	15​	Christy
Hide	16​	Con

 

[mrshl9898]

Thanks for the extra info:

Last code probably would have just hidden the ones in the top table (rows 1-9). Same as if you clicked on A1 and selected filter.

Sub HideRow()

Dim sht As Worksheet
Dim LastRow As Long

Set sht = ActiveSheet

  LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row

For i = 1 To LastRow
    If Cells(i, 1) = "Hide" Then
        Rows(i).Hidden = True
    Else
        Rows(i).Hidden = False
    End If
Next i

End Sub

 

[Trent30]

Are the headers in row 1 and data in row 2 downwards?

Did it at least put filters on? If you click the dropdown on the filter does it look like it's working?

Sorry not sure if you got the last message since I didn't reply to your post

 

[mrshl9898]

I did, did the revised solution work?

I was initially assuming your data was in one table, not the multiple it was actually in.

 

[Trent30]

Thanks for the extra info:

Last code probably would have just hidden the ones in the top table (rows 1-9). Same as if you clicked on A1 and selected filter.

Sub HideRow()

Dim sht As Worksheet
Dim LastRow As Long

Set sht = ActiveSheet

  LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row

For i = 1 To LastRow
    If Cells(i, 1) = "Hide" Then
        Rows(i).Hidden = True
    Else
        Rows(i).Hidden = False
    End If
Next i

End Sub

Sorry do you need to put it in the workbook or the worksheet

 

[Akuini]

@Trent30
Could you upload a sample workbook to a free site such as dropbox.com or google drive & then share the link here?
It will make it easier to test and find a solution.