Note: The other languages of the website are Google-translated. Back to English
Zaloguj Się  \/ 
x
or
x
Rejestruję się  \/ 
x

or

Jak ukryć lub odkryć kolumny na podstawie wyboru listy rozwijanej w programie Excel?

Korzystając z programu Excel, możesz ukrywać lub odkrywać określone kolumny na podstawie wyboru listy rozwijanej. Na przykład, jeśli wybierzesz Nie z rozwijanej listy, kolumny od C do I będą ukryte, ale jeśli wybierzesz Tak, ukryte kolumny od C do I zostaną odkryte. Zobacz poniższy zrzut ekranu.
W tym artykule pokażemy Ci metodę VBA do ukrywania lub odkrywania kolumn na podstawie wyboru listy rozwijanej w programie Excel.

Ukryj lub odkryj kolumny na podstawie wyboru listy rozwijanej w programie Excel


Ukryj lub odkryj kolumny na podstawie wyboru listy rozwijanej w programie Excel

Jak wspomniano w powyższym przykładzie, aby ukryć lub odkryć kolumny od C do I na podstawie wyboru listy rozwijanej, wykonaj następujące czynności.

1. Najpierw utwórz listę rozwijaną z Tak i Nie, których potrzebujesz.

2. Następnie naciśnij inny + F11 otworzyć Microsoft Visual Basic dla aplikacji okno.

3. Kliknij dwukrotnie nazwę aktualnie otwartego arkusza w Projekt VBA , aby otworzyć edytor kodu.

4. Następnie skopiuj i wklej poniższy kod VBA do edytora kodu.

Kod VBA: ukryj lub odkryj kolumny na podstawie wyboru z rozwijanej listy

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

Uwagi: W powyższym kodzie Kolumna = 2 i Wiersz = 3 to odwołanie do komórki z rozwijanej listy, a zakres C: I to kolumny, które chcesz ukryć lub odkryć,. Zmień je zgodnie z potrzebami.

5. naciśnij inny + Q jednocześnie, aby wyjść z Microsoft Visual Basic dla aplikacji okno.

Odtąd po wybraniu Nie z listy rozwijanej wszystkie określone kolumny zostaną ukryte.

Ale jeśli wybierzesz Tak z listy rozwijanej, wszystkie ukryte kolumny zostaną natychmiast wyświetlone.


Podobne artykuły:


Najlepsze narzędzia biurowe

Kutools for Excel rozwiązuje większość twoich problemów i zwiększa wydajność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2019 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowy bezpłatny okres próbny. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i zmniejsza setki kliknięć myszą każdego dnia!
officetab dół
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    ojnathalia · 1 months ago
    Hi any help

    how to hide specific column using dropdown and select specific values or text
    • To post as a guest, your comment is unpublished.
      crystal · 27 days ago
      Hi,
      I don't get your point. This article demonstrates the method to hide columns based on the drop-down list selection. Would you try to be more specific about your issue?
  • To post as a guest, your comment is unpublished.
    bebf · 1 months ago
    I am using the code below to hide various columns depending on the selection from a drop-down box located in cell C3, but after a calculation is performed anywhere in the worksheet, ALL columns become UNHIDDEN. How do I fix this?

    Private Sub Worksheet_Change(ByVal Target As Range)

    Columns("D:F").AutoFit

    Dim Proj1 As String
    Dim Proj2 As String
    Dim Proj3 As String
    Dim Proj4 As String
    Dim Proj5 As String
    Dim Proj6 As String
    Dim Proj7 As String
    Dim Proj8 As String
    Dim Proj9 As String
    Dim Proj10 As String

    Proj1 = ActiveWorkbook.Sheets("Projects").Range("A1").Value
    Proj2 = ActiveWorkbook.Sheets("Projects").Range("A2").Value
    Proj3 = ActiveWorkbook.Sheets("Projects").Range("A3").Value
    Proj4 = ActiveWorkbook.Sheets("Projects").Range("A4").Value
    Proj5 = ActiveWorkbook.Sheets("Projects").Range("A5").Value
    Proj6 = ActiveWorkbook.Sheets("Projects").Range("A6").Value
    Proj7 = ActiveWorkbook.Sheets("Projects").Range("A7").Value
    Proj8 = ActiveWorkbook.Sheets("Projects").Range("A8").Value
    Proj9 = ActiveWorkbook.Sheets("Projects").Range("A9").Value
    Proj10 = ActiveWorkbook.Sheets("Projects").Range("A10").Value

    Dim xRG As Range
    Dim xHRow As Integer
    Set xRG = Range("C3")
    If Not Intersect(Target, xRG) Is Nothing Then

    If Target.Value = Proj1 Then
    Application.Columns("E:F").Hidden = True
    Application.Columns("D").Hidden = False

    ElseIf Target.Value = Proj2 Then
    Range("D:D, F:F").EntireColumn.Hidden = True
    Application.Columns("E").Hidden = False

    End If
    End If
    End Sub
    • To post as a guest, your comment is unpublished.
      crystal · 27 days ago
      Hi,
      Can you attach your file here? I tried the code and did some calculations in the worksheet, but the columns are still hidden. We need more details to fix the problem. Sorry for the inconvenience.
  • To post as a guest, your comment is unpublished.
    najz420 · 1 months ago
    Good day folks, I have data in the worksheet as per the following:


    Introduction (Row 1 to 9)

    City of Toronto (Row 10-19)

    City of Winnipeg(Row20-29)

    City of Vancouver(Row 30-39)

    There are various data pertaining to each city from column A to Colum J.

    There is a dropdown in D3 with city names as stated above. 

    I would like to keep rows 10 to 40 hidden by default if no option is selected in cell D3. 

    If I select "City of Toronto" then only rows 10-19 should appear, the rest can stay invisible. If I select option "City of Vancouver" then only it should show only rows 30-39.

    Row 1 to 9 can stay visible all the time.


    Any help achieving this would be highly appreciated.


    Thank you so much in advance.

    • To post as a guest, your comment is unpublished.
      MartyMcFly · 1 months ago
      Here you go. I 'm no expert, but this works for me. I'm sure someone else can give you a cleaner version. Also, you mentioned that you want to keep rows 10-40 hidden but there isn't anything on row 40 (City of Toronto (Row 10-19), City of Winnipeg (Row20-29), City of Vancouver(Row 30-39)). I also attached the file I use to make the code. Feel free to use it and test it.

      Private Sub Worksheet_Change(ByVal Target As Range)

      Application.ScreenUpdating = False

      If Target.Column = 4 And Target.Row = 3 Then

      If Target.Value = "" Then

      Application.Rows("10:40").Select

      Application.Selection.EntireRow.Hidden = True

      ElseIf Target.Value = "Toronto" Then

      Application.Rows("10:40").Select

      Application.Selection.EntireRow.Hidden = True

      Application.Rows("10:19").Select

      Application.Selection.EntireRow.Hidden = False

      ElseIf Target.Value = "Winnipeg" Then

      Application.Rows("10:40").Select

      Application.Selection.EntireRow.Hidden = True

      Application.Rows("20:29").Select

      Application.Selection.EntireRow.Hidden = False

      ElseIf Target.Value = "Vancouver" Then

      Application.Rows("10:40").Select

      Application.Selection.EntireRow.Hidden = True

      Application.Rows("30:39").Select

      Application.Selection.EntireRow.Hidden = False

      End If

      End If

      Application.ScreenUpdating = True

      End Sub
      • To post as a guest, your comment is unpublished.
        najz420 · 1 months ago
        Thank you so much for the response, for some reason i just got the email regarding the response after 6 days.

        This works perfectly fine as expected and I was also able to figure this issue out by utilizing Advanced Filter as per following: 

        Private Sub Worksheet_Change(ByVal Target As Range)
        If Target.Address = Range("D3").Address Then
        Range("A10:C250").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("D2:D3")
        End If
        End Sub

        However, there is still another issue. What if cell D3 value coming from another tab? Script doesn't kick in unless i click and hit enter into cell D3. Is there anyway to automate this?

        Note: Excel formula options already set to Automatic.


        • To post as a guest, your comment is unpublished.
          MartyMcFly · 1 months ago
          Hi Najz420,

          You would have to place the macro under the worksheet that contains the main cell where one will type in or select (drop-down) the city. Then use something like this:

          Private Sub Worksheet_Change(ByVal Target As Range)
          If Target.Address = Range("D3").Address Then
          Worksheets("Sheet1").Range("A10:C250").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("D2:D3")
          End If
          End Sub

          ** Make sure you edit the worksheet to reference where the data that will be filtered is located. 
          Let me know if this works. If you get an error, you might have to change this part: CriteriaRange:=Range("D2:D3")
          • To post as a guest, your comment is unpublished.
            najz420 · 1 months ago
            THANK YOU SO MUCH, it works perfectly! Feels like huge weight lifted off my shoulder.
            • To post as a guest, your comment is unpublished.
              MartyMcFly · 1 months ago
              Glad to help! :)
  • To post as a guest, your comment is unpublished.
    ali · 8 months ago
    i need help on, when choose one of the dropdown list example, choose B on the dropdown list then T,U,V column will be hidden 
  • To post as a guest, your comment is unpublished.
    Alice · 1 years ago
    Hello, I am looking to hide columns based off a list that has "Weekly, Fortnightly and Monthly" as options.

    If weekly was selected, no columns to be hidden. If fortnightly is selected columns AA to BA to be hidden. If Monthly is selected columns N to BA to be hidden.

    Would somebody be able to point me in the right direction to enter it into excel as shown above.

    Further a quick explanation of macros would be handy, otherwise I can look into it myself.

    Thankyou!!!!
  • To post as a guest, your comment is unpublished.
    gwww · 1 years ago
    Hi, is it possible to do in different sheet
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Good day,
      Supposing you want to hide specific rows in Sheet3, please apply the below code. Hope I can help.

      Private Sub Worksheet_Change(ByVal Target As Range)
      Dim xRG As Range
      Dim xHRg As Range
      Dim xStrRow As String
      Set xRG = Range("B2")
      xStrRow = "Sheet3!3:4,Sheet3!7:7,Sheet3!9:10" 'Use comma to separate multiple rows you need to hide or unhide.
      On Error Resume Next
      If Not Intersect(Target, xRG) Is Nothing Then
      If Target.Value = "No" Then
      Set xHRg = Application.Range(xStrRow)
      xHRg.EntireRow.Hidden = True
      ElseIf Target.Value = "Yes" Then
      Set xHRg = Application.Range(xStrRow)
      xHRg.EntireRow.Hidden = False
      End If
      End If
      End Sub
  • To post as a guest, your comment is unpublished.
    Timcy · 1 years ago
    Hi
    Need help with Hide and unhide
    If its "placed" then column F to I must be visible and Column J to L must be hidden
    If its "Higher Education" then column J to L must be visible and Column F to I must be hidden.

    Please help in providing code for this.
    Thanks in advance.
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Hi Timcy,
      Try the below VBA. Hope I can help. Thank you!

      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 = "placed" Then
      Application.Columns("J:L").Hidden = True
      Application.Columns("F:I").Hidden = False
      ElseIf Target.Value = "Higher Education" Then
      Application.Columns("F:I").Hidden = True
      Application.Columns("J:L").Hidden = False
      End If
      End If
      End Sub
  • To post as a guest, your comment is unpublished.
    connorb · 1 years ago
    Hi There,

    Trying to do something along the same vein as above with an added nuance.

    I've created an input sheet with 150 columns for different properties, I'd like to be able to use a data validation dropdown box to select a property and have only that column show up, with the remaining columns hidden.

    For reference; category column is B, property columns are C:EX, the property title used in the validation list is in row 156. I have the validation box ready to go and tried augmenting another similar macro I found but looks like I'd have to duplicate the code 149 times over for it to work. I know there has to be a better way than this.

    Any help greatly appreciated!
  • To post as a guest, your comment is unpublished.
    Lisa · 1 years ago
    Hi Thank you for sharing this code. I believe it will work, however the rows I would like to Hide/Unhide are on another worksheet. Can you assist?
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Hi Lisa,
      Please try the below VBA.

      Private Sub Worksheet_Change(ByVal Target As Range)
      Dim xRG As Range
      Dim xHRg As Range
      Dim xStrRow As String
      Set xRG = Range("B2")
      xStrRow = "Sheet3!3:4,Sheet3!7:7,Sheet3!9:10" 'Use comma to separate multiple rows you need to hide or unhide.
      On Error Resume Next
      If Not Intersect(Target, xRG) Is Nothing Then
      If Target.Value = "No" Then
      Set xHRg = Application.Range(xStrRow)
      xHRg.EntireRow.Hidden = True
      ElseIf Target.Value = "Yes" Then
      Set xHRg = Application.Range(xStrRow)
      xHRg.EntireRow.Hidden = False
      End If
      End If
      End Sub
  • To post as a guest, your comment is unpublished.
    Kiran · 2 years ago
    Hi,

    Can you please help me out for Hidden and unHidden for multiple drop down, for example as below

    if the drop down in column value is 1 than the column P:AE be Hidden,
    if the drop down in column value is 2 than the column T:AE be Hidden,
    if the drop down in column Value is 3 than the column X:AE be Hidden,
    if the drop down in column Value is 4 than the column AB:AE be Hidden,
    if the drop down in column Value is 5 than all column P:AE be UnHidden,


    Please let me know how to do the same
  • To post as a guest, your comment is unpublished.
    fouad khawaja · 2 years ago
    made my whole sheet disappear cuz i am a noob...

    here is what i did with your code... because i thought i could switch it for rows...
    wanted one pair of rows to disappear and one to appear for "abc" and then the opposite for "xyz"


    Private Sub Worksheet_Change(ByVal Target As Range)
    'Updated by Extendoffice 20180822
    If Target.Column = 6 And Target.Row = 6 Then
    If Target.Value = "abc" Then
    Application.rows("14:15").Select
    Application.Selection.EntireColumn.Hidden = True
    Application.Columns("18:19").Select
    Application.Selection.EntireColumn.Hidden = false
    ElseIf Target.Value = "xyz" Then
    Application.Columns("14:15").Select
    Application.Selection.EntireColumn.Hidden = False
    Application.Columns("18:19").Select
    Application.Selection.EntireColumn.Hidden = True
    End If
    End If
    End Sub
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Good day,
      You haven't replaced the text "Column" with "Row" in the code. The below code can do you a favor. Thank you for your comment.

      Private Sub Worksheet_Change(ByVal Target As Range)
      'Updated by Extendoffice 20191128
      If Target.Column = 6 And Target.Row = 6 Then
      If Target.Value = "abc" Then
      Application.Rows("14:15").Select
      Application.Selection.EntireRow.Hidden = True
      Application.Rows("18:19").Select
      Application.Selection.EntireRow.Hidden = False
      ElseIf Target.Value = "xyz" Then
      Application.Rows("14:15").Select
      Application.Selection.EntireRow.Hidden = False
      Application.Rows("18:19").Select
      Application.Selection.EntireRow.Hidden = True
      End If
      End If
      End Sub
  • To post as a guest, your comment is unpublished.
    Brian · 2 years ago
    Thanks for the code, it worked well for 2 items in drop-down list. If I have more than 2 items (say 10) in the drop-down list and have varying columns eg. if A is selected hide columns C-I, if B is selected hide columns B and D-I, if C is selected hide columns B-C and E-I and so on. How do we adjust the code?
    Thank you
    • To post as a guest, your comment is unpublished.
      Raviteja Cheruvu · 2 years ago
      Even I have the same question. Any Solution yet?
  • To post as a guest, your comment is unpublished.
    RAWINNA · 2 years ago
    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
  • To post as a guest, your comment is unpublished.
    Reza G. · 2 years ago
    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.
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      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.
  • To post as a guest, your comment is unpublished.
    Hawthorne · 3 years ago
    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
    • To post as a guest, your comment is unpublished.
      Hawthorne · 3 years ago
      The error is: Run-time error '91':
      Object variable or with block variable not set
  • To post as a guest, your comment is unpublished.
    MartyMcFly · 3 years ago
    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
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Good Day,
      Sorry can't help you with that. Thank you for your comment.
  • To post as a guest, your comment is unpublished.
    Grant · 3 years ago
    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?
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Hi Grant,
      I tried as you mentioned, but didn't find the same problem. Can you tell me your Excel verson? Thanks for commenting.
  • To post as a guest, your comment is unpublished.
    ExcelUser · 3 years ago
    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?
    • To post as a guest, your comment is unpublished.
      crystal · 3 years ago
      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
  • To post as a guest, your comment is unpublished.
    Guinther · 3 years ago
    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.
    • To post as a guest, your comment is unpublished.
      crystal · 3 years ago
      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
      • To post as a guest, your comment is unpublished.
        Gab · 3 years ago
        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!
        • To post as a guest, your comment is unpublished.
          crystal · 2 years ago
          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
  • To post as a guest, your comment is unpublished.
    mariafayyaz1992@gmail.com · 3 years ago
    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
    • To post as a guest, your comment is unpublished.
      crystal · 3 years ago
      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
  • To post as a guest, your comment is unpublished.
    mariafayyaz1992@gmail.com · 3 years ago
    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.
  • To post as a guest, your comment is unpublished.
    Abby · 3 years ago
    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?
  • To post as a guest, your comment is unpublished.
    JKTSJ · 3 years ago
    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?
    • To post as a guest, your comment is unpublished.
      crystal · 3 years ago
      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
  • To post as a guest, your comment is unpublished.
    Jeff · 3 years ago
    Hi,
    Thanks for the code, if I want to add third option what is the syntax?
  • To post as a guest, your comment is unpublished.
    yuhui.chan@gmail.com · 3 years ago
    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
  • To post as a guest, your comment is unpublished.
    Kara · 3 years ago
    I need assistance with a similar macro but for specified cell ranges, not a whole column. Can this be done?
    • To post as a guest, your comment is unpublished.
      crystal · 3 years ago
      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.
  • To post as a guest, your comment is unpublished.
    Kara · 3 years ago
    I need assistance with excel macro or formula. Can anyone help?
  • To post as a guest, your comment is unpublished.
    Anish · 4 years ago
    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
    • To post as a guest, your comment is unpublished.
      crystal · 3 years ago
      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
  • To post as a guest, your comment is unpublished.
    Ruchi312 · 4 years ago
    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?
    • To post as a guest, your comment is unpublished.
      crystal · 4 years ago
      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.”
  • To post as a guest, your comment is unpublished.
    Ryan · 4 years ago
    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?
    • To post as a guest, your comment is unpublished.
      crystal · 4 years ago
      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
      • To post as a guest, your comment is unpublished.
        Eddie · 4 years ago
        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
        • To post as a guest, your comment is unpublished.
          crystal · 4 years ago
          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.
    • To post as a guest, your comment is unpublished.
      John · 4 years ago
      hey! Did you find a solution for this? Looking for the same :D
      • To post as a guest, your comment is unpublished.
        crystal · 4 years ago
        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
  • To post as a guest, your comment is unpublished.
    harikumar · 4 years ago
    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
    • To post as a guest, your comment is unpublished.
      crystal · 4 years ago
      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.
  • To post as a guest, your comment is unpublished.
    Pidza · 5 years ago
    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?
    • To post as a guest, your comment is unpublished.
      Joseph · 10 months ago
      getting an error code when you delete the input number, can i get help with this?