Select and delete groups of check boxes from spreadsheet

I copied data including checkboxes from a website and pasted it in Excel.
I want to select these checkboxes in groups and then delete them.
Can it be done and how? The ordinary slector tool under Find an Select does not work.

Why I want to select them in groups is that I first want to copy the state of the checkboxes before I delete them.
Select-and-remove-check-boxes.xlsx
Fritz PaulAsked:
Who is Participating?
 
Saqib Husain, SyedEngineerCommented:
From the Developer tab
Select Design mode

Now you can select and delete the checkboxes.

If you co not  have the developer tab available then look for it in the help. Or tell us the excel version and we shall tell you how to show it.
0
 
NorieVBA ExpertCommented:
Are you looking for code to do this?
0
 
Fritz PaulAuthor Commented:
No I do not think code will help me here, for my purpose.
 
The problem is that the file is very large due to all the check boxes. I want to copy the values of the check boxes next to the names and then progresively delete the checkboxes as I copy their values over, in order to free up memory.

I would have preferred it if I could have pasted the box vales instead of the boxes themselves.
0
Introducing Cloud Class® training courses

Tech changes fast. You can learn faster. That’s why we’re bringing professional training courses to Experts Exchange. With a subscription, you can access all the Cloud Class® courses to expand your education, prep for certifications, and get top-notch instructions.

 
NorieVBA ExpertCommented:
You can select the checkboxes if you switch to design mode.

This is the kind of code I was thinking of, it's based on the workbook you attached.
Sub GetChkValues()
Dim chk As OLEObject
Dim arr()
Dim I As Long

    I = 1
    For Each chk In Sheet1.OLEObjects
        If TypeName(chk.Object) = "HTMLCheckbox" Then
            ReDim Preserve arr(1 To 2, 1 To I)

            arr(1, I) = Sheet1.Cells(chk.TopLeftCell.Row, 3).Value & "-" & chk.TopLeftCell.Column
            arr(2, I) = chk.Object.Checked
            chk.Delete
            I = I + 1
        End If
    Next chk

    Range("D1").Resize(UBound(arr(), 2), UBound(arr(), 1)) = Application.Transpose(arr)

End Sub

Open in new window

0
 
Fritz PaulAuthor Commented:
Thanks Imnorie,
That so much that you did in such a short time. I must commend you, but the solution by Syed did exactly what I was looking for.
I love Experts-Exchange.
0
 
NorieVBA ExpertCommented:
Just thought it might be easier, and less prone to mistakes, to deal with a bunch of buttons with code rather than going through them manually.:)
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.