Hi all,
My sheet gets production numbers via a getpivotdata formula. That part works fine.
My problem is that the original Pivot is only valid for today and I need to track numbers for a whole year.
So I use getpivotdata to show me what we did today, but this only shows me what we did today. Yesterday is blank because there is no yesterday in the pivot table. That kills historical productivity data. I can't format the pivot to include data for the year because that would bog everything down.
I'm trying to get around this problem by hard-copying the results as only a value. I only want to do this in the row for today. All older dates should be ignored and the historical value remains unchanged.
Calendar dates are listed in Range A3:A367
So the question is: How can I set the range to only be for today?
My macro looks like this but I need to adjust the range part for the selection and copy. Any help would be appreciated.
Range("C3:C367").Select
Selection.Copy
Range("D3:d367").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cheers
Tex1966
My sheet gets production numbers via a getpivotdata formula. That part works fine.
My problem is that the original Pivot is only valid for today and I need to track numbers for a whole year.
So I use getpivotdata to show me what we did today, but this only shows me what we did today. Yesterday is blank because there is no yesterday in the pivot table. That kills historical productivity data. I can't format the pivot to include data for the year because that would bog everything down.
I'm trying to get around this problem by hard-copying the results as only a value. I only want to do this in the row for today. All older dates should be ignored and the historical value remains unchanged.
Calendar dates are listed in Range A3:A367
So the question is: How can I set the range to only be for today?
My macro looks like this but I need to adjust the range part for the selection and copy. Any help would be appreciated.
Range("C3:C367").Select
Selection.Copy
Range("D3:d367").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Cheers
Tex1966