Want to short column by searching the heading with vba

[Abhimannu]

Can someone help me to write a vba code to search column heading and then sort it

 

[MARK858]

Search for what? in what row? Sort what (If you are sorting just the heading it just stays there)?

Basically supply the relevant details.

 

[Abhimannu]

i have tried one, mentioned below, but getting error " Run-time error '1004': Method 'Range' of object '_worksheet' failed."

Dim rangecount As Integer
Dim colcount As Integer
Dim ra As Range


Set ra = Worksheets("After Removing Duplicates").Cells.Find("Start time", LookAt:=xlWhole)
If ra Is Nothing Then
MsgBox "Name was not found."
Else
MsgBox "Name found at :" & ra.Address
MsgBox ("value of ra variable is " & ra.Value)
End If

ActiveWorkbook.Worksheets("After Removing Duplicates").Sort.SortFields.Add2 Key _
:=Range(ra.Column & "2:" & ra.Column & rangecount), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal

 

[MARK858]

First of all you haven't answered the questions asked.
Second on what line is the error occurring?

 

[Abhimannu]

Search for what? in what row? Sort what (If you are sorting just the heading it just stays there)?

Basically supply the relevant details.

I want to search for "Start Time" column, then want to sort the rows of table, based on values in column heading "Start Time". Since the actual code is to big I am providing part of it only.

Dim rangecount As Integer
Dim colcount As Integer
Dim ra As Range


Sheets("After Removing Duplicates").Select
rangecount = ActiveSheet.UsedRange.Rows.Count
colcount = ActiveSheet.UsedRange.Columns.Count


Set ra = Worksheets("After Removing Duplicates").Cells.Find("Start time", LookAt:=xlWhole)
If ra Is Nothing Then
MsgBox "Name was not found."
Else
MsgBox "Name found at :" & ra.Address
MsgBox ("value of ra variable is " & ra.Value)
End If


ActiveWorkbook.Worksheets("After Removing Duplicates").Sort.SortFields.Add2 Key _
:=Range(ra.Column & "2:" & ra.Column & rangecount), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal

 

[Abhimannu]

First of all you haven't answered the questions asked.
Second on what line is the error occurring?

I want to search for "Start Time" column, then want to sort the rows of table, based on values in column heading "Start Time".

getting error message of " Run-time error '1004': Method 'Range' of object '_worksheet' failed." at below line

ActiveWorkbook.Worksheets("After Removing Duplicates").Sort.SortFields.Add2 Key _
:=Range(ra.Column & "2:" & ra.Column & rangecount), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal

 

[MARK858]

Post your full code in code tags (paste your code, select it and click the # icon).

Or try

Sub XXXX()
    Dim rangecount As Integer
    Dim colcount As Integer
    Dim ra As Range


    Set ra = Worksheets("After Removing Duplicates").Cells.Find("Start time", LookAt:=xlWhole)
    If ra Is Nothing Then
        MsgBox "Name was not found."
    Else
        MsgBox "Name found at :" & ra.Address
        MsgBox ("value of ra variable is " & ra.Value)
    End If

    ra.Sort Key1:=ra.EntireColumn, Order1:=xlAscending, Header:=xlYes
End Sub

 

[Abhimannu]

Post your full code in code tags (paste your code, select it and click the # icon).

Or try

Sub XXXX()
    Dim rangecount As Integer
    Dim colcount As Integer
    Dim ra As Range


    Set ra = Worksheets("After Removing Duplicates").Cells.Find("Start time", LookAt:=xlWhole)
    If ra Is Nothing Then
        MsgBox "Name was not found."
    Else
        MsgBox "Name found at :" & ra.Address
        MsgBox ("value of ra variable is " & ra.Value)
    End If

    ra.Sort Key1:=ra.EntireColumn, Order1:=xlAscending, Header:=xlYes
End Sub

Thanks a lot. it is working fine.
actually i am trying to prepare report of 16 different file using single vba code, for that i need to sort all files based on three different column, then need to remove duplicate entries and then respective 16 pivot tables are need to refreshed.

Till now 1 file is done with help of your code. Thanks again.