How To Get The State Of A CheckBox

[Minitman]

Greetings,

Anyone know what the syntax would be to determine the state of a
CheckBox (CBX1) that I have on a UserForm?

TIA

-Minitman

 

[Frank Kabel]

cbx1.value

 

[Myrna Larson]

Test the Value property of the CheckBox object. There are examples in Help for
setting the value. I assume you can figure out from that how to read it <g>.

 

[Minitman]

Thanks Frank

-Minitman

 

[Minitman]

Hey Frank,

I am attempting to put a "Y" on my spreadsheet if cbx1.value is true
and nothing if it is false. I can't seem to get it from the userform
to the spreadsheet.

Any ideas?

-Minitman

 

[Tom Ogilvy]

Private Sub cbx1_click()
if cbx1.Value then
worksheets("Sheet1").Range("A1").Value = "Y"
else
worksheets("Sheet1").Range("A1").ClearContents
end if
end Sub

 

[Minitman]

Hey Tom,

It's a bit more complicated then that i'm afraid.

The paste down is done within a With statement. using the cbx1.value
I can get "TRUE" in the correct column. All of my code on the sheet
is looking for a "Y" not a "TRUE". I was looking for a way to convert
the "TRUE" to a "Y" before it pasted down with the rest of the row.

Oh, in case I forgot to mention it, thanks for the assist on finding
the sheet with the mmm-yy formatted name tabs. I finally got that
section working (this is in the same UserForm).

I am looking for a simple solution, if there is no "simple" solution,
then I can go into the sheet formulas and change them to look for
"TRUE" instead of "Y"

TIA

-Minitman

 

[Tom Ogilvy]

If, by paste down, you mean you have set the controlsource property to a
cell, then the value in that cell will be True or False. It will only be
blank if no selection has been made. You can not make the cell contain "Y"
or anything else by using the controlsource property.

Otherwise, you will have to show what code you are using (that demonstrates
the terminology paste down) that makes it more complicated than that.

 

[Minitman]

Ok, here is the short version>

Private Sub SaveButton_Click()

Dim dt As Date
Dim sh As Worksheet
dt = CDate(TextBox1.Text)
Set sh = Worksheets(Format(dt, "mmm-yy"))
sh.Activate

With Range("A65536").End(xlUp).Offset(1, 0)
.Value = TextBox1.Text
.Offset(0, 1).Value = TextBox2.Text
.Offset(0, 2).Value = CBox1.Text
.Offset(0, 3).Value = CBox2.Text

 

[Dave Peterson]

.Offset(0, 11).Value = CBX1.Value <<<<<<

could become:

if cbx1.value = true then
.Offset(0, 11).Value = "y"
else
.offset(0,11).value = "n"
end if


But looking back through the older posts, this looks a lot like the code that
Tom originally posted.

 

[Minitman]

Hey Dave,

Thanks, this looks like it will do the job.

As for the code from Tom, he did indeed sent this portion:

Dim dt As Date
Dim sh As Worksheet
dt = CDate(TextBox1.Text)
Set sh = Worksheets(Format(dt, "mmm-yy"))

I believe Tom sent it on Thu, 21 Oct 2004. It is part of the last
element of my UserForm (the Save button), the offset part someone
helped me with last year sometime. A lot of Tom's code is woven
though-out my projects as well as the work of many others/

In fact this NG has been very helpful in my attempt at programming (I
am not a programmer, only a wanna be<g>). With all of your help, I
have finished this project and can now start to enter in the last 11
years of bank deposits.

My next project is to finish a Income projection workbook which I have
been working on since 1988 (started in Quartro Pro). I have learned
so much from this NG that I now can totally rewrite this project.

Again, my deepest thanks to all of you who so unselfishly give of your
time and knowledge to those of us who really don't have a clue. <G>

-Minitman

 

[Dave Peterson]

This is the code that Tom sent on the Oct 26:

Private Sub cbx1_click()
if cbx1.Value then
worksheets("Sheet1").Range("A1").Value = "Y"
else
worksheets("Sheet1").Range("A1").ClearContents
end if
end Sub

I use Netscape Messenger for my newsreader. From your headers, I see you use
Forte Agent. Tom's post is in the middle of this thread for me.

But glad you got it working.

 

[Minitman]

Hey Dave,

Yes I remember now, I could not use it because there was no way to
tell it where to place the letter Y. I am using this UserForm to fill
in 132 sheets and the determining factor as to which sheet is
selected, is the Deposit Date (sheet tabs are labeled as dates in the
mmm-yy format). It is placed on the last row of column L. It was
easier to do the placement of all of the data when the form was filled
out.

It was working very well, until I got to tweaking it!!!

But that will be the subject of my next cry for help. <G>

-Minitman

 

[Dave Peterson]

Glad you got it working...

Hey Dave,

Yes I remember now, I could not use it because there was no way to
tell it where to place the letter Y. I am using this UserForm to fill
in 132 sheets and the determining factor as to which sheet is
selected, is the Deposit Date (sheet tabs are labeled as dates in the
mmm-yy format). It is placed on the last row of column L. It was
easier to do the placement of all of the data when the form was filled
out.

It was working very well, until I got to tweaking it!!!

But that will be the subject of my next cry for help. <G>

-Minitman