Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Auto Fill Text Box
I am having trouble getting a text box to auto fill from a choice made from a
combo box. Combo Box Name is Address_21 Text Box Name is City_1 My code is as follows: 'Auto Fill CES Spec Written Office Private Sub ShowCity_1() Dim Address_21 As Variant Dim City_1 As Variant If UserForm1.Address_21 = "2306 Long Green Court" Then UserForm1.City_1 = Valrico If UserForm1.Address_21 = "3440 Oakcliff Road" Then UserForm1.City_1 = Atlanta If UserForm1.Address_21 = "7015 East 14th Aveneue" Then UserForm1.City_1 = Tampa If UserForm1.Address_21 = "3890 Oakcliff Industrial Court" Then UserForm1.City_1 = Atlanta If UserForm1.Address_21 = "1800 Taylor Drive" Then UserForm1.City_1 = Gastonia End Sub What did i do wrong or miss? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Auto Fill Text Box
Enclose each city name in double quotation marks. Otherwise VBA thinks
you're refering to a variable. "Brian" wrote: I am having trouble getting a text box to auto fill from a choice made from a combo box. Combo Box Name is Address_21 Text Box Name is City_1 My code is as follows: 'Auto Fill CES Spec Written Office Private Sub ShowCity_1() Dim Address_21 As Variant Dim City_1 As Variant If UserForm1.Address_21 = "2306 Long Green Court" Then UserForm1.City_1 = Valrico If UserForm1.Address_21 = "3440 Oakcliff Road" Then UserForm1.City_1 = Atlanta If UserForm1.Address_21 = "7015 East 14th Aveneue" Then UserForm1.City_1 = Tampa If UserForm1.Address_21 = "3890 Oakcliff Industrial Court" Then UserForm1.City_1 = Atlanta If UserForm1.Address_21 = "1800 Taylor Drive" Then UserForm1.City_1 = Gastonia End Sub What did i do wrong or miss? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Auto Fill Text Box
I changed the city name to the following. When I go to the combo box and
choose my Address nothing happens. I missed something. "Valrico" "Atlanta" "Tampa" "Atlanta" "Gastonia" "B Lynn B" wrote: Enclose each city name in double quotation marks. Otherwise VBA thinks you're refering to a variable. "Brian" wrote: I am having trouble getting a text box to auto fill from a choice made from a combo box. Combo Box Name is Address_21 Text Box Name is City_1 My code is as follows: 'Auto Fill CES Spec Written Office Private Sub ShowCity_1() Dim Address_21 As Variant Dim City_1 As Variant If UserForm1.Address_21 = "2306 Long Green Court" Then UserForm1.City_1 = Valrico If UserForm1.Address_21 = "3440 Oakcliff Road" Then UserForm1.City_1 = Atlanta If UserForm1.Address_21 = "7015 East 14th Aveneue" Then UserForm1.City_1 = Tampa If UserForm1.Address_21 = "3890 Oakcliff Industrial Court" Then UserForm1.City_1 = Atlanta If UserForm1.Address_21 = "1800 Taylor Drive" Then UserForm1.City_1 = Gastonia End Sub What did i do wrong or miss? |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Auto Fill Text Box
Sorry, I should have looked more closely at everything that was going on. I
just quickly scanned and identified the most obvious thing that jumped out at me. Paste the following into your userform code. Private Sub Address_21_Change() Select Case Address_21 Case ""2306 Long Green Court" City_1 = "Valrico" Case ""3440 Oakcliff Road" City_1 = "Atlanta" Case "7015 East 14th Aveneue" City_1 = "Tampa" Case "1800 Taylor Drive" City_1 = "Gastonia" End Select End Sub "Brian" wrote: I changed the city name to the following. When I go to the combo box and choose my Address nothing happens. I missed something. "Valrico" "Atlanta" "Tampa" "Atlanta" "Gastonia" "B Lynn B" wrote: Enclose each city name in double quotation marks. Otherwise VBA thinks you're refering to a variable. "Brian" wrote: I am having trouble getting a text box to auto fill from a choice made from a combo box. Combo Box Name is Address_21 Text Box Name is City_1 My code is as follows: 'Auto Fill CES Spec Written Office Private Sub ShowCity_1() Dim Address_21 As Variant Dim City_1 As Variant If UserForm1.Address_21 = "2306 Long Green Court" Then UserForm1.City_1 = Valrico If UserForm1.Address_21 = "3440 Oakcliff Road" Then UserForm1.City_1 = Atlanta If UserForm1.Address_21 = "7015 East 14th Aveneue" Then UserForm1.City_1 = Tampa If UserForm1.Address_21 = "3890 Oakcliff Industrial Court" Then UserForm1.City_1 = Atlanta If UserForm1.Address_21 = "1800 Taylor Drive" Then UserForm1.City_1 = Gastonia End Sub What did i do wrong or miss? |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Auto Fill Text Box
Oops, I see that I missed one of the combos. Or maybe got them mixed up.
But you get the drift and can correct as needed. Another thought would be to employ the combo box Column property to load and retrieve the associated city value that way. Go read the help entry on the subject for further inspiration in that direction. "B Lynn B" wrote: Sorry, I should have looked more closely at everything that was going on. I just quickly scanned and identified the most obvious thing that jumped out at me. Paste the following into your userform code. Private Sub Address_21_Change() Select Case Address_21 Case ""2306 Long Green Court" City_1 = "Valrico" Case ""3440 Oakcliff Road" City_1 = "Atlanta" Case "7015 East 14th Aveneue" City_1 = "Tampa" Case "1800 Taylor Drive" City_1 = "Gastonia" End Select End Sub "Brian" wrote: I changed the city name to the following. When I go to the combo box and choose my Address nothing happens. I missed something. "Valrico" "Atlanta" "Tampa" "Atlanta" "Gastonia" "B Lynn B" wrote: Enclose each city name in double quotation marks. Otherwise VBA thinks you're refering to a variable. "Brian" wrote: I am having trouble getting a text box to auto fill from a choice made from a combo box. Combo Box Name is Address_21 Text Box Name is City_1 My code is as follows: 'Auto Fill CES Spec Written Office Private Sub ShowCity_1() Dim Address_21 As Variant Dim City_1 As Variant If UserForm1.Address_21 = "2306 Long Green Court" Then UserForm1.City_1 = Valrico If UserForm1.Address_21 = "3440 Oakcliff Road" Then UserForm1.City_1 = Atlanta If UserForm1.Address_21 = "7015 East 14th Aveneue" Then UserForm1.City_1 = Tampa If UserForm1.Address_21 = "3890 Oakcliff Industrial Court" Then UserForm1.City_1 = Atlanta If UserForm1.Address_21 = "1800 Taylor Drive" Then UserForm1.City_1 = Gastonia End Sub What did i do wrong or miss? |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Auto Fill Text Box
I replaced my Code with this.
'Auto Fill CES Spec Written Office Private Sub Address_21_Change() Select Case Address_21 Case "2306 Long Green Court" City_1 = "Valrico" Case "3440 Oakcliff Road" City_1 = "Atlanta" Case "7015 East 14th Aveneue" City_1 = "Tampa" Case "1800 Taylor Drive" City_1 = "Gastonia" End Select End Sub I must be doing something wrong still, cause i can't get it work. "B Lynn B" wrote: Sorry, I should have looked more closely at everything that was going on. I just quickly scanned and identified the most obvious thing that jumped out at me. Paste the following into your userform code. Private Sub Address_21_Change() Select Case Address_21 Case ""2306 Long Green Court" City_1 = "Valrico" Case ""3440 Oakcliff Road" City_1 = "Atlanta" Case "7015 East 14th Aveneue" City_1 = "Tampa" Case "1800 Taylor Drive" City_1 = "Gastonia" End Select End Sub "Brian" wrote: I changed the city name to the following. When I go to the combo box and choose my Address nothing happens. I missed something. "Valrico" "Atlanta" "Tampa" "Atlanta" "Gastonia" "B Lynn B" wrote: Enclose each city name in double quotation marks. Otherwise VBA thinks you're refering to a variable. "Brian" wrote: I am having trouble getting a text box to auto fill from a choice made from a combo box. Combo Box Name is Address_21 Text Box Name is City_1 My code is as follows: 'Auto Fill CES Spec Written Office Private Sub ShowCity_1() Dim Address_21 As Variant Dim City_1 As Variant If UserForm1.Address_21 = "2306 Long Green Court" Then UserForm1.City_1 = Valrico If UserForm1.Address_21 = "3440 Oakcliff Road" Then UserForm1.City_1 = Atlanta If UserForm1.Address_21 = "7015 East 14th Aveneue" Then UserForm1.City_1 = Tampa If UserForm1.Address_21 = "3890 Oakcliff Industrial Court" Then UserForm1.City_1 = Atlanta If UserForm1.Address_21 = "1800 Taylor Drive" Then UserForm1.City_1 = Gastonia End Sub What did i do wrong or miss? |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
Auto Fill Text Box
I just tested it and it works fine. Did you put it in the form's code
module? (i.e. when you have the form in design view, right-click it and select View Code.) "Brian" wrote: I replaced my Code with this. 'Auto Fill CES Spec Written Office Private Sub Address_21_Change() Select Case Address_21 Case "2306 Long Green Court" City_1 = "Valrico" Case "3440 Oakcliff Road" City_1 = "Atlanta" Case "7015 East 14th Aveneue" City_1 = "Tampa" Case "1800 Taylor Drive" City_1 = "Gastonia" End Select End Sub I must be doing something wrong still, cause i can't get it work. "B Lynn B" wrote: Sorry, I should have looked more closely at everything that was going on. I just quickly scanned and identified the most obvious thing that jumped out at me. Paste the following into your userform code. Private Sub Address_21_Change() Select Case Address_21 Case ""2306 Long Green Court" City_1 = "Valrico" Case ""3440 Oakcliff Road" City_1 = "Atlanta" Case "7015 East 14th Aveneue" City_1 = "Tampa" Case "1800 Taylor Drive" City_1 = "Gastonia" End Select End Sub "Brian" wrote: I changed the city name to the following. When I go to the combo box and choose my Address nothing happens. I missed something. "Valrico" "Atlanta" "Tampa" "Atlanta" "Gastonia" "B Lynn B" wrote: Enclose each city name in double quotation marks. Otherwise VBA thinks you're refering to a variable. "Brian" wrote: I am having trouble getting a text box to auto fill from a choice made from a combo box. Combo Box Name is Address_21 Text Box Name is City_1 My code is as follows: 'Auto Fill CES Spec Written Office Private Sub ShowCity_1() Dim Address_21 As Variant Dim City_1 As Variant If UserForm1.Address_21 = "2306 Long Green Court" Then UserForm1.City_1 = Valrico If UserForm1.Address_21 = "3440 Oakcliff Road" Then UserForm1.City_1 = Atlanta If UserForm1.Address_21 = "7015 East 14th Aveneue" Then UserForm1.City_1 = Tampa If UserForm1.Address_21 = "3890 Oakcliff Industrial Court" Then UserForm1.City_1 = Atlanta If UserForm1.Address_21 = "1800 Taylor Drive" Then UserForm1.City_1 = Gastonia End Sub What did i do wrong or miss? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Auto fill Cells with text | Excel Worksheet Functions | |||
Auto fill of specific text. | Excel Discussion (Misc queries) | |||
auto fill text | Excel Worksheet Functions | |||
How to auto-fill text based on text in another cell | Excel Discussion (Misc queries) | |||
HOW CAN I AUTO FILL A CELL WITH TEXT FROM ANOTHER WORKSHEET TEXT . | Excel Worksheet Functions |