sudarshank2
New Member
- Joined
- Nov 1, 2015
- Messages
- 12
Hi Guys,
I have list of checkbox in column A and if I select A1 then C1 need to be updated automatically and so on.
I have CheckBox LinkedCell as my references. See the below code (It will update the LinkedCell reference.)
Sub sourcecheckbox_Activate()
Dim i As Integer
Dim chk As Variant
i = 4
With Sheets("Basesheet")
For Each chk In .OLEObjects
If TypeName(chk.Object) = "CheckBox" Then
chk.LinkedCell = .Range("A" & i).Address
i = i + 1
End If
Next
End With
End Sub
Now I need to have to Click on the A1 then C1 need to be updated (A1 have Checkbox1, A2-CheckBox2 and so on)
I have list of checkbox in column A and if I select A1 then C1 need to be updated automatically and so on.
I have CheckBox LinkedCell as my references. See the below code (It will update the LinkedCell reference.)
Sub sourcecheckbox_Activate()
Dim i As Integer
Dim chk As Variant
i = 4
With Sheets("Basesheet")
For Each chk In .OLEObjects
If TypeName(chk.Object) = "CheckBox" Then
chk.LinkedCell = .Range("A" & i).Address
i = i + 1
End If
Next
End With
End Sub
Now I need to have to Click on the A1 then C1 need to be updated (A1 have Checkbox1, A2-CheckBox2 and so on)