Sorting macro

[kamal1jacq]

Hi,

The below macro does not help me to sort data. Can someone help me in to sort the data through macro or correct the below coding and help me to identify what the mistake is.


Sub sorting()


' Sorting Macro



'CODING TO CHECK THE NETTING UPLOADED
MsgBox "open Netting uploaded template"
C = Application.GetOpenFilename
Set Wrk3 = Workbooks.Open(C)
Application.GoTo ActiveSheet.Range("A1"), True


Dim rStart As Range
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Set rStart = Selection
With ActiveSheet.Sort
.SortFields.Add Key:=Range("A1"), Order:=xlAscending
.Header = xlYes
.Apply
End With




End Sub

 

[MARK858]

A bit hard to give you an answer as you don't describe what you want the sort to do, what your data looks like, whether your data is constants or what is wrong with the result you are getting so I will start by asking what the code below does...

Sub bbb()
C = Application.GetOpenFilename
Set Wrk3 = Workbooks.Open(C)
Range("A1").CurrentRegion.Sort Range("A1"), xlAscending, , , , , , xlYes
End Sub

 

[kamal1jacq]

Thanks. I got the issue solved with the below coding

Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom