check box question

  • Thread starter Thread starter mac
  • Start date Start date
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.
 
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
 
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
Click to expand...
 
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
 
Back
Top