Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
userform delete sheet
When using my userform, I want it to delete a page from the book in th
end. I have the code for deleting it, but it pops up that dialogue bo asking me to delete it again. How do I write into the macro to confir the deletion? Private Sub CommandButton1_Click() MsgBox "Your Submission is being recorded and printed" MsgBox "Please make sure you place a copy in the Representativ Perfect Folder" Dim ctrl As Control Dim chkbx As MSForms.CheckBox For Each ctrl In Me.Controls If TypeOf ctrl Is MSForms.CheckBox Then Set chkbx = ctrl If chkbx Then Worksheets(chkbx.Caption).PrintOut End If End If Next SHEETS(\"T2S\").SELECT ACTIVEWINDOW.SELECTEDSHEETS.DELETE newFolder$ = "C:\Documents and Settings\Administrator\Desktop\" TextBox1.Text MkDir newFolder$ NewFile$ = newFolder$ & "\" & TextBox2.Text & ".xls" ThisWorkbook.SaveAs NewFile$ Unload Me End Su -- Message posted from http://www.ExcelForum.com |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
userform delete sheet
application.DisplayAlerts = False
SHEETS(\"T2S\").SELECT ACTIVEWINDOW.SELECTEDSHEETS.DELETE Application.DisplayAlerts = True -- Regards, Tom Ogilvy "dok112 " wrote in message ... When using my userform, I want it to delete a page from the book in the end. I have the code for deleting it, but it pops up that dialogue box asking me to delete it again. How do I write into the macro to confirm the deletion? Private Sub CommandButton1_Click() MsgBox "Your Submission is being recorded and printed" MsgBox "Please make sure you place a copy in the Representative Perfect Folder" Dim ctrl As Control Dim chkbx As MSForms.CheckBox For Each ctrl In Me.Controls If TypeOf ctrl Is MSForms.CheckBox Then Set chkbx = ctrl If chkbx Then Worksheets(chkbx.Caption).PrintOut End If End If Next SHEETS(\"T2S\").SELECT ACTIVEWINDOW.SELECTEDSHEETS.DELETE newFolder$ = "C:\Documents and Settings\Administrator\Desktop\" & TextBox1.Text MkDir newFolder$ NewFile$ = newFolder$ & "\" & TextBox2.Text & ".xls" ThisWorkbook.SaveAs NewFile$ Unload Me End Sub --- Message posted from http://www.ExcelForum.com/ |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
userform delete sheet
Ok, can I use the same concept to delete a sheet if it is unchecked.
Basically, the form is going to print out all the sheets that ar checked, and I need it to delete the unchecked sheets before it save the file to one of my drives. Dim ctrl As Control Dim chkbx As MSForms.CheckBox For Each ctrl In Me.Controls If TypeOf ctrl Is MSForms.CheckBox Then Set chkbx = ctrl If chkbx Then Worksheets(chkbx.Caption).PrintOut End If End If Nex -- Message posted from http://www.ExcelForum.com |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Centering A Userform On The Sheet | New Users to Excel | |||
userform freezes sheet | Excel Discussion (Misc queries) | |||
UserForm and combo box to another sheet | Excel Discussion (Misc queries) | |||
Selecting sheet after Userform | Excel Programming | |||
Delete userform/module using VB | Excel Programming |