davidausten
New Member
- Joined
- Sep 1, 2017
- Messages
- 35
- Office Version
- 2016
- Platform
- Windows
I have a request from a user to only show the userform on startup. So I used the following code in my Workbook Open
Here is the full userform code
This seems to have affected the function of the userform as it doesnt perform the necessary functions when the workbook is hidden.
Does anyone have any ideas?
I also get a compile error "Ambiguous name" on this line
VBA Code:
Application.View = False
UserForm1.Show
Here is the full userform code
VBA Code:
Private Sub ComboBox1_Change()
Dim Decide As Integer
Decide = Me.ComboBox1.ListIndex + 2
Sheet1.Range("I" & Decide).Copy
End Sub
Private Sub CommandButton1_Click()
Application.Visible = True
Unload Me
End Sub
Private Sub Label1_Click()
End Sub
Private Sub UserForm_Initialize()
With UserForm1.ComboBox1
.AddItem "Flat Payment"
.AddItem "Duplicate Payment Invoice"
.AddItem "Duplicate Payment Statement"
.AddItem "Tax"
.AddItem "Dispute Tax"
.AddItem "Courtesy Adjustment"
.AddItem "Added Payment to Misdirected"
.AddItem "Transfer Portion of Payment"
.AddItem "Transfer Payment Auto Lockbox"
.AddItem "Transfer Payment Non Postables"
.AddItem "Transfer Payment Related"
.AddItem "Transfer Credit"
.AddItem "Remit Request"
.AddItem "Insufficient Remit"
.AddItem "Transposition Error"
.AddItem "Short Payment"
.AddItem "Over Payment"
.AddItem "Assigned to Staples"
End With
End Sub
Private Sub ComboBox1_Change()
Dim Decide As Integer
Decide = Me.ComboBox1.ListIndex + 2
Sheet1.Range("I" & Decide).Copy
End Sub
This seems to have affected the function of the userform as it doesnt perform the necessary functions when the workbook is hidden.
Does anyone have any ideas?
I also get a compile error "Ambiguous name" on this line
VBA Code:
Private Sub ComboBox1_Change
Last edited: