How to sort data using a custom list which contains numbers using VBA?

[Pramodpandit123]

I have a Custom List made which contains Numbers only and when I try to sort the Data's using the Custom List, it simply sorts the Data's in Ascending/Descending order and does not sort based on the arrangement of Custom List. How do we sort the data using a Custom List containing Numbers only.

The idea that i came up with is to add a string to the Custom List data as well as data that need to be sorted and then sort it.
Is it possible to sort data's without changing/adding anything in active worksheet ?

Link to sample file : Samplenew.xlsm
While trying the sample file: Try using both Numeric and String column data ! Replace the Blue colored cells on both sheets with Numeric and String column data !After that run the macro and you'll see that Numeric data will sort on ascending order irrespective to Custom list where as String data will sort based on Custom list.

Crossposted at- How to sort data using a custom list which contains numbers using VBA?

 

[johnnyL]

Not sure what you are looking for.

Can you post your starting data, the result you get, the result you want it to be.

 

[Fluff]

How about

Sub Sample()
Set rng1 = Sheet1.Range("A4", Sheet1.Range("X" & Rows.Count).End(xlUp))
Set rng2 = Sheet2.Range("M10", Sheet2.Range("M10").End(xlDown))

lst = Join(Application.Transpose(rng2.Value2), ",")
With Sheet1.Sort
   .SortFields.Clear
   .SortFields.Add Range("a4"), , , CStr(lst)
   .SetRange rng1
   .Header = xlNo
   .Apply
   End With
End Sub

 

[Pramodpandit123]

Thank you Mr.Fluff !

 

[Fluff]

Glad we could help & thanks for the feedback.