Error 800a01a8 [Solved/Closed]

Report
-
 Sofy -
Hello,


I am having this error every time I try to save a file; " Could not complete the operation due to error 800a01a8". Plus this is the code that Im using:, I dont know if you need a copy of my file to see it


Private Sub ComboBox1_Change()

If ComboBox1.Value = "UNIVERSAL BOL" Then

Sheet15.Visible = xlSheetVisible
Sheets("BOL").Select
UserForm6.Hide
Sheet16.Visible = xlSheetVeryHidden
Sheet2.Visible = xlSheetVeryHidden
Sheet3.Visible = xlSheetVeryHidden

ElseIf ComboBox1.Value = "BLANK BOL" Then

Sheet16.Visible = xlSheetVisible
Sheets("BLANK").Select
UserForm6.Hide
Sheet15.Visible = xlSheetVeryHidden
Sheet2.Visible = xlSheetVeryHidden
Sheet3.Visible = xlSheetVeryHidden

End If


End Sub

Private Sub CommandButton1_Click()
Sheet2.Visible = xlSheetVisible
Sheet15.Visible = xlSheetVeryHidden
Sheet16.Visible = xlSheetVeryHidden
Sheet3.Visible = xlSheetVeryHidden
UserForm6.Hide
End Sub

Private Sub CommandButton2_Click()
Sheet3.Visible = xlSheetVisible
Sheet15.Visible = xlSheetVeryHidden
Sheet16.Visible = xlSheetVeryHidden
Sheet2.Visible = xlSheetVeryHidden
UserForm6.Hide
End Sub

Private Sub CommandButton4_Click()
UserForm6.Hide
End Sub

Private Sub Image1_Click()
UserForm7.Show
End Sub

2 replies

Posts
4476
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
August 2, 2020
760
Try instead of hiding the form, unloading it
1
Thank you

A few words of thanks would be greatly appreciated. Add comment

CCM 2787 users have said thank you to us this month

Hi but where in my code do I have tochange from hide to unload?

Here: Sheet15.Visible = xlSheetVisible
Sheets("BOL").Select
UserForm6.Hide

Private Sub CommandButton4_Click()
UserForm6.Hide
End Sub

Because I changed everything and Iam getting an error, please help
Posts
48726
Registration date
Monday February 1, 2010
Status
Moderator
Last seen
September 18, 2020
15,405
Hello Sofy,

Rizvisa1 is a total genius in office software problem, you are in good hands. Please consider yourself lucky!
Posts
4476
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
August 2, 2020
760
you are just too kind Ambucias . Thanks for you complements.

Sofy
I am saying
Instead of
UserForm6.Hide

try
unload UserForm6
Hi so far is working, if I have an issues I will lwt you know, thanks