Forum Discussion
Urgent Help Needed copy and pasting Values only when a condition is met
From the picture I can not recognize or understand your plan (maybe also the translation).
Since the possibilities in Excel are very diverse, the possible solutions are also diverse.
Therefore, with your permission, please download a file (without sensitive data) with your request.
At the same time, I would ask you to name the Excel version and the operating system, as there may be different approaches to the proposed solution.
Thank you for your understanding and patience
Nikolino
I know I don't know anything (Socrates)
- Iank95Nov 26, 2020Copper Contributor
Hi Nikolino,
Thank you for your response, I will try to be clearer.
In the first screenshot, this is my source data table. This data flow has a connection to a SharePoint list so it is constantly changing (I have greatly simplified the data set).
The second screenshot is a summary pivot table that shows me how many projects are "In Progress" or "Not In Progress". This table is also continuously changing as the source data changes.
The final screenshot is the table that I am trying to populate. What I want to do is copy the data from the summary pivot table (2nd screenshot) every Friday (When the date condition is met) but I do not want that data entry to change as the source data changes. This will allow me to populate that table over time and see the trend on a week on week basis.
Please let me know if you can help as I am really stuck.
Thanks in advance
Ian
- NikolinoDENov 26, 2020Gold Contributor
As far as I could understand (... thanks to the translation, or maybe not) you want to copy certain areas from a workbook / worksheet to a new workbook / worksheet.
If this is the case, then maybe this VBA code could help you, you just have to set it up according to your ideas and let it run with a button.
It's just an idea.Sub TestCopypaste () Range ("A2: L2"). Select Selection.Copy Windows ("target mappe.xls"). Activate ActiveSheet.Paste Windows ("Data mappe.xls"). Activate Range ("A5: L5"). Select Application.CutCopyMode = False Selection.Copy Windows ("target mappe.xls"). Activate Sheets ("Table2"). Select ActiveSheet.Paste Windows ("Data mappe.xls"). Activate Range ("A8: L8"). Select Application.CutCopyMode = False Selection.Copy Windows ("target mappe.xls"). Activate Sheets ("Table3"). Select Range ("A2"). Select ActiveSheet.Paste End Sub
Thank you for your understanding and patience
Nikolino
I know I don't know anything (Socrates)