AUTO SORT

[apgmin]

In Cells T4:T500, I make the user fill the donors name, I already have a data validation for these cells to prevent duplicate entry

Now in Cells A4:A5000, I use the data validation for list range T4:t500

Can anyone please suggest a formula for T4:T500 such that when ever the user fills the donors name in this range, it gets auto sorted when pressed enter after entry, so that it will be easy for him to select the same from the list when filling Cells A4:A5000

 

[footoo]

I think you need VBA :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then
    Exit Sub
ElseIf Not Intersect(Target, [T4:T500]) Is Nothing Then
    [T4:T500].Sort Key1:=[T4], Order1:=xlAscending, Header:=xlNo
End If
End Sub

 

[apgmin]

I think you need VBA :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then
    Exit Sub
ElseIf Not Intersect(Target, [T4:T500]) Is Nothing Then
    [T4:T500].Sort Key1:=[T4], Order1:=xlAscending, Header:=xlNo
End If
End Sub

there are 3 sheets in the file, I pasted the above VB as a module on the worksheet ( not under individual sheets ) and saved the file as macro enabled. It is not working, The cells T4:T500 are in the sheet named "Receipts", DO I need to make any changes in the above or insert the VB module in the said sheet, Tried with the following also , still not working

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then
Exit Sub
ElseIf Not Intersect(Target, ['RECEIPTS'!T4:T500]) Is Nothing Then
['RECEIPTS'!T4:T500].Sort Key1:=[T4], Order1:=xlAscending, Header:=xlNo
End If
End Sub

 

[footoo]

Put it in the Receipts sheet module. Don't make any changes to the code.

 

[apgmin]

Put it in the Receipts sheet module. Don't make any changes to the code.

still not working, DO I have to put some command or it will autosort after in enter the next entry in the list?

 

[footoo]

It will auto-sort after you make an entry to a single cell in T4:T500.

 

[apgmin]

It will auto-sort after you make an entry to a single cell in T4:T500.

NOT WORKING

AN

BC

BA

AD

 

[footoo]

Works for me.

 

[apgmin]

Sorry to bother you repeatedly, but can you tell me what I am doing wrong?
I pressed ALT+F11, then Insert module after selecting the kali mandir receipt sheet, pasted the code in the module and saved, then saved file as macro enabled file

 

[footoo]

Check :
- the code is in correct sheet module (i.e. the sheet containing the T4:T500 list)
- your macro settings allow macros to run
- if still no good, try closing Excel and re-opening (in case event procedures have been disabled)
- try putting a breakpoint against the first line of the macro to see if is being triggered