Solved

Select and delete groups of check boxes from spreadsheet

Posted on 2014-03-18
6
149 Views
Last Modified: 2014-03-18
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
0
Comment
Question by:Fritz Paul
  • 3
  • 2
6 Comments
 
LVL 33

Expert Comment

by:Norie
ID: 39936622
Are you looking for code to do this?
0
 
LVL 43

Accepted Solution

by:
Saqib Husain, Syed earned 500 total points
ID: 39936631
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
 

Author Comment

by:Fritz Paul
ID: 39936637
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
Enabling OSINT in Activity Based Intelligence

Activity based intelligence (ABI) requires access to all available sources of data. Recorded Future allows analysts to observe structured data on the open, deep, and dark web.

 
LVL 33

Expert Comment

by:Norie
ID: 39936641
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
 

Author Comment

by:Fritz Paul
ID: 39936652
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
 
LVL 33

Expert Comment

by:Norie
ID: 39936663
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

Featured Post

Why You Should Analyze Threat Actor TTPs

After years of analyzing threat actor behavior, it’s become clear that at any given time there are specific tactics, techniques, and procedures (TTPs) that are particularly prevalent. By analyzing and understanding these TTPs, you can dramatically enhance your security program.

Join & Write a Comment

Approximate matching with VLOOKUP and MATCH seems to me to be a greatly under-used technique, and one which is vital for getting good performance out of large lookups. Until recently I would always have advised using an exact match for simplicity an…
How to quickly and accurately populate Word documents with Excel data, charts and images (including Automated Bookmark generation) David Miller (dlmille) Synopsis In this article you’ll learn how to use ExcelToWord! to copy data,charts, shapes …
Graphs within dashboards are meant to be dynamic, representing data from a period of time that will change each time the dashboard is updated with new data. Rather than update each graph to point to a different set within a static set of data, t…
This Micro Tutorial will demonstrate how to use a scrolling table in Microsoft Excel using the INDEX function.

706 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now