VBA copy&paste to changing destination

[barrythompson1982]

Hi all,

I have been searching all night for a solution to the below problem... any help would be appreciated.

I have a daily changing worksheet where I required the certain data to be copied and pasted to another worksheet for an annual summary of the all the daily data. The daily worksheet will contain the long date "January 1, 2018" where then I need the following 10 cells in the row to be copied to the annual summary worksheet.

Worksheet 1 "Daily Liquids Report"
Date is located in Cell AA1 and the data I required to be copied AB1:AJ1

Worksheet 2 "Daily Summary"
I have already preloaded the Date in Cell A4 and require the AB1:AJ1 data pasted into B4:J4

AB1:AJ1 is constant never changing cells however based on the date I need the copied data to move to the associated date range contained within A4:A368.
If possible it would be nice to only paste the values contained within AB1:AJ1 and not any formatting (colors, borders).

Is this possible? What is the easiest fasted route?

Thanks in advance.

 

[barrythompson1982]

Still need help with this.

 

[Legacy 421546]

https://www.excelcampus.com/vba/copy-paste-cells-vba-macros/

 

[barrythompson1982]

Thanks, That has got me started... still working on the paste to last row or based on the date lookup. Still struggling though so any additional help/ideas is appreciated

 

[barrythompson1982]

Preference would be to paste based on the date as if the operate makes a mistake running it 2x on the same day will just simply over write the data that is not correct.

 

[barrythompson1982]

Wahoo got it finally... Here is an update of what I did to make it work

1 - Formula referenced the data I needed copied to the sheet that I wanted it pasted on
2 - VLookup table added to reference the date I wanted the data pasted to
3 - Macro below that could be activated from the input sheet

Sub Code1()
Dim strCell As String
Sheets("Daily Summary").Select

strCell = Cells(9, "AA").Value
Sheets("Daily Summary").Select
Range("AB11:AO11").Select
Selection.Copy
Range(strCell).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Daily Liquids Report").Select
ActiveWindow.SmallScroll Down:=-12
Range("F3:L3").Select

End Sub

Happy Dance