[[20130920103226]]　『並び替えの方法について』（あん）　ページの最後に飛ぶ

『並び替えの方法について』（あん）
Win7　Excel2013

下記のコード※1に、記録マクロでつくった※2をつけたのですが、実行時エラー1004　RangeクラスのSelectメソッドに失敗しましたとなります
色々試してみましたが無理でした。

記録マクロ単体ですと動作します。

皆様、よろしくお願いいたします。

Private Sub CommandButton6_Click()
※1
Worksheets("カレンダー").Range("A2:N1000").Copy
Worksheets("カレンダー").Range("W2:AJ1000").PasteSpecial Paste:=xlPasteValuesAndNumberFormats

Worksheets("カレンダー").Range("A1002:N2001").Copy
Sheets("カレンダー").Cells(Rows.Count, "W").End(xlUp).Offset(1).PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False

※2
ActiveWorkbook.Worksheets("カレンダー").Sort.SortFields.Clear
Worksheets("カレンダー").Range("W2:AK1000").Select
ActiveWorkbook.Worksheets("カレンダー").Sort.SortFields.Add Key:=Range( _
"AD2:AD1000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("カレンダー").Sort.SortFields.Add Key:=Range( _
"AI2:AI1000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("カレンダー").Sort.SortFields.Add Key:=Range( _
"AG2:AG1000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("カレンダー").Sort
.SetRange Range("W2:AJ1000")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

 ボタンが カレンダーシートにないのだと思いますが、Select できるのは
 アクティブシートに対するセルだけですので、選択の必要がないのであれば
 Worksheets("カレンダー").Range("W2:AK1000").Select 
 は削除してはどうでしょうか。
 (Mook)

MooK様　
一行削除したら、うまく動きました

また、Selectについても理解できました。

ありがとうございます（あん）

コメント返信：

[ 一覧(最新更新順) ]

[[20130920103226]] 『並び替えの方法について』（あん） ページの最後に飛ぶ

[[20130920103226]]　『並び替えの方法について』（あん）　ページの最後に飛ぶ