Hello,
This code is placing all the header names in the last row after sorting in descending order. Can you please help how to keep the position of column names fixed?
Thanks for your response. I want to use the code below to sort my columns by searching for columns header first, but the problem is that my headers are in the second row of the sheet and not the first row. Therefore, Header:= xlYes will not work as it will only work for the headers in 1st row. Can you please edit the code below so that I can get the headers to be read in the second column. This will solve my problem as headers will remain fixed and the rest of the data will be sorted in descending order. Thank you so much.
Sub sorting()
Dim col As String, cfind As Range
Worksheets(1).Activate
col = "sku"
Set cfind = Cells.Find(what:=col, lookat:=xlWhole)
ActiveSheet.Cells.Sort key1:=cfind, Header:=xlYes
End Sub
I want to use the code below to sort my columns by searching for columns header first
I'm assuming then that your "SKU" column will never be in the same place (it could be Column C or Column F or Column Z etc.) so try the code amended as follows:-
Sub Sorting()
Dim acell As Range
Set acell = Rows(2).Find(What:="sku", LookIn:=xlValues, LookAt:=xlWhole)
ActiveSheet.Range("A2").Sort acell.Offset(1), 2, Header:=xlYes
End Sub
I'm also assuming that your data starts in Column A, Row3.
- Posts
- 1251
- Registration date
- Thursday July 24, 2014
- Status
- Moderator
- Last seen
- September 29, 2019
205 -I'm assuming then that your "SKU" column will never be in the same place (it could be Column C or Column F or Column Z etc.) so try the code amended as follows:-
Sub Sorting() Dim acell As Range Set acell = Rows(2).Find(What:="sku", LookIn:=xlValues, LookAt:=xlWhole) ActiveSheet.Range("A2").Sort acell.Offset(1), 2, Header:=xlYes End SubI'm also assuming that your data starts in Column A, Row3.
The code above should sort your data descending.
I hope that this helps.
Cheerio,
vcoolio.