Oct 05 2023 06:16 AM
I have been using a spreadsheet that friend made a few years ago that has a macro embedded in it. This past week, Excel has updated to a newer version and now I am receiving a Run-Time error message and am unable to run the macro.
Here is the Runtime Error:
When I click on "Debug", I'm brought to the Macro code and this part is highlighted:
(If the image is too small, the part highlighted reads "Selection.PasteSpecial Paste:=xlPasteValues, Operation:xlNone, SkipBlanks _ :=False, Transpose:=False")
I'm assuming that something in this part of the code is no longer compatible with the most recent Excel update. Any ideas on how to tweak this code so that I can run the macro?
Thanks in advance.
Oct 05 2023 06:47 AM
I have no idea why the error occurs, but try replacing the lines
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
with
With ActiveSheet.UsedRange
.Value = .Value
End With
Oct 05 2023 06:54 AM
Oct 05 2023 07:23 AM
Since you activate another sheet immediately after that, the line
Range("Table1[[#Headers],[Record ID'#]]").Select
isn't needed. I'd either remove it or turn it into a comment by inserting an apostrophe (single quote) before it.
Oct 05 2023 08:15 AM
And now a this section is now highlighted:
ActiveSheet.PivotTables("PivotTable1").ChangePivotCache ActiveWorkbook. _
PivotCaches.Create(SourceType:=xlDatabase, SourceData:="Table1", Version _
:=xlPivotTableVersion15)
(Sorry, I'm not really knowledgeable with the coding part of macros...)
Oct 05 2023 08:54 AM
This is going to take too long.
Could you attach a small sample workbook demonstrating the problem (without sensitive data), or if that is not possible, make it available through OneDrive, Google Drive, Dropbox or similar?