Brush up on the basics or master the advanced techniques required to earn essential industry certifications, with Courses. Enroll in a course and start learning today. Training topics range from Android App Dev to the Xen Virtualization Platform.
Dim arrColumns Dim nColumns As Integer Dim wsReport, wsData As Worksheet Dim pvtTable As PivotTable Application.ScreenUpdating = False Set wsReport = Worksheets(sReportType) Set wsData = Worksheets(sReportType & "Query") theDataSource = sReportType & "Results" 'Put the Column Headings of the Query Results into an array wsData.Select col = Range("A1").End(xlToRight).Select nColumns = Selection.Column ReDim arrColumns(nColumns - 1) For i = 0 To nColumns - 1 arrColumns(i) = Cells(1, i + 1).Value Next 'Clear the old pivot table and place the pivot table fields wsReport.Select Set pvtTable = wsReport.Range("A10").PivotTable pvtTable.ClearTable 'this is the line that causes the message
|VBscript: send notification based on list.csv v2 (folder, destination)||13||22|
|VBA code to open new email message (Contact Us)||3||32|
|is VBA going to die in another decade? what is the Office.JS is it going to replace VBA?||4||47|
|Data in Rows to be converted into single row||9||39|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
10 Experts available now in Live!