VBA Copy and Paste With Duplicates

[pahickham]

Hello All,

I'm in need of some input. My VBA skills are sub-par at best. I've assembled this code from basic research and it works but is glitchy, probably due to the multiple activate sheets portion. However, I need to add in the capability of clearing non-duplicate on the "2B Board Items" work sheet after every click of the command button. For instance if a cell from Column D of "All Data" is the same as a cell from column D for "2B Board Items" then don't delete it. Any help is appreciated.

Also any help on making the Macro more efficient would be appreciated

Private Sub CommandButton2_Click()

a = Worksheets("All Data").Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To a

If Worksheets("All Data").Cells(i, 8).Value > 0 Then

Worksheets("All Data").Rows(i).Copy
Worksheets("2B Board Items").Activate
b = Worksheets("2B Board Items").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("2B Board Items").Cells(b + 1, 1).Select
ActiveSheet.Paste
Worksheets("All Data").Activate

End If

Application.CutCopyMode = False

Next

Worksheets("2B Board Items").Activate
ThisWorkbook.Worksheets("2B Board Items").Cells(1, 1).Select

End Sub

 

[pahickham]

Thank you that worked! It created a gap in between the all the pasted data though, which is the only minor issue.

When the data was pasted into "2B Board Items" it pasted it in every other row for example: 3,5,7,9,11.. etc were the rows data was posted to. Do you know how to fix that?

 

[JLGWhiz]

Change the 3 in parentheses to a 2 in the line in Post #20. I was working on another thread where they want a blank row between posts and applied it to your code in error.

 

[pahickham]

Thanks for all the help!

 

[JLGWhiz]

Thanks for all the help!

You are welcome,
Regards, JLG