Excel VBA質問箱 IV

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

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


3643 / 13644 ツリー ←次へ | 前へ→

【60977】オートフィルタ抽出したデータをコピーしたい aribaba 09/3/29(日) 16:06 質問[未読]
【60978】Re:オートフィルタ抽出したデータをコピー... かみちゃん 09/3/29(日) 16:23 発言[未読]

【60977】オートフィルタ抽出したデータをコピーし...
質問  aribaba  - 09/3/29(日) 16:06 -

引用なし
パスワード
    Sheets("出荷明細_データベース)").Select
  ActiveSheet.Range("$A$1:$R$1552").AutoFilter Field:=12, Criteria1:="3"
  Range("A2:L300").Select
  Application.CutCopyMode = False
  Selection.Copy
  Sheets("加工").Select
  Range("A14").Select
  ActiveSheet.Paste
  Range("A24").Select
  ActiveSheet.Paste
  Sheets("出荷明細_データベース)").Select
  ActiveSheet.Range("$A$1:$R$1552").AutoFilter Field:=12, Criteria1:="4"
  Application.CutCopyMode = False
  Range("A2:L300").Select
  Selection.Copy
  Sheets("加工").Select
  Range("A34").Select
  ActiveSheet.Paste
  Range("A44").Select
  ActiveSheet.Paste
  ActiveWindow.SmallScroll Down:=12
  Range("A54").Select
  ActiveSheet.Paste
  ActiveWindow.SmallScroll Down:=12
  Range("A64").Select
  ActiveWindow.SmallScroll Down:=-57
ただし、先ほど話をしましたが、たとえば、ラベル枚数2〜4までを認識して捜操作しているですが(2の場合:元をコピーして、加工シートに貼り付け、3の場合:元をコピーして、加工シートに2回貼り付け、4の場合:元をコピーをして、加工のシートに3回貼り付け)、出荷明細_データベースの量によって、その数値を毎日変わります、いつかなの数値あるのか、もちろんない日もありますので、上記のままだと、枚数3ない場合、そのままコピーされます。最後加工シートに貼り付けたのをコピーして、出荷明細_データベースに最終セルに貼り付けして、Excelでデータ並び替えをしています。
得意先NO指示コード出荷日   出荷数    客先注番    枚数
4    I07170142 20080801   500    134509103-01M  34
4    I06300019 20080630   700    RCD8C8      47
4    I06300018 20080630   568    RCD8C7      38
14    I05120577 20080522   400    28817      27
教えてください。

【60978】Re:オートフィルタ抽出したデータをコピ...
発言  かみちゃん  - 09/3/29(日) 16:23 -

引用なし
パスワード
   こんにちは。かみちゃん です。

▼aribaba さん

>教えてください。

60970 からのスレッドと同じですか?
同じであれば、まだ答えが出ていませんが、考えていますけどね。

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