I have a code im writing to filter any data from a table on a specific sheet and if it finds that data, then to paste it onto another worksheet. I have it working, however its only selecting one instance of the filter. I want it to transfer as many instances of the filter that it finds. I also want it to only paste unique entries, as to not delete anything on the second worksheet. Can you help?
Public Sub CopyOverBudgetRecords()
Dim StatusCol As Range
Dim Status As Range
Dim PasteRow As Range
Set StatusCol = Sheet2.Range("F11:F500")
For Each Status In StatusCol
If Sheet3.Range("A10") = "Jessica Bullitt" Then
Set PasteRow = Sheet3.Range("A10")
Else
Set PasteRow = Sheet3.Range("A9").End(xlDown).Offset(1, 0)
End If
If Status = "Jessica Bullitt" Then Status.EntireRow.Copy PasteRow
Next Status
End Sub
Public Sub CopyOverBudgetRecords()
Dim StatusCol As Range
Dim Status As Range
Dim PasteRow As Range
Set StatusCol = Sheet2.Range("F11:F500")
For Each Status In StatusCol
If Sheet3.Range("A10") = "Jessica Bullitt" Then
Set PasteRow = Sheet3.Range("A10")
Else
Set PasteRow = Sheet3.Range("A9").End(xlDown).Offset(1, 0)
End If
If Status = "Jessica Bullitt" Then Status.EntireRow.Copy PasteRow
Next Status
End Sub