check box question

M

mac

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.
 
D

Dave Peterson

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
 
M

mac

DAVE,

THANK YOU!!!!!!
--
thank you mac


Dave Peterson said:
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
 
F

FSt1

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top