VBAのsortで「実行時エラー’1004′ アプリケーション定義またはオブジェクト定義のエラーです。」

Question

Excel2019のVBAで並び替えを行いたいのですが「実行時エラー’1004′ アプリケーション定義またはオブジェクト定義のエラーです。」が出て困っています。
bookを指定する前までは正常に並べ替えられていたと思います。
勤務.xlsmの転記シートのM3,N3,B3,P3にはちゃんと値が入っています。

Sub test()
Dim candp As Workbook
Set candp = Workbooks("勤務.xlsm")
Dim maxRow as integer
maxRow = candp.Worksheets("転記").Range("A1").End(xlDown).Row
candp.Worksheets("転記").Range(candp.Worksheets("転記").Cells(3, 1), candp.Worksheets("転記").Cells(maxRow - 1, 17)).Sort key1:=candp.Worksheets("転記").Range("M3"), order1:=xlAscending, Key2:=candp.Worksheets("転記").Range("N3"), order2:=xlAscending
candp.Worksheets("転記").Range(candp.Worksheets("転記").Cells(3, 1), candp.Worksheets("転記").Cells(maxRow - 1, 17)).Sort key1:=candp.Worksheets("転記").Range("B3"), order1:=xlAscending, Key2:=candp.Worksheets("転記").Range("P3"), order2:=xlAscending
End Sub

改善点ご教示お願い致します。

Answer 1

このコードが 勤務.xlsm に書かれているものだと想定した上で、
一旦このように書き直してみました。

Sub test()
    Dim candp As Workbook
    Set candp = ThisWorkbook
    
    Dim ws As Worksheet
    Set ws = candp.Worksheets("転記")
    
    Dim maxRow As Long
    maxRow = ws.Range("A1").End(xlDown).Row
    
    ws.Range(ws.Cells(3, 1), ws.Cells(maxRow - 1, 17)).Sort key1:=ws.Range("M3"), Key2:=ws.Range("N3")
    ws.Range(ws.Cells(3, 1), ws.Cells(maxRow - 1, 17)).Sort key1:=ws.Range("B3"), Key2:=ws.Range("P3")

End Sub

Comments

[himawari39]

ご教示ありがとうございます。