Check Box --- Cell Links

[thunderfoot]

I have a table with nearly 300 records on one worksheet. On another worksheet I have a Template which is to be populated with the details of a specific record from the table of 300, and then printed.

My thoughts were to use a 'Check Box' against each record, which I could use to select a specific record to populate the Template and then have a macro attached to the 'Check Box' to print the Template (and one or two other 'bits'!!).

The problem I have with the 'Check Box' is that when I copy each 'Check Box' to another cell, against each of the 300 records, the 'Cell Link' always refers to original 'Check Box .. Cell Link'.

Is there a way around this, or is there a better solution than using a 'Check Box' against each record?

 

[thunderfoot]

Found some coding that does the trick nicely.

Sub InsertCheckBoxes()
'
    Dim WrkRange, aCell As Range
    Dim RowHt, ColWd As Single
    Dim PosLeft, PosTop As Long

    Set WrkRange = Selection
    
    RowHt = ActiveCell.Height
    ColWd = ActiveCell.Width
    
    For Each aCell In WrkRange
    PosLeft = (aCell.Column - 1) * ColWd
    PosTop = (aCell.Row - 1) * RowHt
    ActiveSheet.CheckBoxes.Add(PosLeft, PosTop, 10, 10).Select
    With Selection
    .LinkedCell = aCell.Address
    .Characters.Text = ""
    End With
    aCell.NumberFormat = ";;;"
    Next aCell

End Sub

 

[Harvey]

I'd say using checkboxes for 300 records is a bit much of an overkill. Why don't you use a selection inputbox and let the user select the records that have to be used?

 

[thunderfoot]

I've used the above code to generate about 300 'Check Boxes' with their own unique cell references.

Can anyone advise as to what the additional bit of code would be to Select all the 'Check Boxes' so that I can Group them.