CheckBox as a condition
1
I am trying to use ActiveX check box to filter which lines of the code will be executed, but it thows "400" error, also from some reason I can not uncheck these checkboxes, can someone help please?
.
.
.
If CheckBox1.Value = True Then
Columns("A:F").AutoFilter Field:=1, Criteria1:=">11999", Operator:=xlAnd, Criteria2:="<13000"
ActiveSheet.PrintOut
End If
If CheckBox2.Value = True Then
Columns("A:F").AutoFilter Field:=1, Criteria1:=">12999", Operator:=xlAnd, Criteria2:="<14000"
ActiveSheet.PrintOut
End If
.
.
.
EDIT (whole code - there are going to be way more same conditions with just different checkbox and different range):
Sub TISK_IV_OC()
Sheets("TISK IV OC").Activate
Dim ws As Worksheet
Set ws = ActiveSheet
If ws.Range("A1") = "" Then
MsgBox ("Neni co tisknout › nejdrive preved data!")
Exit Sub
End If
Sheets("TISK IV OC").PageSetup.CenterFooter = "&""Calibri,Bold""&18 " & "IV OC: " & Format(Date + 1, "dd.mm.yyyy")
Application.PrintCommunication = False
With Sheets("TISK IV OC").PageSetup
.FitToPagesWide = 1
.FitToPagesTall = False
End With
Application.PrintCommunication = True
Dim x As Integer
For x = 1 To 2
Sheets("TISK IV OC").PageSetup.CenterHeader = "&""Calibri,Bold""&18 " & x & " . KOLO"
If ws.CheckBox1.Value = True Then
Debug.Print ws.CheckBox1.Value
ws.Columns("A:F").AutoFilter Field:=1, Criteria1:=">11999", Operator:=xlAnd, Criteria2:="<13000"
ws.PrintOut
End If
If ws.CheckBox2.Value = True Then
Debug.Print ws.CheckBox1.Value
ws.Columns("A:F").AutoFilter Field:=1, Criteria1:=">12999", Operator:=xlAnd, Criteria2:="<14000"
ws.PrintOut
End If
Next x
ActiveSheet.ShowAllData
ws.Range("A1").Select
End Sub
Private Sub CheckBox1_Click()
End Sub
excel vba
asked Nov 15 '18 at 14:22
Vratislav VašinaVratislav Vašina
124
add a comment |
1
I am trying to use ActiveX check box to filter which lines of the code will be executed, but it thows "400" error, also from some reason I can not uncheck these checkboxes, can someone help please?
.
.
.
If CheckBox1.Value = True Then
Columns("A:F").AutoFilter Field:=1, Criteria1:=">11999", Operator:=xlAnd, Criteria2:="<13000"
ActiveSheet.PrintOut
End If
If CheckBox2.Value = True Then
Columns("A:F").AutoFilter Field:=1, Criteria1:=">12999", Operator:=xlAnd, Criteria2:="<14000"
ActiveSheet.PrintOut
End If
.
.
.
EDIT (whole code - there are going to be way more same conditions with just different checkbox and different range):
Sub TISK_IV_OC()
Sheets("TISK IV OC").Activate
Dim ws As Worksheet
Set ws = ActiveSheet
If ws.Range("A1") = "" Then
MsgBox ("Neni co tisknout › nejdrive preved data!")
Exit Sub
End If
Sheets("TISK IV OC").PageSetup.CenterFooter = "&""Calibri,Bold""&18 " & "IV OC: " & Format(Date + 1, "dd.mm.yyyy")
Application.PrintCommunication = False
With Sheets("TISK IV OC").PageSetup
.FitToPagesWide = 1
.FitToPagesTall = False
End With
Application.PrintCommunication = True
Dim x As Integer
For x = 1 To 2
Sheets("TISK IV OC").PageSetup.CenterHeader = "&""Calibri,Bold""&18 " & x & " . KOLO"
If ws.CheckBox1.Value = True Then
Debug.Print ws.CheckBox1.Value
ws.Columns("A:F").AutoFilter Field:=1, Criteria1:=">11999", Operator:=xlAnd, Criteria2:="<13000"
ws.PrintOut
End If
If ws.CheckBox2.Value = True Then
Debug.Print ws.CheckBox1.Value
ws.Columns("A:F").AutoFilter Field:=1, Criteria1:=">12999", Operator:=xlAnd, Criteria2:="<14000"
ws.PrintOut
End If
Next x
ActiveSheet.ShowAllData
ws.Range("A1").Select
End Sub
Private Sub CheckBox1_Click()
End Sub
excel vba
asked Nov 15 '18 at 14:22
Vratislav VašinaVratislav Vašina
124
UsingColumns("A:F")...without specifying the worksheet can lead to problems. use 'ws.Columns("A:F")...' Always specify the worksheet explicitly. Otherwise we assume you're a noob and confused. Your code won't work when you start changing sheets.
– D_Bester
Nov 15 '18 at 14:35
Regarding the unchecking issue, Active X controls are generally considered buggier than Form controls so the latter might be preferred
– Kubie
Nov 15 '18 at 15:06
D_Bester: I have started with VBA recently, so I guess, I can be considerd as noob. But I am learning. However, thank you for you advise. Kubie: Thank you, I will remember this
– Vratislav Vašina
Nov 15 '18 at 15:34
add a comment |
1
1
1
I am trying to use ActiveX check box to filter which lines of the code will be executed, but it thows "400" error, also from some reason I can not uncheck these checkboxes, can someone help please?
.
.
.
If CheckBox1.Value = True Then
Columns("A:F").AutoFilter Field:=1, Criteria1:=">11999", Operator:=xlAnd, Criteria2:="<13000"
ActiveSheet.PrintOut
End If
If CheckBox2.Value = True Then
Columns("A:F").AutoFilter Field:=1, Criteria1:=">12999", Operator:=xlAnd, Criteria2:="<14000"
ActiveSheet.PrintOut
End If
.
.
.
EDIT (whole code - there are going to be way more same conditions with just different checkbox and different range):
Sub TISK_IV_OC()
Sheets("TISK IV OC").Activate
Dim ws As Worksheet
Set ws = ActiveSheet
If ws.Range("A1") = "" Then
MsgBox ("Neni co tisknout › nejdrive preved data!")
Exit Sub
End If
Sheets("TISK IV OC").PageSetup.CenterFooter = "&""Calibri,Bold""&18 " & "IV OC: " & Format(Date + 1, "dd.mm.yyyy")
Application.PrintCommunication = False
With Sheets("TISK IV OC").PageSetup
.FitToPagesWide = 1
.FitToPagesTall = False
End With
Application.PrintCommunication = True
Dim x As Integer
For x = 1 To 2
Sheets("TISK IV OC").PageSetup.CenterHeader = "&""Calibri,Bold""&18 " & x & " . KOLO"
If ws.CheckBox1.Value = True Then
Debug.Print ws.CheckBox1.Value
ws.Columns("A:F").AutoFilter Field:=1, Criteria1:=">11999", Operator:=xlAnd, Criteria2:="<13000"
ws.PrintOut
End If
If ws.CheckBox2.Value = True Then
Debug.Print ws.CheckBox1.Value
ws.Columns("A:F").AutoFilter Field:=1, Criteria1:=">12999", Operator:=xlAnd, Criteria2:="<14000"
ws.PrintOut
End If
Next x
ActiveSheet.ShowAllData
ws.Range("A1").Select
End Sub
Private Sub CheckBox1_Click()
End Sub
excel vba
asked Nov 15 '18 at 14:22
Vratislav VašinaVratislav Vašina
124
I am trying to use ActiveX check box to filter which lines of the code will be executed, but it thows "400" error, also from some reason I can not uncheck these checkboxes, can someone help please?
.
.
.
If CheckBox1.Value = True Then
Columns("A:F").AutoFilter Field:=1, Criteria1:=">11999", Operator:=xlAnd, Criteria2:="<13000"
ActiveSheet.PrintOut
End If
If CheckBox2.Value = True Then
Columns("A:F").AutoFilter Field:=1, Criteria1:=">12999", Operator:=xlAnd, Criteria2:="<14000"
ActiveSheet.PrintOut
End If
.
.
.
EDIT (whole code - there are going to be way more same conditions with just different checkbox and different range):
Sub TISK_IV_OC()
Sheets("TISK IV OC").Activate
Dim ws As Worksheet
Set ws = ActiveSheet
If ws.Range("A1") = "" Then
MsgBox ("Neni co tisknout › nejdrive preved data!")
Exit Sub
End If
Sheets("TISK IV OC").PageSetup.CenterFooter = "&""Calibri,Bold""&18 " & "IV OC: " & Format(Date + 1, "dd.mm.yyyy")
Application.PrintCommunication = False
With Sheets("TISK IV OC").PageSetup
.FitToPagesWide = 1
.FitToPagesTall = False
End With
Application.PrintCommunication = True
Dim x As Integer
For x = 1 To 2
Sheets("TISK IV OC").PageSetup.CenterHeader = "&""Calibri,Bold""&18 " & x & " . KOLO"
If ws.CheckBox1.Value = True Then
Debug.Print ws.CheckBox1.Value
ws.Columns("A:F").AutoFilter Field:=1, Criteria1:=">11999", Operator:=xlAnd, Criteria2:="<13000"
ws.PrintOut
End If
If ws.CheckBox2.Value = True Then
Debug.Print ws.CheckBox1.Value
ws.Columns("A:F").AutoFilter Field:=1, Criteria1:=">12999", Operator:=xlAnd, Criteria2:="<14000"
ws.PrintOut
End If
Next x
ActiveSheet.ShowAllData
ws.Range("A1").Select
End Sub
Private Sub CheckBox1_Click()
End Sub
excel vba
excel vba
asked Nov 15 '18 at 14:22
Vratislav VašinaVratislav Vašina
124
asked Nov 15 '18 at 14:22
Vratislav VašinaVratislav Vašina
124
edited Nov 15 '18 at 16:41
Vratislav Vašina
asked Nov 15 '18 at 14:22
Vratislav VašinaVratislav Vašina
124
asked Nov 15 '18 at 14:22
Vratislav VašinaVratislav Vašina
124
asked Nov 15 '18 at 14:22
Vratislav VašinaVratislav Vašina
124
124
UsingColumns("A:F")...without specifying the worksheet can lead to problems. use 'ws.Columns("A:F")...' Always specify the worksheet explicitly. Otherwise we assume you're a noob and confused. Your code won't work when you start changing sheets.
– D_Bester
Nov 15 '18 at 14:35
Regarding the unchecking issue, Active X controls are generally considered buggier than Form controls so the latter might be preferred
– Kubie
Nov 15 '18 at 15:06
D_Bester: I have started with VBA recently, so I guess, I can be considerd as noob. But I am learning. However, thank you for you advise. Kubie: Thank you, I will remember this
– Vratislav Vašina
Nov 15 '18 at 15:34
add a comment |
UsingColumns("A:F")...without specifying the worksheet can lead to problems. use 'ws.Columns("A:F")...' Always specify the worksheet explicitly. Otherwise we assume you're a noob and confused. Your code won't work when you start changing sheets.
– D_Bester
Nov 15 '18 at 14:35
Regarding the unchecking issue, Active X controls are generally considered buggier than Form controls so the latter might be preferred
– Kubie
Nov 15 '18 at 15:06
D_Bester: I have started with VBA recently, so I guess, I can be considerd as noob. But I am learning. However, thank you for you advise. Kubie: Thank you, I will remember this
– Vratislav Vašina
Nov 15 '18 at 15:34
Using
Columns("A:F")... without specifying the worksheet can lead to problems. use 'ws.Columns("A:F")...' Always specify the worksheet explicitly. Otherwise we assume you're a noob and confused. Your code won't work when you start changing sheets.– D_Bester
Nov 15 '18 at 14:35
Using
Columns("A:F")... without specifying the worksheet can lead to problems. use 'ws.Columns("A:F")...' Always specify the worksheet explicitly. Otherwise we assume you're a noob and confused. Your code won't work when you start changing sheets.– D_Bester
Nov 15 '18 at 14:35
Regarding the unchecking issue, Active X controls are generally considered buggier than Form controls so the latter might be preferred
– Kubie
Nov 15 '18 at 15:06
Regarding the unchecking issue, Active X controls are generally considered buggier than Form controls so the latter might be preferred
– Kubie
Nov 15 '18 at 15:06
D_Bester: I have started with VBA recently, so I guess, I can be considerd as noob. But I am learning. However, thank you for you advise. Kubie: Thank you, I will remember this
– Vratislav Vašina
Nov 15 '18 at 15:34
D_Bester: I have started with VBA recently, so I guess, I can be considerd as noob. But I am learning. However, thank you for you advise. Kubie: Thank you, I will remember this
– Vratislav Vašina
Nov 15 '18 at 15:34
add a comment |
1 Answer
1
active
oldest
votes
0
You need to specify the worksheet. Best to use the code name for the sheet shown in the properties in parenthesis "(Name)".
If Sheet1.CheckBox1.Value = True Then
Debug.Print Sheet1.CheckBox1.Value
ActiveSheet.Columns("A:F").AutoFilter Field:=1, Criteria1:=">11999", Operator:=xlAnd, Criteria2:="<13000"
ActiveSheet.PrintOut
End If
Using code name
https://wellsr.com/vba/2015/excel/complete-guide-to-excel-vba-ActiveX-checkboxes/#value
answered Nov 15 '18 at 14:29
D_BesterD_Bester
3,79832361
I used your code, but now it shows following error: Compile error: Method or data member not found.. Any ideas what have I done wrong?
– Vratislav Vašina
Nov 15 '18 at 15:30
It means the compiler can't find match the CheckBox1 to the worksheet. Using the code name should eliminate the problem assuming you actually have a CheckBox1 on the given sheet.
– D_Bester
Nov 15 '18 at 16:04
The Sub code is: Private Sub CheckBox1_Click()... I tryied "CheckBox1" and also "CheckBox1_Click" just to be sure, but non of it works. To get to the code I use right click to checkbox to ensure I use the right one but still nothing.. Obviously I am missing something but can not figure out what it is.. I will edit the question with whole Sub.. Maybe you will see something
– Vratislav Vašina
Nov 15 '18 at 16:33
Do this:Debug.Print Sheets("TISK IV OC").CodeNameto give you the code name. Then use that instead of ws inws.CheckBox1
– D_Bester
Nov 15 '18 at 16:49
It worked, thank you :)
– Vratislav Vašina
Nov 16 '18 at 8:13
add a comment |
Your Answer
StackExchange.ifUsing("editor", function ()
StackExchange.using("externalEditor", function ()
StackExchange.using("snippets", function ()
StackExchange.snippets.init();
);
);
, "code-snippets");
StackExchange.ready(function()
var channelOptions =
tags: "".split(" "),
id: "1"
;
initTagRenderer("".split(" "), "".split(" "), channelOptions);
StackExchange.using("externalEditor", function()
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled)
StackExchange.using("snippets", function()
createEditor();
);
else
createEditor();
);
function createEditor()
StackExchange.prepareEditor(
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader:
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
,
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
);
);
draft saved
draft discarded
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53321516%2fcheckbox-as-a-condition%23new-answer', 'question_page');
);
Post as a guest
Required, but never shown
1 Answer
1
active
oldest
votes
1 Answer
1
active
oldest
votes
active
oldest
votes
active
oldest
votes
0
You need to specify the worksheet. Best to use the code name for the sheet shown in the properties in parenthesis "(Name)".
If Sheet1.CheckBox1.Value = True Then
Debug.Print Sheet1.CheckBox1.Value
ActiveSheet.Columns("A:F").AutoFilter Field:=1, Criteria1:=">11999", Operator:=xlAnd, Criteria2:="<13000"
ActiveSheet.PrintOut
End If
Using code name
https://wellsr.com/vba/2015/excel/complete-guide-to-excel-vba-ActiveX-checkboxes/#value
answered Nov 15 '18 at 14:29
D_BesterD_Bester
3,79832361
I used your code, but now it shows following error: Compile error: Method or data member not found.. Any ideas what have I done wrong?
– Vratislav Vašina
Nov 15 '18 at 15:30
It means the compiler can't find match the CheckBox1 to the worksheet. Using the code name should eliminate the problem assuming you actually have a CheckBox1 on the given sheet.
– D_Bester
Nov 15 '18 at 16:04
The Sub code is: Private Sub CheckBox1_Click()... I tryied "CheckBox1" and also "CheckBox1_Click" just to be sure, but non of it works. To get to the code I use right click to checkbox to ensure I use the right one but still nothing.. Obviously I am missing something but can not figure out what it is.. I will edit the question with whole Sub.. Maybe you will see something
– Vratislav Vašina
Nov 15 '18 at 16:33
Do this:Debug.Print Sheets("TISK IV OC").CodeNameto give you the code name. Then use that instead of ws inws.CheckBox1
– D_Bester
Nov 15 '18 at 16:49
It worked, thank you :)
– Vratislav Vašina
Nov 16 '18 at 8:13
add a comment |
0
You need to specify the worksheet. Best to use the code name for the sheet shown in the properties in parenthesis "(Name)".
If Sheet1.CheckBox1.Value = True Then
Debug.Print Sheet1.CheckBox1.Value
ActiveSheet.Columns("A:F").AutoFilter Field:=1, Criteria1:=">11999", Operator:=xlAnd, Criteria2:="<13000"
ActiveSheet.PrintOut
End If
Using code name
https://wellsr.com/vba/2015/excel/complete-guide-to-excel-vba-ActiveX-checkboxes/#value
answered Nov 15 '18 at 14:29
D_BesterD_Bester
3,79832361
I used your code, but now it shows following error: Compile error: Method or data member not found.. Any ideas what have I done wrong?
– Vratislav Vašina
Nov 15 '18 at 15:30
It means the compiler can't find match the CheckBox1 to the worksheet. Using the code name should eliminate the problem assuming you actually have a CheckBox1 on the given sheet.
– D_Bester
Nov 15 '18 at 16:04
The Sub code is: Private Sub CheckBox1_Click()... I tryied "CheckBox1" and also "CheckBox1_Click" just to be sure, but non of it works. To get to the code I use right click to checkbox to ensure I use the right one but still nothing.. Obviously I am missing something but can not figure out what it is.. I will edit the question with whole Sub.. Maybe you will see something
– Vratislav Vašina
Nov 15 '18 at 16:33
Do this:Debug.Print Sheets("TISK IV OC").CodeNameto give you the code name. Then use that instead of ws inws.CheckBox1
– D_Bester
Nov 15 '18 at 16:49
It worked, thank you :)
– Vratislav Vašina
Nov 16 '18 at 8:13
add a comment |
0
0
0
You need to specify the worksheet. Best to use the code name for the sheet shown in the properties in parenthesis "(Name)".
If Sheet1.CheckBox1.Value = True Then
Debug.Print Sheet1.CheckBox1.Value
ActiveSheet.Columns("A:F").AutoFilter Field:=1, Criteria1:=">11999", Operator:=xlAnd, Criteria2:="<13000"
ActiveSheet.PrintOut
End If
Using code name
https://wellsr.com/vba/2015/excel/complete-guide-to-excel-vba-ActiveX-checkboxes/#value
answered Nov 15 '18 at 14:29
D_BesterD_Bester
3,79832361
You need to specify the worksheet. Best to use the code name for the sheet shown in the properties in parenthesis "(Name)".
If Sheet1.CheckBox1.Value = True Then
Debug.Print Sheet1.CheckBox1.Value
ActiveSheet.Columns("A:F").AutoFilter Field:=1, Criteria1:=">11999", Operator:=xlAnd, Criteria2:="<13000"
ActiveSheet.PrintOut
End If
Using code name
https://wellsr.com/vba/2015/excel/complete-guide-to-excel-vba-ActiveX-checkboxes/#value
answered Nov 15 '18 at 14:29
D_BesterD_Bester
3,79832361
edited Nov 15 '18 at 15:59
answered Nov 15 '18 at 14:29
D_BesterD_Bester
3,79832361
answered Nov 15 '18 at 14:29
D_BesterD_Bester
3,79832361
answered Nov 15 '18 at 14:29
D_BesterD_Bester
3,79832361
3,79832361
I used your code, but now it shows following error: Compile error: Method or data member not found.. Any ideas what have I done wrong?
– Vratislav Vašina
Nov 15 '18 at 15:30
It means the compiler can't find match the CheckBox1 to the worksheet. Using the code name should eliminate the problem assuming you actually have a CheckBox1 on the given sheet.
– D_Bester
Nov 15 '18 at 16:04
The Sub code is: Private Sub CheckBox1_Click()... I tryied "CheckBox1" and also "CheckBox1_Click" just to be sure, but non of it works. To get to the code I use right click to checkbox to ensure I use the right one but still nothing.. Obviously I am missing something but can not figure out what it is.. I will edit the question with whole Sub.. Maybe you will see something
– Vratislav Vašina
Nov 15 '18 at 16:33
Do this:Debug.Print Sheets("TISK IV OC").CodeNameto give you the code name. Then use that instead of ws inws.CheckBox1
– D_Bester
Nov 15 '18 at 16:49
It worked, thank you :)
– Vratislav Vašina
Nov 16 '18 at 8:13
add a comment |
I used your code, but now it shows following error: Compile error: Method or data member not found.. Any ideas what have I done wrong?
– Vratislav Vašina
Nov 15 '18 at 15:30
It means the compiler can't find match the CheckBox1 to the worksheet. Using the code name should eliminate the problem assuming you actually have a CheckBox1 on the given sheet.
– D_Bester
Nov 15 '18 at 16:04
The Sub code is: Private Sub CheckBox1_Click()... I tryied "CheckBox1" and also "CheckBox1_Click" just to be sure, but non of it works. To get to the code I use right click to checkbox to ensure I use the right one but still nothing.. Obviously I am missing something but can not figure out what it is.. I will edit the question with whole Sub.. Maybe you will see something
– Vratislav Vašina
Nov 15 '18 at 16:33
Do this:Debug.Print Sheets("TISK IV OC").CodeNameto give you the code name. Then use that instead of ws inws.CheckBox1
– D_Bester
Nov 15 '18 at 16:49
It worked, thank you :)
– Vratislav Vašina
Nov 16 '18 at 8:13
I used your code, but now it shows following error: Compile error: Method or data member not found.. Any ideas what have I done wrong?
– Vratislav Vašina
Nov 15 '18 at 15:30
I used your code, but now it shows following error: Compile error: Method or data member not found.. Any ideas what have I done wrong?
– Vratislav Vašina
Nov 15 '18 at 15:30
It means the compiler can't find match the CheckBox1 to the worksheet. Using the code name should eliminate the problem assuming you actually have a CheckBox1 on the given sheet.
– D_Bester
Nov 15 '18 at 16:04
It means the compiler can't find match the CheckBox1 to the worksheet. Using the code name should eliminate the problem assuming you actually have a CheckBox1 on the given sheet.
– D_Bester
Nov 15 '18 at 16:04
The Sub code is: Private Sub CheckBox1_Click()... I tryied "CheckBox1" and also "CheckBox1_Click" just to be sure, but non of it works. To get to the code I use right click to checkbox to ensure I use the right one but still nothing.. Obviously I am missing something but can not figure out what it is.. I will edit the question with whole Sub.. Maybe you will see something
– Vratislav Vašina
Nov 15 '18 at 16:33
The Sub code is: Private Sub CheckBox1_Click()... I tryied "CheckBox1" and also "CheckBox1_Click" just to be sure, but non of it works. To get to the code I use right click to checkbox to ensure I use the right one but still nothing.. Obviously I am missing something but can not figure out what it is.. I will edit the question with whole Sub.. Maybe you will see something
– Vratislav Vašina
Nov 15 '18 at 16:33
Do this:
Debug.Print Sheets("TISK IV OC").CodeName to give you the code name. Then use that instead of ws in ws.CheckBox1– D_Bester
Nov 15 '18 at 16:49
Do this:
Debug.Print Sheets("TISK IV OC").CodeName to give you the code name. Then use that instead of ws in ws.CheckBox1– D_Bester
Nov 15 '18 at 16:49
It worked, thank you :)
– Vratislav Vašina
Nov 16 '18 at 8:13
It worked, thank you :)
– Vratislav Vašina
Nov 16 '18 at 8:13
add a comment |
draft saved
draft discarded
Thanks for contributing an answer to Stack Overflow!
- Please be sure to answer the question. Provide details and share your research!
But avoid …
- Asking for help, clarification, or responding to other answers.
- Making statements based on opinion; back them up with references or personal experience.
To learn more, see our tips on writing great answers.
draft saved
draft discarded
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53321516%2fcheckbox-as-a-condition%23new-answer', 'question_page');
);
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Using
Columns("A:F")...without specifying the worksheet can lead to problems. use 'ws.Columns("A:F")...' Always specify the worksheet explicitly. Otherwise we assume you're a noob and confused. Your code won't work when you start changing sheets.– D_Bester
Nov 15 '18 at 14:35
Regarding the unchecking issue, Active X controls are generally considered buggier than Form controls so the latter might be preferred
– Kubie
Nov 15 '18 at 15:06
D_Bester: I have started with VBA recently, so I guess, I can be considerd as noob. But I am learning. However, thank you for you advise. Kubie: Thank you, I will remember this
– Vratislav Vašina
Nov 15 '18 at 15:34