Автоматическая сортировка с Excel - VBA

Question

Это работало в течение самого долгого времени, но я думаю, что я мог бы что-то сделать, чтобы испортить его. Я проверил его и перепроверял, и он больше не сортирует мои данные. Код работает в других листах, но я не могу понять, почему он не работает над этим текущим.

Это дает мне ошибку «1004»: метод сортировки класса Range не удалось

Private Sub Worksheet_Change(ByVal Target As Excel.Range) 

'Don't run this code unless a value is last entered in column "H" 
    If Not Target.Column = "8" Then Exit Sub 

    'Prevents endless loops 
    Application.EnableEvents = False 



    'Assumptions 
    '1. Data only housed in Columns H 
    '2. The first row contains headings or labels 
    '3 Column "H" is used as the sort criteria 

     Me.UsedRange.Sort Key1:=Columns("H"), Order1:=xlAscending, _ 
     Header:=xlYes, OrderCustom:=1, MatchCase:=False, _ 
     Orientation:=xlTopToBottom 

    Application.EnableEvents = True 
    On Error Resume Next 
    ActiveWorkbook.Save 



End Sub 

Answer 1

Это, кажется, работает для меня:

Private Sub Worksheet_Change(ByVal Target As Range) 
'Don't run this code unless a value is last entered in column "H" 
    If Not Target.Column = 8 Then Exit Sub 
    MsgBox " " 
    'Prevents endless loops 
    Application.EnableEvents = False 



    'Assumptions 
    '1. Data only housed in Columns H 
    '2. The first row contains headings or labels 
    '3 Column "H" is used as the sort criteria 

     ActiveSheet.UsedRange.Sort Key1:=Columns("H"), Order1:=xlAscending, _ 
     Header:=xlYes, OrderCustom:=1, MatchCase:=False, _ 
     Orientation:=xlTopToBottom 

    Application.EnableEvents = True 
    ActiveWorkbook.Save 

End Sub 

Убедитесь, что вы «сортные» данные в столбце H