Code to open a tabs from combox excel
Solved/Closed
Related:
- Code to open a tabs from combox excel
- How to get whatsapp verification code online - Guide
- Samsung keypad reset code - Guide
- Battery reset code - Guide
- Samsung volume increase code - Guide
- Close open tabs on android - Guide
5 responses
rizvisa1
Posts
4478
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
May 5, 2022
766
Jun 5, 2010 at 06:21 AM
Jun 5, 2010 at 06:21 AM
Could you please upload a sample file with sample data etc on some shared site like https://authentification.site , http://wikisend.com/ , http://www.editgrid.com etc and post back here the link to allow better understanding of how it is now and how you foresee. Based on the sample book, could you re-explain your problem too
Hi, At the master tab there is a combo box, actually i would want a code for the combo box to show the tabs: tab1 and tab2, but everytime I select tab1 it will show up tab1 and tab1A and hide tab2 and tab2A. And when I select tab 2 it will show up tab2 and tab2A and hide tab1 and tab1A.
Please let me know if that is possible :)
This is the address with the file
https://authentification.site/files/22813070/master.xlsx
Mary
Please let me know if that is possible :)
This is the address with the file
https://authentification.site/files/22813070/master.xlsx
Mary
rizvisa1
Posts
4478
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
May 5, 2022
766
Jun 5, 2010 at 09:25 PM
Jun 5, 2010 at 09:25 PM
You are far better off using Data Validation for drop down. The reason is that getting the value from the dropdown of the form on sheet, is a two step process.
Lets say that you go for data validation route
1. Click on sheet Master
2. Click on Data Validation
3. From the drop down titled "Allow", pick "List"
4. On the box titled "Source"", type
tab1, tab2
5. click ok
This set up basic validation
Now for the code to make sheet visible and invisible
1. Press ALT + F11
2. Press CTRL + R
3. Double click on the sheet Master
4. Paste the code
THIS CODE IS BASED ON ASSUMPTION THAT THE VALIDATION WOULD BE IN CELL A2. CORRECT THAT PART.
Lets say that you go for data validation route
1. Click on sheet Master
2. Click on Data Validation
3. From the drop down titled "Allow", pick "List"
4. On the box titled "Source"", type
tab1, tab2
5. click ok
This set up basic validation
Now for the code to make sheet visible and invisible
1. Press ALT + F11
2. Press CTRL + R
3. Double click on the sheet Master
4. Paste the code
THIS CODE IS BASED ON ASSUMPTION THAT THE VALIDATION WOULD BE IN CELL A2. CORRECT THAT PART.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
Sheets("tab1").Visible = ((Sheets("tab1").Name = Target) Or (Target = ""))
Sheets("tab1A").Visible = ((Sheets("tab1A").Name = Target & "A") Or (Target = ""))
Sheets("tab2").Visible = ((Sheets("tab2").Name = Target) Or (Target = ""))
Sheets("tab2A").Visible = ((Sheets("tab2A").Name = Target & "A") Or (Target = ""))
End If
End Sub
Hi again, what you just have told me is more than great,but, is there any chance that this could be done with a combo box, is just that I want to use the combo box in a form, so the first thing the user will see is the user form with the combo box, is that possible
Thanks and I really appreciate your help
Mary
Thanks and I really appreciate your help
Mary
rizvisa1
Posts
4478
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
May 5, 2022
766
Jun 6, 2010 at 06:31 AM
Jun 6, 2010 at 06:31 AM
Well not know how you have filled ithe combo box
Lets say combo is bound to cell A1, then have the combo box call this routine.
Lets say combo is bound to cell A1, then have the combo box call this routine.
Sub ComboBox_Change()
Dim Target as String
Target = "I am a place holder"
If cells(1, "A") = 1 then
Target = "tab1"
Elseif ( cells(1, "A") = 2) then
Target = "tab2"
End If
Sheets("tab1").Visible = ((Sheets("tab1").Name = Target) Or (Target = ""))
Sheets("tab1A").Visible = ((Sheets("tab1A").Name = Target & "A") Or (Target = ""))
Sheets("tab2").Visible = ((Sheets("tab2").Name = Target) Or (Target = ""))
Sheets("tab2A").Visible = ((Sheets("tab2A").Name = Target & "A") Or (Target = ""))
End Sub
Didn't find the answer you are looking for?
Ask a question