Hi again. So I ran into an issue with my UserForm again.
When I use it on my work computer I get error 75 a lot.
I attached the code im using for my userform. Simple call tracker.
I dont know what to do anymore. It works fine at home but here it crashes a ton and im still getting the same error message
Any help would be greatly appreciated
Private Sub ComboBox1_Change()
Dim index As Integer
index = ComboBox1.ListIndex
ComboBox2.Clear
Select Case index
Case Is = 0
With ComboBox2
.AddItem "Cash Back"
.AddItem "Benefits"
.AddItem "Application"
.AddItem "eCare Questions"
.AddItem "Pre-Authorized Payments"
.AddItem "Balance Transfers"
.AddItem "Cycle/Balance"
.AddItem "Payment Methods"
.AddItem "Costco Inquiries"
.AddItem "PayPass"
.AddItem "Other"
End With
Case Is = 1
With ComboBox2
.AddItem "Name Change"
.AddItem "Address Change"
.AddItem "DOB Change"
.AddItem "PIN Change"
.AddItem "Language Change"
.AddItem "Add AU"
.AddItem "Remove AU"
.AddItem "CLIP"
.AddItem "CLD"
.AddItem "Lost/Stolen"
.AddItem "Defective Card"
.AddItem "Travel"
.AddItem "Dispute"
.AddItem "Close Account"
.AddItem "Other"
End With
Case Is = 2
With ComboBox2
.AddItem "Registration Issues"
.AddItem "Blocked Account"
.AddItem "Site Maintenance"
.AddItem "Other"
End With
Case Is = 3
With ComboBox2
.AddItem "Activation"
.AddItem "Status"
.AddItem "TCC Questions"
.AddItem "Call-Back"
.AddItem "Delay"
.AddItem "Auth. Code Questions"
.AddItem "Auth. Code Lost"
.AddItem "Refusal"
.AddItem "Other"
End With
End Select
End Sub
Private Sub ComboBox3_Change()
Dim index As Integer
index = ComboBox3.ListIndex
ComboBox4.Clear
Select Case index
Case Is = 0
With ComboBox4
.AddItem "Cash Back"
.AddItem "Benefits"
.AddItem "Application"
.AddItem "eCare Questions"
.AddItem "Pre-Authorized Payments"
.AddItem "Balance Transfers"
.AddItem "Cycle/Balance"
.AddItem "Payment Methods"
.AddItem "Costco Inquiries"
.AddItem "PayPass"
.AddItem "Other"
End With
Case Is = 1
With ComboBox4
.AddItem "Name Change"
.AddItem "Address Change"
.AddItem "DOB Change"
.AddItem "PIN Change"
.AddItem "Language Change"
.AddItem "Add AU"
.AddItem "Remove AU"
.AddItem "CLIP"
.AddItem "CLD"
.AddItem "Lost/Stolen"
.AddItem "Defective Card"
.AddItem "Travel"
.AddItem "Dispute"
.AddItem "Close Account"
.AddItem "Other"
End With
Case Is = 2
With ComboBox4
.AddItem "Registration Issues"
.AddItem "Blocked Account"
.AddItem "Site Maintenance"
.AddItem "Other"
End With
Case Is = 3
With ComboBox4
.AddItem "Activation"
.AddItem "Status"
.AddItem "TCC Questions"
.AddItem "Call-Back"
.AddItem "Delay"
.AddItem "Auth. Code Questions"
.AddItem "Auth. Code Lost"
.AddItem "Refusal"
.AddItem "Other"
End With
End Select
ComboBox4.Text = "Only if applicable"
End Sub
Private Sub ComboBox2_Change()
ComboBox3.Text = "Only if applicable"
ComboBox3.List = Array("GENERAL", "ACCOUNT MAINTENANCE", "WEB", "INACTIVE")
CommandButton2.Visible = True
CommandButton2.BackColor = &H8080FF ' Red
End Sub
Private Sub CommandButton2_Change()
End Sub
Private Sub ComboBox4_Change()
End Sub
Private Sub CommandButton1_Click()
ComboBox1.Text = "Please Select"
UserForm1.CommandButton1.BackColor = &H80FF80 'light green
ComboBox1.List = Array("GENERAL", "ACCOUNT MAINTENANCE", "WEB", "INACTIVE")
End Sub
Private Sub CommandButton2_Click()
Sheet2.Range("B" & Rows.Count).End(xlUp).Offset(1).Value = Now
Sheet2.Range("B" & Rows.Count).NumberFormat = "hh:mm:ss"
'send ComboBox1 Value to cell
' Worksheets("Sheet2").Range("D" & Rows.Count).End(xlUp).Offset(1).Value = ComboBox1.Value
'send ComboBox2 Value to cell
Worksheets("Sheet2").Range("D" & Rows.Count).End(xlUp).Offset(1).Value = ComboBox2.Value
'send ComboBox3 Value to cell
'send ComboBox2 Value to cell
' Worksheets("Sheet2").Range("F" & Rows.Count).End(xlUp).Offset(1).Value = ComboBox3.Value
'send ComboBox3 Value to cell
'--------------
'send ComboBox4 Value to cell
Worksheets("Sheet2").Range("E" & Rows.Count).End(xlUp).Offset(1).Value = ComboBox4.Value
'send ComboBox3 Value to cell
'Close UserForm
Unload UserForm1
End Sub
Private Sub CommandButton3_Click()
'Worksheets("Sheet2").Range("D" & Rows.Count).End(xlUp).Offset(1).Value = "DC"
'Worksheets("Sheet2").Range("E" & Rows.Count).End(xlUp).Offset(1).Value = "DC"
'Worksheets("Sheet2").Range("F" & Rows.Count).End(xlUp).Offset(1).Value = "DC"
'Worksheets("Sheet2").Range("G" & Rows.Count).End(xlUp).Offset(1).Value = "DC"
'Worksheets("Sheet2").Range("B" & Rows.Count).End(xlUp).Offset(1).Value = "DC"
Unload UserForm1
End Sub
Private Sub Image1_Click()
End Sub
Private Sub Label3_Click()
End Sub
Sub UserForm_Initialize()
End Sub
Private Sub TextBox1_Change()
Worksheets("Sheet2").Range("F" & Rows.Count).End(xlUp).Offset(1).Value = TextBox1.Value
End Sub