how to change the value of a cell using a checkbox

[IS300]

Hello,

I have a cell that contains one value (A1). In the one beside it, I have put a checkbox (A2). In the third column (A3), I want that to take the value of A1 should A2 be checked.

Something like IF A2 = True, Then A3 = A1.

Any ideas? It seems really simple, but it has been a few years since I've used VBA.

Thanks

 

[SkipVought]

Hi,

Is the checkbox LINKED to A2?

If so then on the sheet in A3...

=IF(A2,A1,"")

assuming that the value in A2 is either TRUE or FALSE



Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[IS300]

I don't think they are linked. I am trying to do this in VBA. Is there an easier way to do this withing using VBA?

 

[SkipVought]

In the Worksheet Object (right click sheet tab) paste this code

Private Sub CheckBox1_Click()
  with checkbox1
    [A2].Value = .Value
  end with
End with

Then use the formula I posted

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[Zathras]

Much easier (no VBA required) if you use the Control Toolbox toolbar. Simply set the "LinkedCell" property equal to B1 and use a formula like this in C1:
[blue]

   =IF(B1,A1,999)

[/color]
You did say adjacent columns didn't you?