Using VB code to copy only specific worksheet rows

[D_Spark]

can anyone please assist

I wishing to create a command button on an excel worksheet and assign some VB code to the "*******" function.

what Im want to happen is to only copy those rows where the value in colum P = FALSE


My current VB Code looks like this

Sub Macro1()

Cells.Select
Selection.Copy
Sheets("check").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

 

[VoG]

Try

Sub Macro1()
Columns("P").AutoFilter field:=1, Criteria1:=False
With ActiveSheet
    .UsedRange.SpecialCells(xlCellTypeVisible).Copy
    Sheets("check").Range("A1").PasteSpecial Paste:=xlPasteValues
    .Columns("P").AutoFilter
End With
End Sub

 

[D_Spark]

Thanks for this

How can add to the code you suggest so as to clear all content on the "check" sheet before the PASTESPECIAL ?

 

[VoG]

Try

Sub Macro1()
Sheets("check").UsedRange.ClearContents
Columns("P").AutoFilter field:=1, Criteria1:=False
With ActiveSheet
    .UsedRange.SpecialCells(xlCellTypeVisible).Copy
    Sheets("check").Range("A1").PasteSpecial Paste:=xlPasteValues
    .Columns("P").AutoFilter
End With
End Sub