Userform

[SantanaKRE8s]

Hello, I need some help with this userform. I have TextBox 1 to enter a date. ComboBox1 to select one of the two options listed. and Textbox2 will give a new date depending on what option I select in the ComboBox
FedEx Overnight is equal to 10 days
UPS Ground is equal to 14 days
So I enter a date in TextBox1 and select FedEx Overnight, 10 days will be added to the date in TextBox 1 and give the new date in TextBox2. If I select UPS Ground 14 days will be added to the date in TextBox1 and the new date will show in TextBox2.

 

[Anfinsen]

I am not sure what the issue is. Do you have some code that isn't doing what its supposed to?
The way I would approach this is;
On the userform, only have the Dock Date appear, once a valid date is entered, populate the Shipping Method, once the shipping method is detected, have a MSGBOX display the desired result.

 

[SantanaKRE8s]

I dont have a code, I seen something similar, its with an If Statement, something ;ike if comobobox is UPS ground it adds 14 days to the date in textbox1 and the new date shows in textbox2, I just don know how to write it.

 

[Anfinsen]

I dont have a code, I seen something similar, its with an If Statement, something ;ike if comobobox is UPS ground it adds 14 days to the date in textbox1 and the new date shows in textbox2, I just don know how to write it.

Hey there,
if you have a userform, there is code associated with it. Post what you have and see if the group here can help!

 

[Bosquedeguate]

something like this?

Code to Initialize form and ComboBox selection.

I set up a two-column combobox: Col 1=Ship Method; Col 2=Delivery Days
then bound the ComboBox to column 2.

Private Sub ComboBox1_Click()
  With ComboBox1
    TextBox2 = DateValue(TextBox1) + Val(.Value)
  End With
End Sub

Private Sub UserForm_Initialize()
  ComboBox1.AddItem "Shipper"
  ComboBox1.AddItem "FEDEX Overnight"
  ComboBox1.AddItem "UPS Ground"
  With ComboBox1
    .List(0, 1) = "Del Days"
    .List(1, 1) = 10
    .List(2, 1) = 14
  End With
End Sub

 

[SantanaKRE8s]

something like this?
View attachment 97425

Code to Initialize form and ComboBox selection.

I set up a two-column combobox: Col 1=Ship Method; Col 2=Delivery Days
then bound the ComboBox to column 2.

Private Sub ComboBox1_Click()
  With ComboBox1
    TextBox2 = DateValue(TextBox1) + Val(.Value)
  End With
End Sub

Private Sub UserForm_Initialize()
  ComboBox1.AddItem "Shipper"
  ComboBox1.AddItem "FEDEX Overnight"
  ComboBox1.AddItem "UPS Ground"
  With ComboBox1
    .List(0, 1) = "Del Days"
    .List(1, 1) = 10
    .List(2, 1) = 14
  End With
End Sub

Thank you very much looks really good,. Just getting back to the office today. thats exactly what I was looking for.

Forrest Kendall
2 Tim 2:2

 

[Bosquedeguate]

Thank you very much looks really good,. Just getting back to the office today. thats exactly what I was looking for.

Forrest Kendall
2 Tim 2:2

Glad I could help.
Review the code so you can make changes yourself in the future.