Excel VBA質問箱 IV

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

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


54338 / 76732 ←次へ | 前へ→

【27190】Re:オートフィルタで抽出したものを別シート...
発言  Jaka  - 05/8/1(月) 14:44 -

引用なし
パスワード
   >tblR.Copy Destination:=Sheets("" & i & "").Range("a3")
>'それをそれぞれのシートにコピー
>で「インデックスが有効範囲にありません」とデバッグかかってしまいます。

  Set tblR = .Range(.Cells(9, 1), .Cells(.Range("a65536").End(xlUp).Row, maxcol))
  Sheets("" & i & "").Select '← これ入れて、動くか確認してみるとか..。
  tblR.Copy Destination:=Sheets("" & i & "").Range("a3")

シート名を数字だけにすると、インデックス番号と間違える可能性もないとはいえないと思うので、出来たら止めた方が良いと思います。

因みに、こんな感じでした。

Dim st As String, i As Integer
i = 2
Sheets(i).Select  'インデックス番号で選択
i = 1
Sheets("" & i & "").Select '普段、1度もこう書いた事は無いけど
              '文字列処理されて、シート名で選択していた。
st = 3
Sheets(st).Select 'シート名で選択


>B10の納入コード(NO,○○-○○)を
>コピー先(各アイテムNO,で抽出したsheet)のA列に入れたいのですが
提示されたデータ例だと1〜6の番号ですよね。入ってませんでしたか?
こちらでは、提示されたデータでやってみましたが入ってましたよ。

>上記のどの部分にどう追加すればいいのかわかりません。難点は、アイテムNO , の数がユニークですので、納入コードが何行ごとに入るかはバラバラなんです。
こちらにしてみても、バラバラのデータがどうなっているのか解らないとなんともいえません。
どんなふうにバラバラになっているのでしょうか??

最終的なものが、どういう風にしたいのか言葉だけでは良く解りません。
シートレイアウトなどを書いて、説明された方がいいと思います。
回答側としては、よく伝わらない質問内容を、掲載されたデータと最終結果を判断材料にしたりします。

2 hits

【27094】オートフィルタで抽出したものを別シート... RIKU 05/7/28(木) 20:37 質問
【27128】Re:オートフィルタで抽出したものを別シー... Jaka 05/7/29(金) 14:10 回答
【27147】新たな問題点3-5 RIKU 05/7/30(土) 4:21 質問
【27148】Re:オートフィルタで抽出したものを別シー... RIKU 05/7/30(土) 5:03 質問
【27190】Re:オートフィルタで抽出したものを別シー... Jaka 05/8/1(月) 14:44 発言

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