Last seen: May 22, 2025
In that case you can make whatever changes are required, then use ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "" & Range("B15").Value ...
Also cross-posted here:
It will depend on how you removed the other columns. If you removed them explicitly then you'll just need to edit the query to remove the step that go...
You could use Replace.ReplaceValue instead of Replace.ReplaceText. It will have the side effect of converting the column type to Any rather than Text ...
What format is your template? Is it an actual template or a normal workbook that you use as a template and, if the latter, is it also saved in xlsb fo...
Your code works fine here in Office 2016. Do you get the error with any template or just a specific one? Also, you should learn the rules on c...
They are defined names. You can delete them with some code like this: Sub ClearNames() Dim nm as name On Error Resume Next for each n...
If you're using the data model, you could also create a set that only shows the second calculation at the grand total level, not the individual rows.
What is the actual error message? I did't get any errors with that one.
In the sample you posted it does work for weekly but not for daily because the daily pivot table is blank. Its data source is set to 'Station Data'!$Q...
Your pivot table's data source is set to a blank range, so you can't refresh it.
That's pretty hard to answer without seeing any of your code. 🙂
Specify an action for the values column (eg Sum). The formula should look like: = Table.Pivot(#"Changed Type", List.Distinct(#"Changed Type"[H...
There is no code there to change font? Application.Caller will only work if the code is called by clicking a button.
You can't write Or criteria like that - you have to repeat the test of the shape name each time. If shp.Name = "btn_Hetton" Or shp.Name = "btn_GMH"...