Help on Avoiding Duplicates

[Willmonbo]

I have a list of employees that I keep adding to when someone new is hired, to avoid duplicates I formatted the column with a true/false conditional formatting to reject duplicate records, however, my problem is that I want now that a macro should copy the new hires from a different cell and place it in the employee list and the macro pastes into the employee list even in the event of a duplicate.

I'd greatly appreciate some suggestions

 

[GK039]

I have a list of employees that I keep adding to when someone new is hired, to avoid duplicates I formatted the column with a true/false conditional formatting to reject duplicate records, however, my problem is that I want now that a macro should copy the new hires from a different cell and place it in the employee list and the macro pastes into the employee list even in the event of a duplicate.

I'd greatly appreciate some suggestions

Hello there,

Very simple line of code but it works if i got it right as what you've asked
Just enter in the prompt boxes your range and it will copy the new list under your original one. In my example i assume that your startiing list begins at line A1

Sub addemployee()
Application.ScreenUpdating = False


Dim i As String
Dim j As String

i = InputBox("Enter the starting cell")
j = InputBox("Enter the ending cell")

Range(i, j).Select
Selection.Copy

Range("a1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveSheet.Paste

Application.ScreenUpdating = True
Application.CutCopyMode = False

'MsgBox "test"
End Sub


Hope this helps

 

[GK039]

Hello there,

Very simple line of code but it works if i got it right as what you've asked
Just enter in the prompt boxes your range and it will copy the new list under your original one. In my example i assume that your startiing list begins at line A1

Sub addemployee()
Application.ScreenUpdating = False


Dim i As String
Dim j As String

i = InputBox("Enter the starting cell")
j = InputBox("Enter the ending cell")

Range(i, j).Select
Selection.Copy

Range("a1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveSheet.Paste

Application.ScreenUpdating = True
Application.CutCopyMode = False

'MsgBox "test"
End Sub


Hope this helps

Forgot to add two lines of code. Now these should work better in case you changed your mind and don't want to perform any action with these prompt boxes


Sub addemployee()
Application.ScreenUpdating = False


Dim i As String
Dim j As String

On Error GoTo stopadding

i = InputBox("Enter the starting cell")
j = InputBox("Enter the ending cell")

Range(i, j).Select
Selection.Copy

Range("a1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveSheet.Paste

Application.ScreenUpdating = True
Application.CutCopyMode = False

stopadding: End

End Sub

 

[Willmonbo]

thanks much