This is the current macro that I am using. This would work if it would paste
starting at W. I currently use it to populate A thru V from different
worksheets. I have changed the names of the worksheets but have yet to be
able to get it to paste starting at W. The specific line that has been
causing
me issues was line 9 I believe.

Line: oCell.EntireRow.Copy Destination:=Sheets("PTR").Range("W" &
Rows.Count).End(xlUp).Offset(1, 0)

This line should paste all of the reference data line into PTR starting at
W. Can you assist with this?

Sub Copy2()

Dim Rng As Range, Rng1 As Range, MyCell As Range, oCell As Range, i As Long
Set Rng = Sheets("Reference Data").Range("A1:A" & Sheets("Reference
Data").Range("A" & Rows.Count).End(xlUp).Row)
Set Rng1 = Sheets("PTR").Range("A1:A" & Sheets("PTR").Range("A" &
Rows.Count).End(xlUp).Row)
i = 0
For Each MyCell In Rng1
For Each oCell In Rng
If oCell.Value = MyCell.Value Then
oCell.EntireRow.Copy Destination:=Sheets("PTR").Range("A" &
Rows.Count).End(xlUp).Offset(1, 0)
i = i + 1
End If
Next oCell
Next MyCell
i = 0
' Referencedata Macro
'
' Keyboard Shortcut: Ctrl+b

End Sub

You can't paste the entire row if you're pasting into column W--or any column
but A!

Dim RngToCopy As Range
Dim DestCell as range

'A:V is 22 columns
set rngtocopy = ocell.entirerow.resize(1,22)

with worksheets("PTR")
Set Destcell = .cells(.rows.count,"W").end(xlup).offset(1,0)
end with

rngtocopy.copy _
destination:=destcell

=====
I like to use variables for my ranges instead of doing all the work in the .copy
command.


Kcope8302 wrote:

This is the current macro that I am using. This would work if it would paste
starting at W. I currently use it to populate A thru V from different
worksheets. I have changed the names of the worksheets but have yet to be
able to get it to paste starting at W. The specific line that has been
causing
me issues was line 9 I believe.

Line: oCell.EntireRow.Copy Destination:=Sheets("PTR").Range("W" &
Rows.Count).End(xlUp).Offset(1, 0)

This line should paste all of the reference data line into PTR starting at
W. Can you assist with this?

Sub Copy2()

Dim Rng As Range, Rng1 As Range, MyCell As Range, oCell As Range, i As Long
Set Rng = Sheets("Reference Data").Range("A1:A" & Sheets("Reference
Data").Range("A" & Rows.Count).End(xlUp).Row)
Set Rng1 = Sheets("PTR").Range("A1:A" & Sheets("PTR").Range("A" &
Rows.Count).End(xlUp).Row)
i = 0
For Each MyCell In Rng1
For Each oCell In Rng
If oCell.Value = MyCell.Value Then
oCell.EntireRow.Copy Destination:=Sheets("PTR").Range("A" &
Rows.Count).End(xlUp).Offset(1, 0)
i = i + 1
End If
Next oCell
Next MyCell
i = 0
' Referencedata Macro
'
' Keyboard Shortcut: Ctrl+b

End Sub

--

Dave Peterson

Pasting the whole row seemed like the easiest option. I only need 4 cells (
L,M.N,O) from Reference Data worksheet to be copied into that specific row
after a match in the A Column is found and put into the matching row in
PTR(W,X,Y,Z).

"Dave Peterson" wrote:

You can't paste the entire row if you're pasting into column W--or any column
but A!

Dim RngToCopy As Range
Dim DestCell as range

'A:V is 22 columns
set rngtocopy = ocell.entirerow.resize(1,22)

with worksheets("PTR")
Set Destcell = .cells(.rows.count,"W").end(xlup).offset(1,0)
end with

rngtocopy.copy _
destination:=destcell

=====
I like to use variables for my ranges instead of doing all the work in the .copy
command.


Kcope8302 wrote:

This is the current macro that I am using. This would work if it would paste
starting at W. I currently use it to populate A thru V from different
worksheets. I have changed the names of the worksheets but have yet to be
able to get it to paste starting at W. The specific line that has been
causing
me issues was line 9 I believe.

Line: oCell.EntireRow.Copy Destination:=Sheets("PTR").Range("W" &
Rows.Count).End(xlUp).Offset(1, 0)

This line should paste all of the reference data line into PTR starting at
W. Can you assist with this?

Sub Copy2()

Dim Rng As Range, Rng1 As Range, MyCell As Range, oCell As Range, i As Long
Set Rng = Sheets("Reference Data").Range("A1:A" & Sheets("Reference
Data").Range("A" & Rows.Count).End(xlUp).Row)
Set Rng1 = Sheets("PTR").Range("A1:A" & Sheets("PTR").Range("A" &
Rows.Count).End(xlUp).Row)
i = 0
For Each MyCell In Rng1
For Each oCell In Rng
If oCell.Value = MyCell.Value Then
oCell.EntireRow.Copy Destination:=Sheets("PTR").Range("A" &
Rows.Count).End(xlUp).Offset(1, 0)
i = i + 1
End If
Next oCell
Next MyCell
i = 0
' Referencedata Macro
'
' Keyboard Shortcut: Ctrl+b

End Sub

--

Dave Peterson

Try changing this:
set rngtocopy = ocell.entirerow.resize(1,22)
to:
set rngtocopy = ocell.entirerow.range("L1:O1")





Kcope8302 wrote:

Pasting the whole row seemed like the easiest option. I only need 4 cells (
L,M.N,O) from Reference Data worksheet to be copied into that specific row
after a match in the A Column is found and put into the matching row in
PTR(W,X,Y,Z).

"Dave Peterson" wrote:

You can't paste the entire row if you're pasting into column W--or any column
but A!

Dim RngToCopy As Range
Dim DestCell as range

'A:V is 22 columns
set rngtocopy = ocell.entirerow.resize(1,22)

with worksheets("PTR")
Set Destcell = .cells(.rows.count,"W").end(xlup).offset(1,0)
end with

rngtocopy.copy _
destination:=destcell

=====
I like to use variables for my ranges instead of doing all the work in the .copy
command.


Kcope8302 wrote:

This is the current macro that I am using. This would work if it would paste
starting at W. I currently use it to populate A thru V from different
worksheets. I have changed the names of the worksheets but have yet to be
able to get it to paste starting at W. The specific line that has been
causing
me issues was line 9 I believe.

Line: oCell.EntireRow.Copy Destination:=Sheets("PTR").Range("W" &
Rows.Count).End(xlUp).Offset(1, 0)

This line should paste all of the reference data line into PTR starting at
W. Can you assist with this?

Sub Copy2()

Dim Rng As Range, Rng1 As Range, MyCell As Range, oCell As Range, i As Long
Set Rng = Sheets("Reference Data").Range("A1:A" & Sheets("Reference
Data").Range("A" & Rows.Count).End(xlUp).Row)
Set Rng1 = Sheets("PTR").Range("A1:A" & Sheets("PTR").Range("A" &
Rows.Count).End(xlUp).Row)
i = 0
For Each MyCell In Rng1
For Each oCell In Rng
If oCell.Value = MyCell.Value Then
oCell.EntireRow.Copy Destination:=Sheets("PTR").Range("A" &
Rows.Count).End(xlUp).Offset(1, 0)
i = i + 1
End If
Next oCell
Next MyCell
i = 0
' Referencedata Macro
'
' Keyboard Shortcut: Ctrl+b

End Sub

--

Dave Peterson


--

Dave Peterson

Do I paste this right into a basic module and run it as a standard macro?

"Dave Peterson" wrote:

Try changing this:
set rngtocopy = ocell.entirerow.resize(1,22)
to:
set rngtocopy = ocell.entirerow.range("L1:O1")





Kcope8302 wrote:

Pasting the whole row seemed like the easiest option. I only need 4 cells (
L,M.N,O) from Reference Data worksheet to be copied into that specific row
after a match in the A Column is found and put into the matching row in
PTR(W,X,Y,Z).

"Dave Peterson" wrote:

You can't paste the entire row if you're pasting into column W--or any column
but A!

Dim RngToCopy As Range
Dim DestCell as range

'A:V is 22 columns
set rngtocopy = ocell.entirerow.resize(1,22)

with worksheets("PTR")
Set Destcell = .cells(.rows.count,"W").end(xlup).offset(1,0)
end with

rngtocopy.copy _
destination:=destcell

=====
I like to use variables for my ranges instead of doing all the work in the .copy
command.


Kcope8302 wrote:

This is the current macro that I am using. This would work if it would paste
starting at W. I currently use it to populate A thru V from different
worksheets. I have changed the names of the worksheets but have yet to be
able to get it to paste starting at W. The specific line that has been
causing
me issues was line 9 I believe.

Line: oCell.EntireRow.Copy Destination:=Sheets("PTR").Range("W" &
Rows.Count).End(xlUp).Offset(1, 0)

This line should paste all of the reference data line into PTR starting at
W. Can you assist with this?

Sub Copy2()

Dim Rng As Range, Rng1 As Range, MyCell As Range, oCell As Range, i As Long
Set Rng = Sheets("Reference Data").Range("A1:A" & Sheets("Reference
Data").Range("A" & Rows.Count).End(xlUp).Row)
Set Rng1 = Sheets("PTR").Range("A1:A" & Sheets("PTR").Range("A" &
Rows.Count).End(xlUp).Row)
i = 0
For Each MyCell In Rng1
For Each oCell In Rng
If oCell.Value = MyCell.Value Then
oCell.EntireRow.Copy Destination:=Sheets("PTR").Range("A" &
Rows.Count).End(xlUp).Offset(1, 0)
i = i + 1
End If
Next oCell
Next MyCell
i = 0
' Referencedata Macro
'
' Keyboard Shortcut: Ctrl+b

End Sub

--

Dave Peterson


--

Dave Peterson

It would be incorporated into your existing code.

If you have trouble, share that existing code.

Kcope8302 wrote:

Do I paste this right into a basic module and run it as a standard macro?

"Dave Peterson" wrote:

Try changing this:
set rngtocopy = ocell.entirerow.resize(1,22)
to:
set rngtocopy = ocell.entirerow.range("L1:O1")





Kcope8302 wrote:

Pasting the whole row seemed like the easiest option. I only need 4 cells (
L,M.N,O) from Reference Data worksheet to be copied into that specific row
after a match in the A Column is found and put into the matching row in
PTR(W,X,Y,Z).

"Dave Peterson" wrote:

You can't paste the entire row if you're pasting into column W--or any column
but A!

Dim RngToCopy As Range
Dim DestCell as range

'A:V is 22 columns
set rngtocopy = ocell.entirerow.resize(1,22)

with worksheets("PTR")
Set Destcell = .cells(.rows.count,"W").end(xlup).offset(1,0)
end with

rngtocopy.copy _
destination:=destcell

=====
I like to use variables for my ranges instead of doing all the work in the .copy
command.


Kcope8302 wrote:

This is the current macro that I am using. This would work if it would paste
starting at W. I currently use it to populate A thru V from different
worksheets. I have changed the names of the worksheets but have yet to be
able to get it to paste starting at W. The specific line that has been
causing
me issues was line 9 I believe.

Line: oCell.EntireRow.Copy Destination:=Sheets("PTR").Range("W" &
Rows.Count).End(xlUp).Offset(1, 0)

This line should paste all of the reference data line into PTR starting at
W. Can you assist with this?

Sub Copy2()

Dim Rng As Range, Rng1 As Range, MyCell As Range, oCell As Range, i As Long
Set Rng = Sheets("Reference Data").Range("A1:A" & Sheets("Reference
Data").Range("A" & Rows.Count).End(xlUp).Row)
Set Rng1 = Sheets("PTR").Range("A1:A" & Sheets("PTR").Range("A" &
Rows.Count).End(xlUp).Row)
i = 0
For Each MyCell In Rng1
For Each oCell In Rng
If oCell.Value = MyCell.Value Then
oCell.EntireRow.Copy Destination:=Sheets("PTR").Range("A" &
Rows.Count).End(xlUp).Offset(1, 0)
i = i + 1
End If
Next oCell
Next MyCell
i = 0
' Referencedata Macro
'
' Keyboard Shortcut: Ctrl+b

End Sub

--

Dave Peterson


--

Dave Peterson


--

Dave Peterson