W
Wanna Learn
Hello
I have a User form created is VBA
I have a combo box and it does not work below are all the codes for this
combobox
Private Sub ComboBox2_Change()
' enter value to unload combo box 2
ActiveDocument.FormFields("Text84").Result = ComboBox2.Value
Private Sub UserForm_Initialize()
ComboBox1.ColumnCount = 1
'Load data into ComboBox
ComboBox1.List() = Array("offer", "renew")
ComboBox2.List() = Array("New", "Expired", "Scheduled to Expire")
ComboBox3.List() = Array("Pricing Specialist", "Senior Pricing Specialist")
End Sub
Private Sub CommandButton1_Click()
With ActiveDocument
.Bookmarks("Text71").Range _
.InsertBefore TextBox1
.Bookmarks("Text72").Range _
.InsertBefore TextBox2
.Bookmarks("Text84").Range _
.InsertBefore ComboBox2
.End With
UserForm1.Hide
When I test the form and I get to the comboBox2 and I select an option I get
the error message
Run-Time error "5941':
The requested member of the collection does not exist.
when I click debug the following is highlighted
Private Sub ComboBox2_Change()
' enter value to unload combo box 2
ActiveDocument.FormFields("Text84").Result = ComboBox2.Value
Please How do I correct this? I have tried to no avail thanks
I have a User form created is VBA
I have a combo box and it does not work below are all the codes for this
combobox
Private Sub ComboBox2_Change()
' enter value to unload combo box 2
ActiveDocument.FormFields("Text84").Result = ComboBox2.Value
Private Sub UserForm_Initialize()
ComboBox1.ColumnCount = 1
'Load data into ComboBox
ComboBox1.List() = Array("offer", "renew")
ComboBox2.List() = Array("New", "Expired", "Scheduled to Expire")
ComboBox3.List() = Array("Pricing Specialist", "Senior Pricing Specialist")
End Sub
Private Sub CommandButton1_Click()
With ActiveDocument
.Bookmarks("Text71").Range _
.InsertBefore TextBox1
.Bookmarks("Text72").Range _
.InsertBefore TextBox2
.Bookmarks("Text84").Range _
.InsertBefore ComboBox2
.End With
UserForm1.Hide
When I test the form and I get to the comboBox2 and I select an option I get
the error message
Run-Time error "5941':
The requested member of the collection does not exist.
when I click debug the following is highlighted
Private Sub ComboBox2_Change()
' enter value to unload combo box 2
ActiveDocument.FormFields("Text84").Result = ComboBox2.Value
Please How do I correct this? I have tried to no avail thanks