Copy the whole row in another sheet if Value in a cell is YES

[sunjam]

Hi,

Please help..

It seems that this Codes only copy the Column B. I need to capture the whole Row and reflect it to another sheet.



Sub RangeCopyPaste()
Dim cell As Range
Dim NewRange As Range
Dim MyCount As Long
MyCount = 1

For Each cell In Worksheets("Sheet1").Range("C2:C10")
If cell.Value = "YES" Then
If MyCount = 1 Then Set NewRange = cell.Offset(0, -1)
Set NewRange = Application.Union(NewRange, cell.Offset(0, -1))
MyCount = MyCount + 1
End If
Next cell

NewRange.Copy Destination:=Worksheets("Sheet2").Range("A2")


End Sub


Thank you in advance!

[AB33]

Try

Please Login or Register  to view this content.

[sunjam]

It Works!

Thank You very much AB33.

This saves a lot of effort and time..

Mabuhay ka! Salamat!