Error 800a01a8

Solved/Closed
Sofy - Jun 21, 2010 at 08:46 AM
 Sofy - Jun 21, 2010 at 09:18 PM
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 responses

rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 766
Jun 21, 2010 at 03:00 PM
Try instead of hiding the form, unloading it
1
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
0
Ambucias Posts 47356 Registration date Monday February 1, 2010 Status Moderator Last seen February 15, 2023 11,164
Jun 21, 2010 at 04:40 PM
Hello Sofy,

Rizvisa1 is a total genius in office software problem, you are in good hands. Please consider yourself lucky!
0
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 766
Jun 21, 2010 at 06:23 PM
you are just too kind Ambucias . Thanks for you complements.

Sofy
I am saying
Instead of
UserForm6.Hide

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