Copy certain cells/row based on a true value

[travler75]

Hello everyone,

I have been searching around for the last several hours and haven't specifically been able to find something that would help me.

I have a check box that when checked provides a true false value, so Column A is the Check box, Column B is the True/False value.

I have data in Columns C:L, what I would like to do is copy the row of data if the value is true and have it loop through all true values in Column B, and copy it in another sheet. The kicker is I need the ability to exclude certain columns in the process for example copy the row from c:l but exclude column J for example. There is a header row in row 8. I am not even sure where to get started on this one.

I would run this process from a control button and would over write the data in the new sheet. Any help is appreciated.

This is what I have and failed miserably

Sub SelectRows()

Dim i As Long
i = 9
Do Until (Cells(i, 1)) = ""

If Cells(i, 2).Text = "True" Then
ThisWorkbook.ActiveSheet.Rows(i).Copy Sheets("sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
End If
i = i + 1
Loop

End Sub