If-Clause in VBA to look at checkbox if its checked or not

[zorc]

Hello!

let's say i have "check box 20" and i want to make an IF-clause to check, if this same box is checked or unchecked.

This makes it enabled i have figured out myself yay!

ActiveSheet.Shapes("Check Box 20").Select
With Selection
.Value = xlOn

So Is it possible to make IF-clause to "sniff" that box if its checked or not?

Thanks a million!

 

[phantom1975]

Glad to see it worked for you. I'll bet you stick to the Control Toolbox now.

 

[zorc]

:D

Yep, wont use forms checkboxes anymore heh, wonder why i ever used them anyway

 

[dtdionne]

Hey all, I know this thread is ancient but I felt it better to revive an old thread then then go postal. Whatever genious at Micrococks that thought to himself, "Sure Emnthung, lets go ahead and approve the usage of 2 TOTALLY different checkbox methods and while we're at it lets not document anything about them and do all we can to remove search references concerning them. And Tynysac" "Yes Sir" "Make sure to remove any trace of compatiblity between them" "Will do sir" "Great...tossed salads for everyone" clearly has mommy issues.

I still have blood running from the corners of my mouth from biting my tounge to keep that as clean as i could...bottom line is that I have wasted a great deal of time for NO REASON.

The forms checkbox is better because it does not fk up the look on the spread sheet, I have the control toolbox checkbox set to transparent and it still distortes the lines.

Could someone go over the rational for such a decision s this one, to include two types of checkboxes?

 

[noppojp]

Conditionally format based on checking a check box

i've read this post. i have an =EMBED("Forms.CheckBox.1","")
that i'd like to see if it's got a check in it, and if it does, i'd like to white out a bunch of text on a very primative form.

If the check exists, conditionally format
If it doesn't exist, don't do anything.

Basically, i think i wanna put code in cell Z50000 to check the control, but am clueless as to how to do it. And do the same thing with other controls as well.

Any help would be appreciated.

Chris in Tokyo
(somebody stop the N. Korea leaders.... they're gonna kill us all).

 

[jenniesc]

Hello

I know this post is from a long time ago but it is similar to my problem adn I was hopeing you migth be able to help.

I am trying to use check boxes and write the macros for them.
I have a list of items in a column on one sheet and I want to insert check boxes into the column next to the list.
I then want to write a code which says: If the check box in column B is checked (true) then the word in column A is inserted into a different sheet.

I think it must be straight forward but am struggling!

 

[ozzyto]

I did this:

Private Sub OpenQA_Click()
If ActiveSheet.OpenQA.Value = True Then
Shell "WINWORD.exe G:\Shared\Oscar Salinas\Metales\New Folder\QA.doc", vbMaximizedFocus
Else
MsgBox "Unchecked. To continue, please check"
End If
End Sub

OpenQA is the name of my checkbox; I'am trying to open a file when the checkbox is checked, I think could be with an if, and I could do that with this command but when the file is attempting to open, an error message is shown with the message that "word experience an error trying to open the file: suggestion: check file permission, free memorie", so what do you think is the problem with this

 

[ibadk]

I have a similar problem, however I can't seem to resolve it using the suggestions posted above. Right now my code is as follows:

Private Sub longweekend1_click()

   If longweekend.Value = True Then
      MsgBox "Remember to Set date 3 days back"
   Else
      Worksheets("main").Activate
   End If
End Sub

When I try running this it stops at the if statement and give me error 424: Object required. Any help would be appreciated. Thanks!

 

[shg]

The function signature suggests that it should be

   If longweekend[COLOR=red][B]1[/B][/COLOR].Value = True Then

Using Option Explicit eliminates that kind of problem.

 

[MrExcel]

Andrew's code above used to work fine in Excel 2003. I was working on an answer for a friend and it would not work tonight.

Starting in Excel 2007, it would have to be changed to:
If ActiveSheet.Shapes("Check Box 20").ControlFormat.Value = xlOn Then

Bill

 

[ronm0817]

Re: :D

So can the same thing be done for Ovals