check box question
Helllo.
I have two problems with my check boxes. I have created 3 checkboxes on the same worksheet. when I checkbox1 click I want to delete certain worksheets. When I checkbox2 cliick I want to delete other sheets. I have set up the macro, but when I click the box I get the message "data may exist in the sheets selected for deletion. To permanently delete the data press delete. Is there a way that I do not get the message and it just deletes the sheets? This is a part of my code: Private Sub CheckBox2_Click() Sheets("Education Analysis").Select ActiveWindow.SelectedSheets.Delete Sheets("CostOver ").Select ActiveWindow.SelectedSheets.Delete Sheets("Reclaim").Select ActiveWindow.SelectedSheets.Delete My other problem is that I can check all three checkboxes at the same time. If there any way that I can set it up to only let me check one box and prevent from checking the other boxes. Thanks in advance for any help givien. -- thank you mac |
check box question
Private Sub CheckBox2_Click()
application.displayalerts = false Sheets("Education Analysis").Delete Sheets("CostOver ").Delete Sheets("Reclaim").Delete application.displayalerts = true End Sub If those sheets may not be there, you may want: Private Sub CheckBox2_Click() on error resume next application.displayalerts = false Sheets("Education Analysis").Delete Sheets("CostOver ").Delete Sheets("Reclaim").Delete application.displayalerts = true on error goto 0 End Sub mac wrote: Helllo. I have two problems with my check boxes. I have created 3 checkboxes on the same worksheet. when I checkbox1 click I want to delete certain worksheets. When I checkbox2 cliick I want to delete other sheets. I have set up the macro, but when I click the box I get the message "data may exist in the sheets selected for deletion. To permanently delete the data press delete. Is there a way that I do not get the message and it just deletes the sheets? This is a part of my code: Private Sub CheckBox2_Click() Sheets("Education Analysis").Select ActiveWindow.SelectedSheets.Delete Sheets("CostOver ").Select ActiveWindow.SelectedSheets.Delete Sheets("Reclaim").Select ActiveWindow.SelectedSheets.Delete My other problem is that I can check all three checkboxes at the same time. If there any way that I can set it up to only let me check one box and prevent from checking the other boxes. Thanks in advance for any help givien. -- thank you mac -- Dave Peterson |
check box question
DAVE,
THANK YOU!!!!!! -- thank you mac "Dave Peterson" wrote: Private Sub CheckBox2_Click() application.displayalerts = false Sheets("Education Analysis").Delete Sheets("CostOver ").Delete Sheets("Reclaim").Delete application.displayalerts = true End Sub If those sheets may not be there, you may want: Private Sub CheckBox2_Click() on error resume next application.displayalerts = false Sheets("Education Analysis").Delete Sheets("CostOver ").Delete Sheets("Reclaim").Delete application.displayalerts = true on error goto 0 End Sub mac wrote: Helllo. I have two problems with my check boxes. I have created 3 checkboxes on the same worksheet. when I checkbox1 click I want to delete certain worksheets. When I checkbox2 cliick I want to delete other sheets. I have set up the macro, but when I click the box I get the message "data may exist in the sheets selected for deletion. To permanently delete the data press delete. Is there a way that I do not get the message and it just deletes the sheets? This is a part of my code: Private Sub CheckBox2_Click() Sheets("Education Analysis").Select ActiveWindow.SelectedSheets.Delete Sheets("CostOver ").Select ActiveWindow.SelectedSheets.Delete Sheets("Reclaim").Select ActiveWindow.SelectedSheets.Delete My other problem is that I can check all three checkboxes at the same time. If there any way that I can set it up to only let me check one box and prevent from checking the other boxes. Thanks in advance for any help givien. -- thank you mac -- Dave Peterson |
check box question
hi
1. try this at the start of your code. application.displayalerts = false then at the end of your code application.displayalerts = true 2. you might want to consider options buttons and set the group property as a group. by default, all options buttons on the sheets are groups as sheetname. but.. set up each check box with an if/then/else statement like below. if you want the one you checked to be true, then programicly uncheck the other two. Private Sub CheckBox1_Click() If CheckBox1 = True Then CheckBox2 = False CheckBox3 = false End If do other stuff end if end sub Private Sub CheckBox2_Click() If CheckBox2 = True Then CheckBox1 = False CheckBox3 = false End If do other stuff end if end sub regards FSt1 "mac" wrote: Helllo. I have two problems with my check boxes. I have created 3 checkboxes on the same worksheet. when I checkbox1 click I want to delete certain worksheets. When I checkbox2 cliick I want to delete other sheets. I have set up the macro, but when I click the box I get the message "data may exist in the sheets selected for deletion. To permanently delete the data press delete. Is there a way that I do not get the message and it just deletes the sheets? This is a part of my code: Private Sub CheckBox2_Click() Sheets("Education Analysis").Select ActiveWindow.SelectedSheets.Delete Sheets("CostOver ").Select ActiveWindow.SelectedSheets.Delete Sheets("Reclaim").Select ActiveWindow.SelectedSheets.Delete My other problem is that I can check all three checkboxes at the same time. If there any way that I can set it up to only let me check one box and prevent from checking the other boxes. Thanks in advance for any help givien. -- thank you mac |
All times are GMT +1. The time now is 03:34 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com