You can use this Code :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then
Target.CurrentRegion.Offset(1).Sort
Key1:=Target.CurrentRegion.Offset(1).Cells(1,
Target.CurrentRegion.Offset(1).Columns.Count)
End If
End Sub
Regards
Rajan verma
+
many thanx noorain
On Tue, May 8, 2012 at 1:12 PM, NOORAIN ANSARI wrote:
> Dear Prashant,
>
> Please use below code..
>
> *Sub Data_sorting()*
> *Sheet2.Activate*
> *Cells.Select*
> *Selection.Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlYes, _*
> *OrderCustom:=1, MatchCase:=Fal
Dear Prashant,
Please use below code..
*Sub Data_sorting()*
*Sheet2.Activate*
*Cells.Select*
*Selection.Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlYes, _*
*OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _*
*DataOption1:=xlSortNormal*
*End Sub*
See attac