Assign Checkboxes to Cells with a Macro in Excel

[@niklasrosvall]

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

[@joscrowd]

That' great!

[@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.

[@user-rx2vh5qm9c]

you literally save me. thank you so much!

[@joscrowd]

Glad this helped you!

[@vinitaoshin6965]

You saved my life……literally THANK YOU

[@joscrowd]

No problem. You must have a lot of checkboxes

[@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!!

[@Study-st9qz]

Code for windows 11 laptop excel 2021?? Pls

[@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!

[@Gramathu_Kanithan]

Music is irritating bro

[@joscrowd]

I TOOK YOUR ADVICE

[@Gramathu_Kanithan]

@@joscrowd but contents are really awesome🥰

[@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.