'>> The following code should copy sales order values from "Pricing Activity Log" and "Completed Pricing Log" into new "DupTest" sheet to determine if there are duplicates.
'>> Always get error in Section 4) when making selection.
Sub AddSheetDupTest()
Dim ws As Worksheet
Dim today As Date
Dim PALD3 As Range
Dim CPLD3 As Range
On Error GoTo ErrMsg
today = Date
Set PALD3 = Sheets("Pricing Activity Log").Range("D3")
Set CPLD3 = Sheets("Completed Pricing Log").Range("D3")
'1)
Set ws = Sheets.Add
ws.Name = "DupTest"
'2)
Sheets("Pricing Activity Log").Activate
PALD3.Select
Range(PALD3, Selection.End(xlDown)).Select
Selection.Copy
'3)
Sheets("DupTest").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
'4)
Sheets("Completed Pricing Log").Activate
CPLD3.Select
'ALWAYS ERRORS BELOW: IS THIS DUE TO THE SIMILARITY TO THE ABOVE PALD3 SELECTION STATEMENT?
'HAVE TRIED VARIOUS STANDARD SELECTION STATEMENTS WITH AND WITHOUT NAMING RANGES BUT GET SAME ERROR (1004) EACH TIME
Range(CPLD3, Selection.End(xlDown)).Select
Selection.Copy
'5)
Sheets("DupTest").Activate
Range("A1").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'6)
Columns("A:A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'7)
'DUPLICATE RECORD IDENTIFICATION CODE WILL GO HERE
'-------------------------------------------------
'8)
ws.Name = "DupTest " & today
ErrMsg:
If Err.Number <> 0 Then
MsgBox ("Error #" & Str(Err.Number) & " occurred.")
Exit Sub
End If
Resume Next
End Sub
'>> Always get error in Section 4) when making selection.
Sub AddSheetDupTest()
Dim ws As Worksheet
Dim today As Date
Dim PALD3 As Range
Dim CPLD3 As Range
On Error GoTo ErrMsg
today = Date
Set PALD3 = Sheets("Pricing Activity Log").Range("D3")
Set CPLD3 = Sheets("Completed Pricing Log").Range("D3")
'1)
Set ws = Sheets.Add
ws.Name = "DupTest"
'2)
Sheets("Pricing Activity Log").Activate
PALD3.Select
Range(PALD3, Selection.End(xlDown)).Select
Selection.Copy
'3)
Sheets("DupTest").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
'4)
Sheets("Completed Pricing Log").Activate
CPLD3.Select
'ALWAYS ERRORS BELOW: IS THIS DUE TO THE SIMILARITY TO THE ABOVE PALD3 SELECTION STATEMENT?
'HAVE TRIED VARIOUS STANDARD SELECTION STATEMENTS WITH AND WITHOUT NAMING RANGES BUT GET SAME ERROR (1004) EACH TIME
Range(CPLD3, Selection.End(xlDown)).Select
Selection.Copy
'5)
Sheets("DupTest").Activate
Range("A1").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'6)
Columns("A:A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'7)
'DUPLICATE RECORD IDENTIFICATION CODE WILL GO HERE
'-------------------------------------------------
'8)
ws.Name = "DupTest " & today
ErrMsg:
If Err.Number <> 0 Then
MsgBox ("Error #" & Str(Err.Number) & " occurred.")
Exit Sub
End If
Resume Next
End Sub