Create sub list from Master list- not by any criteria

[tbseay]

What I need seems simple but I can't figure it out and searching with no luck on answers.

For my construction business, I have a master list of all subcontractors possible to use (312 of them) with all of their contact info. For each job I want a list of the specific subcontractors working that job.

Right now I have used 2 ways: 1- copy and paste just the contacts needed. or, the inverse and hiding/deleting the ones not needed. But, the downfall of that is that I inevitably accidentally mess up holding down control to select multiples while scrolling through so many rows and have to start over.

Each job that pops up is unique so there is no criteria that I can filter by to create a new sheet/workbook.

The worksheet is set up into a row for each contact with multiple columns for all the other info.

I am picturing a column of check boxes that I can quickly go through and "check" the ones I need, run a macro or something and just those selections to appear in a new sheet or workbook. Does this exist? I am pretty sufficient in excel but not a super techy person!

 

[My Aswer Is This]

Try this and see if it will do what you want.

On your master sheet double click on the cell in column (A) if you want that row of data copied to Sheet(2)

Keep going down the sheet and double click on the cell in column (A) of every row you want copied over.

The row will be copied over as soon as you double click on the cell.
This is assuming you always have some data in column A of that row.

Now if you want the script to also create a new sheet for you at the beginning I can add that to the script also if you want.

This script always copies the rows to Sheet(2) which is always the second sheet on your Tab bar.

This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 And Target.Value <> "" Then
Cancel = True
Dim Lastrow As Long
Lastrow = Sheets(2).Cells(Rows.Count, "A").End(xlUp).Row + 1
Rows(Target.Row).Copy Sheets(2).Rows(Lastrow)
End If
End Sub

 

[tbseay]

This is perfect! Thanks so much.

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

This is perfect! Thanks so much.