Making cell a checkbox is linked to become active when checking or unchecking

[dwf357]

Hello all,

I'm pretty new to vba so I've been searching the forums and have found most of what I've needed. However, there is one item I can't seem to figure out. When I check or uncheck a checkbox I want the cell that checkbox is linked to, to become active so the rest of the code runs on that row. As you can see I've written the code so I can use it for several checkboxes without having to make each one different. I want the code to run on the row that is associated with the checkbox's linked cell, make sense? Any help is greatly appreciated. There is more code that follows but it basically just repeats depending on the value of column F. I have also attached the template.Checkbook 2013_101.xlsm

Sub Check_To_Complete_Calculations()
Dim Rng As Range
Application.ScreenUpdating = False
ActiveSheet.Unprotect
ActiveCheckBox.Selection.Offset(, 1).Select
Set Rng = Sheets("Register").Rows(ActiveCell.Row).Columns("B:I")


If Sheets("Register").Rows(ActiveCell.Row).Columns("M").Value = False Then
Sheets("Register").Rows(ActiveCell.Row).Columns("B:K").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0
.PatternTintAndShade = 0
Rng.Locked = False
End With
ActiveSheet.Protect
Else
Sheets("Register").Rows(ActiveCell.Row).Columns("B:K").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
Rng.Locked = True
End With
ActiveSheet.Protect
End If
Application.ScreenUpdating = True

If Sheets("Register").Rows(ActiveCell.Row).Columns("M").Value = False And Sheets("Register").Rows(ActiveCell.Row).Columns("F").Value = ("Daniels Pay") Then
ActiveCell.Select
Application.Run ("Module2.EAddAll_1")
Else
If Sheets("Register").Rows(ActiveCell.Row).Columns("M").Value = True And Sheets("Register").Rows(ActiveCell.Row).Columns("F").Value = ("Daniels Pay") Then
ActiveCell.Select
Sheets("Budget").Range("E56").Value = Sheets("Register").Rows(ActiveCell.Row).Columns("I").Value
Application.Run ("Module2.EAddAll1")
Else
If Sheets("Register").Rows(ActiveCell.Row).Columns("M").Value = False And Sheets("Register").Rows(ActiveCell.Row).Columns("F").Value = ("Karas Pay") Then
Application.Run ("Module2.FAddAll_1")
Else
If Sheets("Register").Rows(ActiveCell.Row).Columns("M").Value = True And Sheets("Register").Rows(ActiveCell.Row).Columns("F").Value = ("Karas Pay") Then
Sheets("Budget").Range("F56").Value = Sheets("Register").Rows(ActiveCell.Row).Columns("I").Value
Application.Run ("Module2.FAddAll1")
Else
If Sheets("Register").Rows(ActiveCell.Row).Columns("M").Value = False And Sheets("Register").Rows(ActiveCell.Row).Columns("F").Value = ("Church") Then
Sheets("Budget").Range("D4").Value = Sheets("Budget").Range("D4").Value - Sheets("Register").Rows(ActiveCell.Row).Columns("I").Value + Sheets("Register").Rows(ActiveCell.Row).Columns("H").Value
Else
If Sheets("Register").Rows(ActiveCell.Row).Columns("M").Value = True And Sheets("Register").Rows(ActiveCell.Row).Columns("F").Value = ("Church") Then
Sheets("Budget").Range("D4").Value = Sheets("Budget").Range("D4").Value + Sheets("Register").Rows(ActiveCell.Row).Columns("I").Value - Sheets("Register").Rows(ActiveCell.Row).Columns("H").Value
Else

[mrice]

One way to do this is ...

Link each checkbox to the cell beneath it.
Set another cell in a different column to be equal to the first using a formula - this will trigger a calculate event when the checkbox value changes

Add this code to the Sheet2 tab

Please Login or Register  to view this content.

[dwf357]

Thanks for the quick response. I've tried what you suggested, but there was no change. What I need is (for example) if B98 is the active cell and I check or uncheck a checkbox linked to M55 then I need a cell in row 55 to become active before the code runs so that the effect of the code is applied to row 55. When I tried your suggestion the active cell did not move to the row linked to the checkbox.

[mrice]

Maybe you need something like

Please Login or Register  to view this content.

[dwf357]

That worked perfect, I can't believe I couldn't figure out one line of code. Thank you for your help.