Copy Cells to Sheet Based on Column Name

  • Hi,
    Very new to VBA, and have been searching but not finding enough to cobble together what I am looking for. My end goal is to parse the data on the attached sheet and copy the building, room number, and date (data in columns a through c) to the appropriate sheet (titled after the column header in D-DH) if there is a 1 present in said row and column. Therefore, with the attached sheet, the resulting workbook would list:
    builda 4002T 12-Jun
    builda 4006T 12-Jun
    builda 3002T 12-Jun
    builda 3010T 12-Jun
    in the Doorframepaintinc sheet.
    I found the following code from"]this thread that would do it for one column at a time, I was wondering if there was a way to automate it further or if I needed to create 109 for loops. I'm also trying to figure out how to replace the cell.EntireRow.copy with just the first three columns of said row if I need to go this way.

    Thanks for any help you can give me.

  • Re: Copy Cells to Sheet Based on Column Name

    Something like this maybe:

Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!