Hello everyone!
I need a macro that unchecks a Checkbox1 when a A1 contains "-"
I guessing something like this but it doesn't work:
Sub Example1() If Range("A1").Value = "-" Then Me.CheckBox1.Value = False Else Me.CheckBox1.Value = True End If End Sub
Last edited by barqujo; 08-07-2013 at 05:15 PM.
Sub Example1() If Range("A1").Value = "-" Then Me.CheckBox1.Checked = False Else Me.CheckBox1.Checked = True End If End Sub
Thanks,
Solus
Please remember the following:
1. Use [code] code tags [/code]. It keeps posts clean, easy-to-read, and maintains VBA formatting.Highlight the code in your post and press the # button in the toolbar.2. Show appreciation to those who have helped you by clickingbelow their posts.
3. If you are happy with a solution to your problem, mark the thread as [SOLVED] using the tools at the top.
"Slow is smooth, smooth is fast."
Thanks XeRo Solus!
However it tells me Invalid use of Me keyword
What is the correct syntax?
Use me.checkbox1 if the macro is saved in a UserForm module. Where did you save the code?
Are you using userform controls or ActiveX controls?
I saved it in a new module like this
Private Sub Example1() If Range("A1").Value = "-" Then Me.CheckBox1.Checked = False Else Me.CheckBox1.Checked = True End If End Sub
I want to have the macro there to be able to launch it when other conditions are met
If you're going to save it in a module and run it from somewhere else then change me to the name of your userform...
like userform1.checkbox1
However, if you're going to call this sub from somewhere else you'll need to remove private from the name of the sub.
Where is the checkbox located?
If posting code please use code tags, see here.
The checkbox is in the spreadsheet
The syntax you have is for a userform. If your checkbox is on your spreadsheet its either a standard (form) control or an activeX control and will have to be coded differently.
Would you like to upload an example file to see if you we can get you where you want to go?
XeroSolus
Me can also refer to a worksheet.
So if there was an ActiveX checkbox, CheckBox1, on a worksheet this would be valid in the worksheet's module
MsgBox Me.CheckBox1.Value
The OP saved the code above in a new module. I was going off this assuming the code would be called from somewhere else.
Maybe I'm mistaken but I thought me.checkbox would only be valid if they code was saved in the worksheet module.
I think the OP needs to clarify things.
As well as the questions you've asked, how do they want the code to actually run?
Ok, I will clarify things!
The CheckBox is an ActiveX Control, If I uncheck it manually, it hides row 8 with the following code:
Now, appart from that, there will be another cell (a dropdownbox) with several values. One of these values is "-" . When this value is selected in this dropdown box, I want Checkbox1 to automatically uncheck so that row 8 will hide.Private Sub CheckBox1_Click() If Me.CheckBox1.Value = True Then ActiveSheet.Rows("8:8").Hidden = False Else ActiveSheet.Rows("8:8").Hidden = True End If End Sub
My question is, how do I refer to the checkbox in the conditional?? Me.CheckBox.Value is not working, and also in which module should it be?
Try saving in the sheet module of the sheet your checkbox is on and try again.
Ok I did it!! I pasted the conditional in the sheet code as you told me
Worked with If Range Me.CheckBox3.Value not .Checked though
If Range("L10").Value = "-" Then Me.CheckBox1.Value = False Else Me.CheckBox1.Value = True End If
Thanks a lot!! Wouldn't have able to do it without your help
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks