Select until last row

		Microsoft Office Forums > Microsoft Excel > Excel Programming
Select until last row

FAQ

Thread Tools

Display Modes

08-12-2022, 10:48 AM

p45cal

Windows 10 Select until last row

Office 2019

Expert

Join Date: Apr 2014

Posts: 962

In the attached a macro:

Code:

Sub test()
Set PT = Sheets("Sum").PivotTables(1)
PT.TableRange1.Copy
Sheets("SumA").Range("F4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End Sub

Separately, a copy of your pivot table at cell B15 of the SumA sheet with a small adjustment to how things are displayed.

Attached Files

msofficeforums49492Selec Last Row vba.xlsm (334.1 KB, 6 views)

« Previous Thread | Next Thread »

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Select entire text and then de-select certain Headings?	tq94	Word	3	02-26-2022 03:47 AM
select paragraphs	yacov	Word	2	10-25-2020 02:53 AM
How to select the end of a document?	ArtKilp	Word VBA	2	06-15-2020 06:44 PM
Select a row in a different tab	cosmicyes	Excel Programming	1	07-09-2018 02:47 AM
How to select row	aymanharake	Excel Programming	3	02-18-2017 04:09 PM

Other Forums: Access Forums

All times are GMT -7. The time now is 05:22 AM.