Checkbox Question

[audrey]

Hello,

I have a checkbox in Sheet1 which runs a macro once it s ticked. I want to put the same checkbox in Sheet2 that runs the same macro. My question is

1. is there away to align the checkboxes ? for example if the user ticks the one sheet1, could it automatically be ticked in sheet2 as well and vice versa ?

Thanks!

Audrey

 

[audrey]

anybody ?

 

[MickG]

You could do this !!

Private Sub CheckBox1_Click()
With Sheets("Sheet1").CheckBox1
Sheets("Sheet2").CheckBox1.value = .value
End With
End Sub

and in the other sheet CheckBox

Private Sub CheckBox1_Click()
With Sheets("Sheet2").CheckBox1
Sheets("Sheet1").CheckBox1.value = .value
End With
End Sub

Regards Mick

 

[audrey]

Thanks Mick, just a silly question I am using the old checkboxes, would that make a difference ? you know there are two of them.

 

[audrey]

I can not rename it as checkbox1 etc...

 

[MickG]

With forms check boxes you will need this:-
Change the sheet names and Check boxes to suit.
Make sure you get the Same relationship as in these codes.

Sub CheckBox2_Click()
'This is sheet 36
Sheets("sheet33").Shapes("check box 4").OLEFormat.Object.value = _
Sheets("sheet36").Shapes(Application.caller).OLEFormat.Object.value
End Sub

Sub CheckBox4_Click()
'This is Sheets 33
Sheets("sheet36").Shapes("check box 2").OLEFormat.Object.value = _
Sheets("sheet33").Shapes(Application.caller).OLEFormat.Object.value
End Sub

Regards Mick

 

[audrey]

thanks Mick!