Note: The other languages of the website are Google-translated. Back to English

How to hide or unhide columns based on drop down list selection in Excel?

While using Excel, you can hide or unhide specific columns based on the selection of a drop down list. For example, if you select No in the drop down list, column C to I will be hidden, but if you select Yes, the hidden columns C to I will be unhidden. See below screenshot shown.
In this article, we will show you a VBA method to hide or unhide columns based on drop down list selection in Excel.

Hide or unhide columns based on drop down list selection in Excel


Hide or unhide columns based on drop down list selection in Excel

As above example mentioned, to hide or unhide columns C to I based on the drop down list selection, please do as follows.

1. First, create your drop down list with Yes and No which you need.

2. Then press Alt + F11 to open the Microsoft Visual Basic for Application window.

3. Double click the current open sheet name in the VBAProject section to open the Code editor.

4. Then copy and paste below VBA code into the Code editor.

VBA code: hide or unhide columns based on drop down list selection

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20180822
    If Target.Column = 2 And Target.Row = 3 Then
        If Target.Value = "No" Then
            Application.Columns("C:I").Select
            Application.Selection.EntireColumn.Hidden = True
        ElseIf Target.Value = "Yes" Then
            Application.Columns("C:I").Select
            Application.Selection.EntireColumn.Hidden = False
        End If
    End If
End Sub

Note: In the above code, Column = 2 and Row = 3 is the cell reference of the drop down list, and the range C:I is the columns that you want to hide or unhide, .please change them to your need.

5. Press Alt + Q keys simultaneously to exit the Microsoft Visual Basic for Application window.

From now on, when you select No in the drop down list, all specified columns are hidden.

But if you select Yes in the drop down list, all hidden columns are displayed immediately.


Related articles:


The Best Office Productivity Tools

Kutools for Excel Solves Most of Your Problems, and Increases Your Productivity by 80%

  • Reuse: Quickly insert complex formulas, charts and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails...
  • Super Formula Bar (easily edit multiple lines of text and formula); Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
  • Merge Cells/Rows/Columns without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Prevent Duplicate Cells; Compare Ranges...
  • Select Duplicate or Unique Rows; Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
  • Exact Copy Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
  • Extract Text, Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
  • Super Filter (save and apply filter schemes to other sheets); Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
  • Combine Workbooks and WorkSheets; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
  • More than 300 powerful features. Supports Office/Excel 2007-2019 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial. 60-day money back guarantee.
kte tab 201905

Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier

  • Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
  • Open and create multiple documents in new tabs of the same window, rather than in new windows.
  • Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!
officetab bottom
Comments (76)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, I have a workbook and trying to get my head around a VBA code. I have code that if I select from a drop down page1 it unhides a worksheet. I am looking for a code that I select page 1 & select a range of 3-5 from a drop down it unhides a worksheet & unhides 5 columns in the unhidden worksheet. Is that doable?
This comment was minimized by the moderator on the site
getting an error code when you delete the input number, can i get help with this?
This comment was minimized by the moderator on the site
Have modified the code like this



Private Sub Worksheet_Change(ByVal Target As Range)


If Target.Column = 3 And Target.Row = 2 And Target.Value = "No"

Then


Application.Rows("3:90").Select


Application.Selection.EntireRow.Hidden = True


Else


Application.Rows("3:90").Select


Application.Selection.EntireRow.Hidden = False


End If


End Sub




But the problem am facing is am unable to answer the yes no : as all the rows 3 to 90 are getting selected not allowing me to answer the next questions
This comment was minimized by the moderator on the site
Dear harikumar,

The code you provided works well for me. When selecting No from the drop-down list (which locates in cell C2), row 3:90 are hidden immediately. And selecting Yes from the drop-down list will unhide them all at once. Sorry i don't get the point of what you said about unable to answer the yes no.
This comment was minimized by the moderator on the site
Thank you for the helpful article.


I would like to take this macro a step further: I need exactly this, but with the caveat that the columns that I need to hide are not necessarily in a contiguous range and can be identified by a specific row within each column.

What i have in mind is something like this:
if refcell = "a", then hide all columns with "a" in row 7, else
if refcell = "b", then hide all columns with "b" in row 7, else
if refcell = "c", then hide all columns with "c" in row 7 else
show all columns

