Filter and Copying of Data on Another Sheet

[unknownymous]

Hello Guys,

So I have below data on Sheet1 with a range A4:BC. What if I want to Filter all those that returned as "FALSE" (in T/F Check Column) and copy those related columns namely "Inital Check", "Check', & "T/F Check" on another tab sheet named "Check" in range E1:G1.

A1	-
A2	-
A3	-
ID	Name	Initial Check	Check	Stat	T/F Check
1		Science	Science		True
2		Math	History		False
3		History	Geo		False
4		Math	Math		True
5		Science	Math		False
6		Geo	Math		False

<tbody>
</tbody>

I have more than 10K lines so this will be a great help once solved. Thank you!

 

[Fluff]

How about

Sub CopyFalse()

   Dim Rng As Range
   With Sheets("Sheet1").Range("F4", Sheets("Sheet1").Range("F" & Rows.Count).End(xlUp))
      .Replace True, "=xxx", xlWhole, , False, , False, False
      Set Rng = .SpecialCells(xlConstants, xlLogical)
      .Replace "=xxx", True, xlWhole, , False, , False, False
   End With
   Intersect(Rng.EntireRow, Sheets("Sheet1").Range("C:D,F:F")).Copy Sheets("Check").Range("E1")
End Sub

 

[unknownymous]

Thanks Fluff however I'm getting this error "runtime error 1004 no cells were found" possibly because some cell in "Check" column were left as blank.

 

[Fluff]

How about

Sub CopyFalse()

   Dim Rng As Range
   With Sheets("Sheet1").Range("F4", Sheets("Sheet1").Range("F" & Rows.Count).End(xlUp))
      .Replace True, "=xxx", xlWhole, , False, , False, False
      Set Rng = .SpecialCells(xlConstants)
      .Replace "=xxx", True, xlWhole, , False, , False, False
   End With
   Intersect(Rng.EntireRow, Sheets("Sheet1").Range("C:D,F:F")).Copy Sheets("Check").Range("E1")
End Sub