Assign Checkboxes to Cells with a Macro in Excel

[@niklasrosvall]

LIFE SAVER! I tried four other RUclips tutorials for this and FINALLY a solution that WORKED! Thanks a million!

[@joscrowd]

That' great!

[@vinitaoshin6965]

You saved my life……literally
THANK YOU

[@joscrowd]

No problem. You must have a lot of checkboxes

[@user-rx2vh5qm9c]

you literally save me. thank you so much!

[@joscrowd]

Glad this helped you!

[@FuzzyWuzzaBer]

The thing that happens on a Windows Computer is that when you do the process whereby you copy the checkboxes with TRUE/FALSE value in the cell the checkbox resides, once the checkboxes appear within the selected range, ALL values are TRUE if you click the box or ALL values are FALSE if you uncheck the box. In your example (on the Mac) you were able to click the individual checkboxes and that cell's TRUE or FALSE value was individual to that cell rather than all of them. I am curious as to how to correct this.

[@Hkgadgets29]

You are amazing this trick helped me alot thank u so much sir.

[@joscrowd]

Thanks. It was useful when I had over 100 on one sheet!!

[@MvOvrJack]

I have a calendar with checkboxes for attendance, and looking for a code to clear the checkboxes when selecting the next month. Can you advise please??

[@joscrowd]

Sub clearcheckbox()
ActiveSheet.CheckBoxes.Value = False

End Sub

[@joscrowd]

This could be added to a button or maybe you can add the new month selection right before end sub.

[@nicauldron]

Code does not run anything for me (Windows) :(
Thanks for the tip to select all objects to delete though! I've never seen anyone else show that one :)

[@joscrowd]

The assigned cells will not show True or False until the box is checked.

[@nicauldron]

It does not create the checkboxes though

[@joscrowd]

Sub InsertCheckboxes()
Dim rng As Range
Dim cb As CheckBox
Dim cell As Range
On Error Resume Next
Set rng = Application.InputBox("Select the range to insert checkboxes:", Type:=8)
On Error GoTo 0
If rng Is Nothing Then
MsgBox "No range selected. Macro canceled."
Exit Sub
End If
For Each cell In rng
' Calculate the center position of the cell
Dim centerX As Double
Dim centerY As Double
centerX = cell.Left + cell.Width / 2
centerY = cell.Top + cell.Height / 2
Set cb = ActiveSheet.CheckBoxes.Add(centerX - 10, centerY - 10, 0, 0)
With cb
.Width = cell.Width
.Height = cell.Height
.Caption = " " ' Set the text to a space character to visually remove it
End With
cb.LinkedCell = cell.Address
cell.Font.Color = RGB(255, 255, 255)
Next cell
End Sub@@nicauldron

[@joscrowd]

The above will actually insert them. Source: turbofuture.com/computers/use-vba-to-insert-checkboxes-in-excel

[@nicauldron]

@@joscrowd Thank you!! That code works and I love the popup asking for the cell range. it feels like more of a tool that way. :)
I was wondering if you have ever experienced the issue that the checkboxes get slowly more off centre the further down a column of checkboxes you go. Eg. the first checkbox is perfectly in the centre of the cell, but by cell 40, it is floating halfway out of the cell. This is happening to me with a lot of other codes I tried, not just this one and it is driving me insane. Could it be an issue with my specific computer - because this code specifically tells the checkbox where to sit in the cell? I wish there was a way to show you a picture here, I'm not sure if I explained it well enough!

[@Fighterjetpinups]

Music is very distracting

[@joscrowd]

Thanks for the comment. I turned the music down to 1 notch instead of 2 and will review when the update is complete.

[@Gramathu_Kanithan]

Music is irritating bro

[@joscrowd]

I TOOK YOUR ADVICE

[@Gramathu_Kanithan]

@@joscrowd but contents are really awesome🥰