| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Userform Can't seem to work right
Hello,
have userform with two Option buttons and two command buttons one for OK and Cancel. Here's the code for the OK button: Private Sub CommandButton1_Click() ' Dim MyButtons As Object If OptionButton1.Value = True Then Sheets("ZSDQT002LATEST").PrintPreview UserForm1.Hide ElseIf OptionButton2.Value = True Then Application.GetSaveAsFilename End If End Sub When I select the Print Preview option and click OK it goes to Print Preview, but the Userform doesn't close and can't close it and excel gets stuck. So I have to End program. Does anyone have idea why this is happening. Thanks, Juan |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Userform Can't seem to work right
Hello Chris,
its still doing the same. I do go to the Preview, but the userform still shows and it get stuck. I can't do anything. Can't evern close it manually or can't even use excel. So I have to terminate. Not sure why is doing it. When I select the other option to save, I do get it to work fine. Doesn't get stuck. So not sure why when I want to preview and stay here it get stuck. Any other advise? Thanks, juan -----Original Message----- try this: Private Sub CommandButton1_Click() If OptionButton1.Value = True Then Sheets("ZSDQT002LATEST").PrintPreview Unload Me exit sub ElseIf OptionButton2.Value = True Then Application.GetSaveAsFilename End If End Sub ----- juan wrote: ----- Hello, have userform with two Option buttons and two command buttons one for OK and Cancel. Here's the code for the OK button: Private Sub CommandButton1_Click() ' Dim MyButtons As Object If OptionButton1.Value = True Then Sheets("ZSDQT002LATEST").PrintPreview UserForm1.Hide ElseIf OptionButton2.Value = True Then Application.GetSaveAsFilename End If End Sub When I select the Print Preview option and click OK it goes to Print Preview, but the Userform doesn't close and can't close it and excel gets stuck. So I have to End program. Does anyone have idea why this is happening. Thanks, Juan . |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Userform Can't seem to work right
Private Sub CommandButton1_Click()
Dim fName as Variant ' Dim MyButtons As Object userform1.hide If OptionButton1.Value = True Then Sheets("ZSDQT002LATEST").PrintPreview ElseIf OptionButton2.Value = True Then fname =Application.GetSaveAsFilename if fname < false then ThisWorkbook.SaveAs fName end if End If End Sub You code stops on the printpreview command until you close printpreview, so your code never gets to the Userform1.Hide command until print preview is closed. Changing the order as shown should solve the problem. Also, doing Application.GetSaveAsFilename does not save the file. It just returns the name selected by the user. You then have to execute SaveAs with the returned value to actually save the file under that name. -- Regards, Tom Ogilvy "Juan" wrote in message ... Hello Chris, its still doing the same. I do go to the Preview, but the userform still shows and it get stuck. I can't do anything. Can't evern close it manually or can't even use excel. So I have to terminate. Not sure why is doing it. When I select the other option to save, I do get it to work fine. Doesn't get stuck. So not sure why when I want to preview and stay here it get stuck. Any other advise? Thanks, juan -----Original Message----- try this: Private Sub CommandButton1_Click() If OptionButton1.Value = True Then Sheets("ZSDQT002LATEST").PrintPreview Unload Me exit sub ElseIf OptionButton2.Value = True Then Application.GetSaveAsFilename End If End Sub ----- juan wrote: ----- Hello, have userform with two Option buttons and two command buttons one for OK and Cancel. Here's the code for the OK button: Private Sub CommandButton1_Click() ' Dim MyButtons As Object If OptionButton1.Value = True Then Sheets("ZSDQT002LATEST").PrintPreview UserForm1.Hide ElseIf OptionButton2.Value = True Then Application.GetSaveAsFilename End If End Sub When I select the Print Preview option and click OK it goes to Print Preview, but the Userform doesn't close and can't close it and excel gets stuck. So I have to End program. Does anyone have idea why this is happening. Thanks, Juan . |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Userform Can't seem to work right
Hello Tom
thanks alot this works. Appreciate the help. Juan -----Original Message----- Private Sub CommandButton1_Click() Dim fName as Variant ' Dim MyButtons As Object userform1.hide If OptionButton1.Value = True Then Sheets("ZSDQT002LATEST").PrintPreview ElseIf OptionButton2.Value = True Then fname =Application.GetSaveAsFilename if fname < false then ThisWorkbook.SaveAs fName end if End If End Sub You code stops on the printpreview command until you close printpreview, so your code never gets to the Userform1.Hide command until print preview is closed. Changing the order as shown should solve the problem. Also, doing Application.GetSaveAsFilename does not save the file. It just returns the name selected by the user. You then have to execute SaveAs with the returned value to actually save the file under that name. -- Regards, Tom Ogilvy "Juan" wrote in message ... Hello Chris, its still doing the same. I do go to the Preview, but the userform still shows and it get stuck. I can't do anything. Can't evern close it manually or can't even use excel. So I have to terminate. Not sure why is doing it. When I select the other option to save, I do get it to work fine. Doesn't get stuck. So not sure why when I want to preview and stay here it get stuck. Any other advise? Thanks, juan -----Original Message----- try this: Private Sub CommandButton1_Click() If OptionButton1.Value = True Then Sheets("ZSDQT002LATEST").PrintPreview Unload Me exit sub ElseIf OptionButton2.Value = True Then Application.GetSaveAsFilename End If End Sub ----- juan wrote: ----- Hello, have userform with two Option buttons and two command buttons one for OK and Cancel. Here's the code for the OK button: Private Sub CommandButton1_Click() ' Dim MyButtons As Object If OptionButton1.Value = True Then Sheets("ZSDQT002LATEST").PrintPreview UserForm1.Hide ElseIf OptionButton2.Value = True Then Application.GetSaveAsFilename End If End Sub When I select the Print Preview option and click OK it goes to Print Preview, but the Userform doesn't close and can't close it and excel gets stuck. So I have to End program. Does anyone have idea why this is happening. Thanks, Juan . . |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| How to make userform work publically with hidden sheets? | Excel Discussion (Misc queries) | |||
| How to make userform work publically with hidden sheets? | Excel Worksheet Functions | |||
| How to have a userform displayed and be able to work in a different spreadsheet | Excel Programming | |||
| Label Caption Just Wont Work on UserForm | Excel Programming | |||
| Userforms and autofilters - Autofilters don't seen to work with userform | Excel Programming | |||
Linear Mode
