lotto009
Technical User
- Sep 24, 2012
- 3
Dear Expert all
How to link one text box and one Combo Box from many sheet cloud you see my file
-Need to one Text Box from many sheet(after I used command below not work
-Need to one Combo Box same this
Regareds
lotto009
==================================
Private Sub ComboBox1_Change()
ComboBox1.AddItem "9/15/2012"
ComboBox1.AddItem "9/16/2012"
ComboBox1.AddItem "9/17/2012"
ComboBox1.AddItem "9/18/2012"
ComboBox1.Text = Lotto009.List(0)
End Sub
Private Sub TextBox1_Change()
Sheets("SHO vs IRAT").Range("$A$1:$d$200000").AutoFilter Field:=2, Criteria1:=TextBox1.Text, Operator:=xlAnd
Sheets("SHO_Weekly").Range("$A$1:$c$200000").AutoFilter Field:=2, Criteria1:=TextBox1.Text, Operator:=xlAnd
Sheets("HO_Adjancy").Range("$A$1:$j$200000").AutoFilter Field:=2, Criteria1:=TextBox3.Text, Operator:=xlAnd
End Sub
How to link one text box and one Combo Box from many sheet cloud you see my file
-Need to one Text Box from many sheet(after I used command below not work
-Need to one Combo Box same this
Regareds
lotto009
==================================
Private Sub ComboBox1_Change()
ComboBox1.AddItem "9/15/2012"
ComboBox1.AddItem "9/16/2012"
ComboBox1.AddItem "9/17/2012"
ComboBox1.AddItem "9/18/2012"
ComboBox1.Text = Lotto009.List(0)
End Sub
Private Sub TextBox1_Change()
Sheets("SHO vs IRAT").Range("$A$1:$d$200000").AutoFilter Field:=2, Criteria1:=TextBox1.Text, Operator:=xlAnd
Sheets("SHO_Weekly").Range("$A$1:$c$200000").AutoFilter Field:=2, Criteria1:=TextBox1.Text, Operator:=xlAnd
Sheets("HO_Adjancy").Range("$A$1:$j$200000").AutoFilter Field:=2, Criteria1:=TextBox3.Text, Operator:=xlAnd
End Sub