Additional Q on Macro to Move Entry to Last Line of a List

  • Thread starter Thread starter Tysone
  • Start date Start date
T

Tysone

One more Q arose on this.

In this, is there a way to make it, COPY, paste special values too?


Sub copytolist()
Sheets("Data Enter").Activate
Range("A2:C2").Copy Destination:=Sheets("Data List") _
.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End Sub




Thanks

Tyson
 
try adding this to the bottom of your Macro

ActiveSheet.Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
 
No that wont work because that removes all the formulas on the "Data
Entry" tab and turns them ALL into values. I just need A2:C2 to be
copied paste special vales to the "Data List" Tab. Anyone else care
to take a swipe at this?

Thanks

Tyson


Sub copytolist()
Sheets("Data Enter").Activate
Range("A2:C2").Copy Destination:=Sheets("Data List") _
.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End Sub
 
Back
Top