I am just beginning to learn Excel macros. I was working on a sheet wherein I have to select a column dynamically, based on just the column header name. Let me explain.
Say there is an Excel Sheet which contains the following columns (from A1 to D1):
RecNo Cust_ID Cust_Name Contact_Num
Below these, there is customer data which is present. Now, I want to extract just the Cust_ID (from Column B) and Cust_Name (from Column C) for all the records.
However, the problem is that it is not necessary that Cust_ID would always be in Column B. Though the heading would always be Cust_ID, its location could change to Column C in some other sheet that has been generated and Cust_Name could instead have been present in Column B (the two columns that need to be extracted have been interchanged).
Using the match function, I am able to determine the position of the column, but after that I am not able to select that column.
The function I have used to determine the column number is given below:
WorksheetFunction.Match("Cust_ID", Range("A1:D1"), 0)
Just use these:
' Determining datasheet range.
Dim lngLastRow As Long
Dim lngLastCol As Long
Dim varDataSelect As Variant
' Select rows and columns range dynamically.
lngLastRowNum = ActiveCell.Row
lngLastCol = ActiveCell.Column
'Name of worksheet "MonthlyReceivedClaims_Data" start at Row 1 Column 1
'and end at ":R" & lngLastRowNum & "C" & lngLastCol
varDataSelect = "MonthlyReceivedClaims_Data!R1C1:R" & lngLastRowNum & "C" & lngLastCol
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
TableDestination:="", TableName:="PivotTable1", DefaultVersion:= _
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
'Also it helps to use the record macro function under Tools.
'Click record. Make the report or pivot table like you want it.
Then click stop record and edit code as needed.
Thanks to AM
for this tip on the forum.
Published by aakai1056
Latest update on January 20, 2010 at 06:20 PM by aakai1056.