Error 75 and a lot of crashing

[Scribz]

Hey guys this is my first post here. My questions may be very newbish at first cause Im just getting started at this. Thanks in advance for any help!

So I'm made a UserForm1 appear when Button1 on Sheet1 is clicked.
Buttons and ComboBoxes in the Userform send data to a table in Sheet2.

It runs smooth for periods of time and now and then when I'm not receiving error message 75, Excel is crashing.

How do I fix this issue?

 

[RickXL]

Hi and welcome to the MrExcel Message Board.

Error 75 is something to do with file names of path names.
Path/File access error (Error 75)

Check that each one is correct and that any opening or saving is pointing to the correct place and is not protected or, possibly, being used by another, in some way.

 

[Scribz]

Thanks for your timely response.

I had a grammar mistake in the path I was pointing to.

Problem fixed!

Thanks a ton!!

 

[RickXL]

No problem, I am pleased you got it working.

 

[Scribz]

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