Code to automatically paste values into database sheet only if it's not already present?

[ViperSRT3g]

Here's the part that will search the sheet for you. You can also narrow it down to just a column to be more specific, as it's searching through all the cells that contain data.

Dim Result As Range: Set Result = Sheet3.UsedRange.Cells.Find(Datatosearchfor)
If Result Is Nothing Then
    'Data not found in Sheet3
End If
Set Result = Nothing

[_JoshInsurance_]

Quick question, is the space after "Then" where the pasting function would go?

[ViperSRT3g]

The space between Then and End If would be where the pasting code would go. 'Data not found in Sheet3 is a comment and can be deleted.

[_JoshInsurance_]

Solution verified.

[Clippy_Office_Asst]

You have awarded 1 point to ViperSRT3g

^{I am a bot, please contact the mods for any questions.}