Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


3544 / 13645 ツリー ←次へ | 前へ→

【61527】ソート時のエラー サッカー 09/5/14(木) 16:23 質問[未読]
【61530】Re:ソート時のエラー Jaka 09/5/14(木) 17:20 発言[未読]

【61527】ソート時のエラー
質問  サッカー  - 09/5/14(木) 16:23 -

引用なし
パスワード
   いつも参考にさせていただいております。
当方win2000,excel2000を使用しております。

マクロを動かしたときに【実行時エラー"1004" 並べ替えの参照がただしくありません。並べ替えるデータ内にあることと、[最優先されるキー]ボックスが空白でないことを確認してください。】と表示されてしまいます。

以下にマクロを記載させていただきます。(毎月このマクロを動かしてますが、
今回初めて発生しました。)
-------------------------------------------------------------------
Sub u_hen4()

  Windows("data.xls").Activate
  
  Sheets("DL_TEST.TXT").Select
  Columns("A:B").Clear
  Range("C1").sort Key1:=Range("C1"), Order1:=xlAscending
  
  Sheets("USER.txt").Select
  Columns("A:B").Clear
  Range("C1").sort Key1:=Range("C1"), Order1:=xlAscending
End Sub
--------------------------------------------------------------------

このUSER.txtというシートだけでこのエラーが発生します。

シートにはA列からK列までデータが入っております。
ちなみにこの2つのシートの違いはC列の1行目にデータが入っているかいないかの
違いぐらいです。(ただ、今までも1行目にデータが入っていなくてもうまくいって
いたと思います。)
手動にて昇順ソートをかけてもD〜G列が選択され同じエラーが表示されます。

長くなって申し訳ありませんが、非常に困っております。
どなたかお力を貸していただけないでしょうか。
よろしくお願い致します。

【61530】Re:ソート時のエラー
発言  Jaka  - 09/5/14(木) 17:20 -

引用なし
パスワード
   検索と同じで前回使用した設定が残っているとか、
他、データレイアウト罫線有り無し太さセルの色などで
前回と違うソート条件が自動で使われたとか...。

>  Range("C1").sort Key1:=Range("C1"), Order1:=xlAscending
こういうのは何でも省力すれば良いって物じゃないので、
格好付けずにマクロ記録した物をそのまま使いましょう。

3544 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free