Hi,
I have created 2 combobox's; 1 for a 'charges' table and the other for a 'credits' table. the list in the combobox's is the same - 1 to 10. When I select the number in the list, the corresponding number of rows in the table unhides. Both work, however, when I select one combobox it resets the other to open all 10 rows in the table and vice versa. How do I get each combobox to run independantly and retain the rows when the other table is changed? Please see below code;
Code
Private Sub Proposed_Uses_or_Stages_Click()
If Proposed_Uses_or_Stages = "" Or Proposed_Uses_or_Stages = 0 Then
Application.EnableEvents = False
Cells.EntireRow.Hidden = True
Rows("36:45").Hidden = True
Else
If Proposed_Uses_or_Stages = 1 Then
Cells.EntireRow.Hidden = False
Rows(36).Hidden = False
Rows("37:45").Hidden = True
Else
If Proposed_Uses_or_Stages = 2 Then
Cells.EntireRow.Hidden = False
Rows("36:37").Hidden = False
Rows("38:45").Hidden = True
Else
If Proposed_Uses_or_Stages = 3 Then
Cells.EntireRow.Hidden = False
Rows("36:38").Hidden = False
Rows("39:45").Hidden = True
Else
If Proposed_Uses_or_Stages = 4 Then
Cells.EntireRow.Hidden = False
Rows("36:39").Hidden = False
Rows("40:45").Hidden = True
Else
If Proposed_Uses_or_Stages = 5 Then
Cells.EntireRow.Hidden = False
Rows("36:40").Hidden = False
Rows("41:45").Hidden = True
Else
If Proposed_Uses_or_Stages = 6 Then
Cells.EntireRow.Hidden = False
Rows("36:41").Hidden = False
Rows("42:45").Hidden = True
Else
If Proposed_Uses_or_Stages = 7 Then
Cells.EntireRow.Hidden = False
Rows("36:42").Hidden = False
Rows("43:45").Hidden = True
Else
If Proposed_Uses_or_Stages = 8 Then
Cells.EntireRow.Hidden = False
Rows("36:43").Hidden = False
Rows("44:45").Hidden = True
Else
If Proposed_Uses_or_Stages = 9 Then
Cells.EntireRow.Hidden = False
Rows("36:44").Hidden = False
Rows(45).Hidden = True
Else
If Proposed_Uses_or_Stages = 10 Then
Cells.EntireRow.Hidden = False
Rows("36:45").Hidden = False
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
Application.EnableEvents = True
End Sub
Private Sub Creditable_LandUses_Click()
If Creditable_LandUses = "" Or Creditable_LandUses = 0 Then
Application.EnableEvents = False
Cells.EntireRow.Hidden = True
Rows("49:58").Hidden = True
Else
If Creditable_LandUses = 1 Then
Cells.EntireRow.Hidden = False
Rows(49).Hidden = False
Rows("50:58").Hidden = True
Else
If Creditable_LandUses = 2 Then
Cells.EntireRow.Hidden = False
Rows("49:50").Hidden = False
Rows("51:58").Hidden = True
Else
If Creditable_LandUses = 3 Then
Cells.EntireRow.Hidden = False
Rows("49:51").Hidden = False
Rows("52:58").Hidden = True
Else
If Creditable_LandUses = 4 Then
Cells.EntireRow.Hidden = False
Rows("49:52").Hidden = False
Rows("53:58").Hidden = True
Else
If Creditable_LandUses = 5 Then
Cells.EntireRow.Hidden = False
Rows("49:53").Hidden = False
Rows("54:58").Hidden = True
Else
If Creditable_LandUses = 6 Then
Cells.EntireRow.Hidden = False
Rows("49:54").Hidden = False
Rows("55:58").Hidden = True
Else
If Creditable_LandUses = 7 Then
Cells.EntireRow.Hidden = False
Rows("49:55").Hidden = False
Rows("56:58").Hidden = True
Else
If Creditable_LandUses = 8 Then
Cells.EntireRow.Hidden = False
Rows("49:56").Hidden = False
Rows("57:58").Hidden = True
Else
If Creditable_LandUses = 9 Then
Cells.EntireRow.Hidden = False
Rows("49:57").Hidden = False
Rows(58).Hidden = True
Else
If Creditable_LandUses = 10 Then
Cells.EntireRow.Hidden = False
Rows("49:58").Hidden = False
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
Application.EnableEvents = True
End Sub
Display More