VBA Coding

[Toncar58]

Hi
Can anyone help me with the VBA coding needed to move data on a worksheet that meets a "yes" in a column on image one to a new worksheet. I would like to use the "button" option on the From worksheet to automatically move all the "yes" data.

Hope this makes sense - Thanks

 

[vcoolio]

Hello Toncar,

I can't tell where your data starts in the source sheet so I've assumed:-

- Sheet1 is the source sheet with data starting in row2 and headings in row1.
- Sheet2 is the destination sheet with headings in row1.
- Columns are A:E.

This code, assigned to your button, should work based on the assumptions:-

Sub Test()

Application.ScreenUpdating = False

        With Sheet1.[A1].CurrentRegion
                .AutoFilter 5, "Yes"
                .Offset(1).EntireRow.Copy Sheet2.Range("A" & Rows.Count).End(3)(2)
                .AutoFilter
        End With

Application.ScreenUpdating = True

End Sub

I hope that this helps.

Cheerio,
vcoolio.

 

[Toncar58]

Hello Toncar,

I can't tell where your data starts in the source sheet so I've assumed:-

- Sheet1 is the source sheet with data starting in row2 and headings in row1.
- Sheet2 is the destination sheet with headings in row1.
- Columns are A:E.

This code, assigned to your button, should work based on the assumptions:-

Sub Test()

Application.ScreenUpdating = False

        With Sheet1.[A1].CurrentRegion
                .AutoFilter 5, "Yes"
                .Offset(1).EntireRow.Copy Sheet2.Range("A" & Rows.Count).End(3)(2)
                .AutoFilter
        End With

Application.ScreenUpdating = True

End Sub

I hope that this helps.

Cheerio,
vcoolio.

Thank you so much vcoolio, I will try this and let you know. I could upload a pic of the entire page so had to do a limited screenshot. Until later Ciao