Select until last row

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

FAQ

Mark Forums Read

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 »

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

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:56 AM.