Forum Discussion

Iank95's avatar
Iank95
Copper Contributor
Nov 23, 2020

Urgent Help Needed copy and pasting Values only when a condition is met

  Hi Everyone,    I have an excel table that tracks the % of items that are in progress for a team. This is live data so when the dataset changes, so does the table. I want to be able to copy ...
excel
Formulas and Functions
Macros and VBA
Iank95's avatar
Iank95
Copper Contributor
Nov 26, 2020

NikolinoDE 

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

NikolinoDE's avatar
NikolinoDE
Gold Contributor
Nov 26, 2020

Iank95 

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)

 

Resources