If this is possible, how would the VBA code look?
This comment was minimized by the moderator on the site
hey! Did you find a solution for this? Looking for the same :D
This comment was minimized by the moderator on the site
Dear John,
The following VBA code can help you solve the problem. When entering "a" into cell A1, all columns with "a" in row 7 will be hidden automatically. It also works when entering b and c in cell A1.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range
Dim xRgFind As Range
Dim xRgUni As Range
Dim xFirstAddress As String
On Error Resume Next
Application.ScreenUpdating = False
Rows(7).EntireColumn.Hidden = False
If Target.Address = Range("A1").Address Then
Set xRg = Intersect(ActiveSheet.UsedRange, Rows(7))
Set xRgFind = xRg.Find(Target.Value, , xlValues, xlWhole, , , True)
If Not xRgFind Is Nothing Then
xFirstAddress = xRgFind.Address
Do
Set xRgFind = xRg.FindNext(xRgFind)
If xRgUni Is Nothing Then
Set xRgUni = xRgFind
Else
Set xRgUni = Application.Union(xRgUni, xRgFind)
End If
Loop While (Not xRgFind Is Nothing) And (xRgFind.Address <> xFirstAddress)
End If
xRgUni.EntireColumn.Hidden = True
End If
Application.ScreenUpdating = True
End Sub
This comment was minimized by the moderator on the site
Dear Ryan,
Please try the following VBA code. When entering "a" into cell A1, all columns with "a" in row 7 will be hidden automatically. It also works when entering b and c in cell A1.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range
Dim xRgFind As Range
Dim xRgUni As Range
Dim xFirstAddress As String
On Error Resume Next
Application.ScreenUpdating = False
Rows(7).EntireColumn.Hidden = False
If Target.Address = Range("A1").Address Then
Set xRg = Intersect(ActiveSheet.UsedRange, Rows(7))
Set xRgFind = xRg.Find(Target.Value, , xlValues, xlWhole, , , True)
If Not xRgFind Is Nothing Then
xFirstAddress = xRgFind.Address
Do
Set xRgFind = xRg.FindNext(xRgFind)
If xRgUni Is Nothing Then
Set xRgUni = xRgFind
Else
Set xRgUni = Application.Union(xRgUni, xRgFind)
End If
Loop While (Not xRgFind Is Nothing) And (xRgFind.Address <> xFirstAddress)
End If
xRgUni.EntireColumn.Hidden = True
End If
Application.ScreenUpdating = True
End Sub
This comment was minimized by the moderator on the site
Hi Crystal,
I'm new to this. I can't tell from your code how you define a, b, and c as values in cell A1. I basically what to do what your code does, but I need the value of A1 (or any other cell I want to use) to be a string.
Example:
I have a table (range of cells) that contains 1 of 3 values in Row 3. The values are ("Active", "Inactive", and "Closed". I'd like all columns that have "Inactive" or "Closed" in Row 3 to be hidden. The value in Row 3 is from an INDEX/MATCH function that pulls from another sheet in my workbook. In the other sheet I select 1 of the 3 values from a drop down list.

How would I modify this code to look for "Inactive" or "Closed" in Row 3, and only hide those columns?


Many thanks in advance!

Eddie
This comment was minimized by the moderator on the site
Dear Eddie,
Sorry I can't help with this. You can post your question in our forum: https://www.extendoffice.com/forum.html to get more supports from our Excel professional.
This comment was minimized by the moderator on the site
I need to use this for Hiding 14 columns alternately based on a cell value.
eg - If A1 = CAT, then hide columns J to V

If A1 = BAT, Then hide columns I and K to V

If A1 = HAT, Then hide columns I, J, and L to P

Basically, my data is in columns I till V and I need hide columns from this range except for the one selected in the reference cell. and unhide all if "All" is selected in the reference cell.

I tried using the same formula above in a loop but I get a "compile error - " Is there a different formula I need to use?
This comment was minimized by the moderator on the site
Dear Ruchi,
Sorry, I don’t really get your point of “Basically, my data is in columns I till V and I need hide columns from this range except for the one selected in the reference cell. and unhide all if "All" is selected in the reference cell.”
This comment was minimized by the moderator on the site
Can anyone help :


If i enter value to cell A1 as " No", i want columns D:E to hide. and if i enter value as "Yes", i want columns D:E to unhide and columns F:G to hide
This comment was minimized by the moderator on the site
Dear Anish,
This VBA code can help you. Please have a try. Thank you for your comment.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range
Set xRg = Range("A1")
If xRg.Address = Target.Address And Target.Value = "No" Then
Columns("D:E").EntireColumn.Hidden = True
ElseIf xRg.Address = Target.Address And Target.Value = "Yes" Then
Columns("D:E").EntireColumn.Hidden = False
Columns("F:G").EntireColumn.Hidden = True
End If
End Sub
This comment was minimized by the moderator on the site
I need assistance with excel macro or formula. Can anyone help?
This comment was minimized by the moderator on the site
I need assistance with a similar macro but for specified cell ranges, not a whole column. Can this be done?
This comment was minimized by the moderator on the site
Dear Kara,
Do you mean "hide contents of specified cell ranges based on cell value"? Please post you question with details so as to help us solve the problem.
This comment was minimized by the moderator on the site
Hi there! I have a selection of 10 items and am trying to only show rows 57 to 72 when I select one of them. I am using the following code but somehow it is not working and my dashboard does not change at all. However, when I key in something into a random cell, the page reloads and rows 57:72 become hidden. But then, it stays the same across all my selections and I cannot unhide it again through the drop box selection. May I know if anyone has an alternative suggestion? Thank you in advance!


Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 2 And Target.Row = 3 And Target.Value = "1"

Then Application.Rows("57:72").Select Application.Selection.EntireRow.Hidden = False

Else Application.Rows("57:72").Select Application.Selection.EntireRow.Hidden = True

End If

End Sub
This comment was minimized by the moderator on the site
Hi,
Thanks for the code, if I want to add third option what is the syntax?
This comment was minimized by the moderator on the site
I modified this code to hide rows instead of columns, and it works but with one minor problem. I have several data validation lists on the same worksheet, and when I select a value from these other lists, all the rows specified in my code seem to unhide automatically even if the value for the target cell is set to 'No'. Why does this happen and how can I fix it?
This comment was minimized by the moderator on the site
Dear Janice,
Sorry for the mistake, please try the new code below. Thanks for your comment.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Row = 3 Then
If Target.Value = "No" Then
Application.Columns("C:I").Select
Application.Selection.EntireColumn.Hidden = True
ElseIf Target.Value = "Yes" Then
Application.Columns("C:I").Select
Application.Selection.EntireColumn.Hidden = False
End If
End If
End Sub
This comment was minimized by the moderator on the site
This is exactly what I need to do, but I don't want the column to be highlighted when I hide/unhide. How can I build into the code to go to the next cell?
This comment was minimized by the moderator on the site
Thank you for the helpful article. I would like to take this macro a step further: I need exactly this, but the columns that I need to hide/unhide are not necessarily in a continuous range. My columns range from C to NC. What I want is that if I select Target Value 1, it hides AH to NC, and unhide C to AG, and when I select Target Value 2, it hides C to AG and also BJ to NC, and unhide AH to BI and so on subject to Target value.
This comment was minimized by the moderator on the site
Basically I need to know how to refer to multiple ranges at a time. I tried but it gives error. Here's a look
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Row = 4 Then
If Target.Value = "January" Then
Application.Columns("AH:NC").Select
Application.Selection.EntireColumn.Hidden = True
ElseIf Target.Value = " January " Then
Application.Columns("C:AG").Select
Application.Selection.EntireColumn.Hidden = False

ElseIf Target.Value = "February" Then
Application.Columns("C:AG, BJ:NC").Select
Application.Selection.EntireColumn.Hidden = True
ElseIf Target.Value = " February " Then
Application.Columns("AH:BI").Select
Application.Selection.EntireColumn.Hidden = False

End If
End If
End Sub

Note: It works for Target.Value = " January ", but for Target.Value = "February" it highlights error on this line => Application.Columns("C:AG, BJ:NC").Select

Furthermore, once it hides on selecting a target value, it does not unhide on selecting some other target value
This comment was minimized by the moderator on the site
Hi Maria,
Your code has been optimized. Please have a try. Hope I can help.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRG As Range
Dim xHRow As Integer
Set xRG = Range("B4")
If Not Intersect(Target, xRG) Is Nothing Then
If Target.Value = "January" Then
Application.Columns("AH:NC").Hidden = True
Application.Columns("C:AG").Hidden = False
ElseIf Target.Value = "February" Then
Application.Columns("C:AG").Hidden = True
Application.Columns("BJ:NC").Hidden = True
Application.Columns("AH:BI").Hidden = False
End If
End If
End Sub
This comment was minimized by the moderator on the site
My dropdown menu is on cell B23. If yes, show and if no, then hide row 29. This is the code I am using:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20180822
If Target.Column = 2 And Target.Row = 23 Then
If Target.Value = "no" Then
Application.Row(29).Select
Application.Selection.EntireRow.Hidden = True
ElseIf Target.Value = "yes" Then
Application.Row(29).Select
Application.Selection.EntireRow.Hidden = False
End If
End If
End Sub

But I end up with a run-time error 438 - Object doesn't support this property or method. Why? Is it something wrong in the code above?

Thanks in advance for the help.
This comment was minimized by the moderator on the site
Hi Guinther,
The below VBA code can help you solve the problem. Please have a try. Thank you for your comment.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRG As Range
Dim xHRow As Integer
Set xRG = Range("B23")
xHRow = 29
If Not Intersect(Target, xRG) Is Nothing Then
If Target.Value = "No" Then
Application.Rows(xHRow).Select
Application.Selection.EntireRow.Hidden = True
ElseIf Target.Value = "Yes" Then
Application.Rows(xHRow).Select
Application.Selection.EntireRow.Hidden = False
End If
End If
End Sub
This comment was minimized by the moderator on the site
Hi Crystal,


I'm hoping you could help me with hiding/showing multiple rows. I would like to show rows 63-73 when YES is selected in cell D51. I'm using the following -


Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRG As Range
Dim xHRow As Integer
Set xRG = Range("D51")
xHRow = ("63:73")
If Not Intersect(Target, xRG) Is Nothing Then
If Target.Value = "No" Then
Application.Rows(xHRow).Select
Application.Selection.EntireRow.Hidden = True
ElseIf Target.Value = "Yes" Then
Application.Rows(xHRow).Select
Application.Selection.EntireRow.Hidden = False
End If
End If
End Sub



Thank you!
This comment was minimized by the moderator on the site
Hi Gab,
Please apply the below VBA code. Thank you for your comment.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRG As Range
Dim xHRow As String
Set xRG = Range("D51")
xHRow = "63:73"
If Not Intersect(Target, xRG) Is Nothing Then
If Target.Value = "No" Then
Application.Rows(xHRow).Select
Application.Selection.EntireRow.Hidden = True
ElseIf Target.Value = "Yes" Then
Application.Rows(xHRow).Select
Application.Selection.EntireRow.Hidden = False
End If
End If
End Sub
This comment was minimized by the moderator on the site
The code given to hide/ unhide columns based on value selected from the drop-down list of another column works great. Thanks. But it only works for the one row.
How to apply this for the rest of the selected number of rows in the spreadsheet. I understand we may have to define a variable for the row number and in a loop increment that. But I do not know the syntax for it. Could someone help with that please?
This comment was minimized by the moderator on the site
Hi,
Please try the below VBA code. Hope it can help.
Please change the range as you need.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRG As Range
Set xRG = Range("B3:B30")
If Not Intersect(Target, xRG) Is Nothing Then
If Target.Value = "No" Then
Application.Columns("C:I").Select
Application.Selection.EntireColumn.Hidden = True
ElseIf Target.Value = "Yes" Then
Application.Columns("C:I").Select
Application.Selection.EntireColumn.Hidden = False
End If
End If
End Sub
This comment was minimized by the moderator on the site
Thank you. I used the code and it works great, but when I type into a cell below and press enter it will automatically moves the cursor back to the target box. Is there a way to work around this?
This comment was minimized by the moderator on the site
Hi Grant,
I tried as you mentioned, but didn't find the same problem. Can you tell me your Excel verson? Thanks for commenting.
This comment was minimized by the moderator on the site
Each column is a different student ( 2 in this example A and B). I have two dropdowns ( on A1 and B1). Each has "Passed" "Failed" and "Select One" as an option. Now, I managed to make it work when selecting only one dropdown (either A1 or B1). I want to be able to unhide the fields that were hidden by A1 whenever I select something on B1. The goal is to select an option on A1 and fill the rows that are left. Then select B1 and fill whichever rows are left ( Regardless of A1 selection.

Thank you!

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("A1:B2")) Is Nothing Or Target.Cells.Count > 1 Then
Exit Sub

ElseIf Range("A1").Value = "Select One" Then
Rows("2:15").EntireRow.Hidden = False

ElseIf Range("A1").Value = "Passed" Then
Rows("7").EntireRow.Hidden = False
Rows("8:15").EntireRow.Hidden = True

ElseIf Range("A1").Value = "Failed" Then
Rows("7").EntireRow.Hidden = True
Rows("8:15").EntireRow.Hidden = False

ElseIf Range("B1").Value = "Select One" Then
Rows("2:15").EntireRow.Hidden = False

ElseIf Range("B1").Value = "Passed" Then
Rows("7").EntireRow.Hidden = False
Rows("8:15").EntireRow.Hidden = True

ElseIf Range("B1").Value = "Failed" Then
Rows("7").EntireRow.Hidden = True
Rows("8:15").EntireRow.Hidden = False

End If

End Sub
This comment was minimized by the moderator on the site
Good Day,
Sorry can't help you with that. Thank you for your comment.
This comment was minimized by the moderator on the site
I'm getting an error at xHRow = (14:24")

I'm attempting to hide or show multiple rows depending on my C4 selection. Can you assist with what i have wrong?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRG As Range
Dim xHRow As Range
Set xRG = Range("C4")
xHRow = ("14:24")
If Not Intersect(Target, xRG) Is Nothing Then
If Target.Value = "Pulled" Then
Application.Rows(xHRow).Select
Application.Selection.EntireRow.Hidden = True
ElseIf Target.Value = "Replaced" Then
Application.Rows(xHRow).Select
Application.Selection.EntireRow.Hidden = False
End If
End If
End Sub
This comment was minimized by the moderator on the site
The error is: Run-time error '91':
Object variable or with block variable not set
This comment was minimized by the moderator on the site
I need helps. Why when I already copied that formula to my VBA, and I tried to play it, the whole table is hidden not just partial column which I want to hide?
Thank you very much for your assistance.
This comment was minimized by the moderator on the site
Hi Reza G.
The code works well in my case. Do you mind attaching a screenshot of your table range and the VBA code after change? Thank you for your comment.
This comment was minimized by the moderator on the site
Bonjour, j'ai le même problème...

Voici mon code VBA modifié :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Row = 3 And Target.Value = "Gestion" Then
Application.Columns("D:E").Select
Application.Selection.EntireColumn.Hidden = True

Else

If Target.Value = "Affaire nouvelle" Then
Application.Columns("D:E").Select
Application.Selection.EntireColumn.Hidden = False

Else

If Target.Value = "Avenant" Then
Application.Columns("D:E").Select
Application.Selection.EntireColumn.Hidden = False
End If
End If
End If
End Sub
This comment was minimized by the moderator on the site
I used the code to work great. Thank you. But when I selected from the dropdown it active to last code or moves to the last column data. How to select dropdown every time(Column = 13 And Target.Row = 3 then) not move and can record data next column ?
Thank you.
Example: Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20180822
' If Target.Column = 13 And Target.Row = 3 Then
If Target.Column = 13 Then
If Target.Value = "1: Yes" Then
Application.Columns("N:O").Select
Application.Selection.EntireColumn.Hidden = False
Application.Columns("P:S").Select
Application.Selection.EntireColumn.Hidden = True
Application.Columns("V:Z").Select
Application.Selection.EntireColumn.Hidden = True
Application.Columns("X:Z").Select
Application.Selection.EntireColumn.Hidden = True
Application.Columns("AB:AK").Select
Application.Selection.EntireColumn.Hidden = True
Application.Columns("AL").Select
Application.Selection.EntireColumn.Hidden = False
Application.Columns("AM").Select
Application.Selection.EntireColumn.Hidden = True
ElseIf Target.Value = "2: No" Then
Application.Columns("N").Select
Application.Selection.EntireColumn.Hidden = True
Application.Columns("O:Z").Select
Application.Selection.EntireColumn.Hidden = False
Application.Columns("AB:AK").Select
Application.Selection.EntireColumn.Hidden = True
Application.Columns("AL").Select
Application.Selection.EntireColumn.Hidden = True
Application.Columns("AM").Select
Application.Selection.EntireColumn.Hidden = False
ElseIf Target.Value = "" Then
Application.Columns("N:AN").Select
Application.Selection.EntireColumn.Hidden = False
End If
End If
'If Target.Column = 16 And Target.Row = 3 Then
If Target.Column = 16 Then
If Target.Value = "Cat" Then
Application.Columns("V:W").Select
Application.Selection.EntireColumn.Hidden = True
ElseIf Target.Value = "Dog" Then
Application.Columns("V:W").Select
Application.Selection.EntireColumn.Hidden = False
End If
End If
End Sub
There are no comments posted here yet
Load More
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations