show table based on dropdown cell value

[jega82ster]

Hi,

i am a beginner in excel. i have 3 different table (example : Table A, Table B & Table c). I want to show table based on drop down cell value (1, 2 & 3). If i select 1 from drop down list, excel should show Table A, if i select 2 from drop down list, excel should show Table B.

Hope someone can help me on this. Thank you

 

[MickG]

On the assumption your tables are shown with underscore i.e. Table_A ,Table_B, Table_C , and the tables are in different rows and your Validation list is in "A1!", then try this:-

To load code ,Right click sheet Tab, Select "View Code", vbwindow appears, Paste code into Vbwindow, Close Window.
To run code change Selection in cell "A1".

[COLOR="Navy"]Sub[/COLOR] MG25Feb26
Private [COLOR="Navy"]Sub[/COLOR] Worksheet_Change(ByVal Target [COLOR="Navy"]As[/COLOR] Range)
[COLOR="Navy"]Dim[/COLOR] n [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
[COLOR="Navy"]If[/COLOR] Target.Address(0, 0) = "A1" [COLOR="Navy"]Then[/COLOR]
[COLOR="Navy"]For[/COLOR] n = 65 To 67
    [COLOR="Navy"]If[/COLOR] "Table_" & Chr(n) = "Table_" & Chr(Target.Value + 64) [COLOR="Navy"]Then[/COLOR]
        ActiveSheet.ListObjects("Table_" & Chr(n)).Range.EntireRow.Hidden = False
    [COLOR="Navy"]Else[/COLOR]
        ActiveSheet.ListObjects("Table_" & Chr(n)).Range.EntireRow.Hidden = True
    [COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]Next[/COLOR] n
[COLOR="Navy"]End[/COLOR] If

[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR

Regards Mick