Drop boxes with a Macro to copy

[helpexcel]

I am creating a spreadsheet that has drop boxes at the top of each column that has a "Yes/No" option. If the column has a "yes" i want it pasted to another worksheet, while the "No" column's are skipped. I have inserted a menu button that when clicked, will run the macro and paste all the yes columns.

Thanks for the help and direction.

 

[nuked]

Something like this, assuming your Yes/No's are in the first row.

Option Explicit

Sub CopyColumns()

Dim cel As Range
Dim wksSource, wksDestination As Worksheet
Dim count As Long

Set wksSource = ActiveSheet
Set wksDestination = wksSource.Parent.Worksheets.Add

count = 1

For Each cel In wksSource.[1:1]

    If cel = "Yes" Then
        cel.EntireColumn.Copy wksDestination.Cells(1, count)
        count = count + 1
    End If
        
Next cel
End Sub

 

[helpexcel]

That works great, thanks.

If I want to copy to an existing sheet, I tried using Set wksDestination = Sheets("Yes") but no luck. Also can no luck with using Sheets("list").Select for the selecting the active sheet.

I was able to change the rows, but how do I remove row 1 so the "yes" doesn't show?