Macro To Copy Row Based On Boolean?

Hello Everyone,
I've been using these forums for quite some time but I am completely stuck, so this is my first post. I'm currently attempting to Copy rows from sheet "A" to sheet "B" based on a Boolean in column A sheet "A".

The Code I have works, but I'm trying to figure out how to modify it so it doesn't sort the data on Sheet A and can be run from Sheet B.

I continue to screw this up and do not know VBA well enough yet. Thank you in advance for any assistance you are able to give me it is much appreciated. Please let me know if I'm not making sense or need to clarify anything I'm trying to do. (Excel 2010 and Windows 7)

Thanks,
VS

Sub test1()
Dim r As Range, filt As Range
With Sheets(2)
.Range("B5:I17").Cells.Clear
End With
With Sheets(1)
Set r = .Range("A4").CurrentRegion
r.Sort key1:=Range("A4"), order1:=xlDescending, Header:=xlYes
r.AutoFilter field:=1, Criteria1:="TRUE"
Set filt = r.Offset(1, 0).Resize(r.Rows.Count - 1).SpecialCells(xlCellTypeVisible)

filt.Areas(1).Columns("C:J").Copy
With Sheets(2)
.Range("B5:G17").PasteSpecial
End With
.AutoFilterMode = False
End With
Application.CutCopyMode = False
End Sub

Sorry, thought I attached it. Very new at attaching files to a forum post. Macros.xlsm

Originally Posted by DGagnon

Try this out

Sub test1()
Dim r As Range, filt As Range
Sheets(2).Range("B5:I17").Cells.Clear

With Sheets(1)
    Set r = .Range("A4").CurrentRegion
    r.AutoFilter field:=1, Criteria1:="TRUE"
    Set filt = r.Offset(1, 0).Resize(r.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
    filt.Areas(1).Columns("C:J").Copy
    Sheets(2).Range("B5:G17").PasteSpecial

    .AutoFilterMode = False
End With
Application.CutCopyMode = False
End Sub

It works except it stops once it finds the first FALSE

Originally Posted by JieJenn

Ignore my last post. If it stops at the first "FALSE" then

Sub CopyPaste()
Dim ws As Worksheet
Dim LR As Long

With Worksheets("Sheet1")
If .AutoFilterMode = True Then
    .Rows(3).AutoFilter Field:=1
Else
    .Rows(3).AutoFilter
End If
    LR = .Range("A:A").Find(What:="FALSE", After:=Range("A3"), LookIn:=xlValues, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Row
    .Cells(3, 1).CurrentRegion.AutoFilter Field:=1, Criteria1:="TRUE"
    Set ws = Worksheets.Add
    .Range("A3:J" & LR - 1).Copy ws.Cells(3, 1)
        With ws
            .Columns("B").Delete
            .Range("A4:A" & LR).ClearContents
        End With
End With
End Sub

It deletes the Rows with FALSE and creates a new sheet with every execution.

DGagnon, sorry not yours. You guys are fantastic. I didn't expect this much help so fast, so thank you. I'm testing your code out right now. That was meant for JieJenn

Originally Posted by DGagnon

for some reason i could not do it with out selecting cells, it may not be the most efficent, but this shoudl work for you

Sub test1()
Dim r As Range, filt As Range

Sheets(2).Range("B5:I17").Cells.Clear

With Sheets(1)
    .Range("A4").Select
    .Range(Selection, Selection.End(xlToRight)).Select
    .Range(Selection, Selection.End(xlDown)).Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:="TRUE"
    
    .Range("A3").Select
    .Range(Selection, Selection.End(xlToRight)).Select
    .Range(Selection, Selection.End(xlDown)).Select
    Selection.Columns("C:J").Copy
    
    Sheets(2).Range("B4").PasteSpecial
    .AutoFilterMode = False
End With
Application.CutCopyMode = False
End Sub

It works great, I'll try and figure out how to do it without selecting the cells, so thanks a ton.