Excel VBA質問箱 IV

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

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


21160 / 76732 ←次へ | 前へ→

【60974】Re:オートフィルタ抽出したデータをコピーしたい
質問  [名前なし]  - 09/3/28(土) 23:36 -

引用なし
パスワード
   ありがとうございます。一応自動記録しましたが、このような
Sheets("出荷明細_データベース)").Select
  ActiveWindow.SmallScroll Down:=-6
  ActiveSheet.Range("$A$1:$R$1552").AutoFilter Field:=12, Criteria1:="2"
  Range("A2:L300").Select
  Selection.Copy
  Sheets("加工").Select
  Range("A2").Select
  ActiveSheet.Paste
  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    J03100022    20090323    CC    MTV2RNM6G     科学支店    60    1    134512799-01M    0    0    6
19    J03100041    20090323    CC    MTV35/16U2     thcare Bio-Sciences    29    1    2000221/111    0    0    3


▼かみちゃん さん:
>こんにちは。かみちゃん です。
>
>> これは毎日の作業なので、ボダンひとつで処理できないかな〜と思いまして、できないでしょうか?
>
>もちろんできるのですが、
>フィルタオプションの設定だと抽出条件をコードに記述しておく必要はありません。
>
>あとは、いずれの方法も、「マクロの記録」で記録すれば、ある程度のコードは
>自動的に記述されます。
>
>一度試してみて、わからないことがあれば、記録したコードを提示して質問されては
>いかがでしょうか?

0 hits

【60970】オートフィルタ抽出したデータをコピーしたい [名前なし] 09/3/28(土) 19:27 質問
【60971】Re:オートフィルタ抽出したデータをコピー... かみちゃん 09/3/28(土) 19:35 発言
【60972】Re:オートフィルタ抽出したデータをコピー... [名前なし] 09/3/28(土) 22:31 発言
【60973】Re:オートフィルタ抽出したデータをコピー... かみちゃん 09/3/28(土) 22:46 発言
【60974】Re:オートフィルタ抽出したデータをコピー... [名前なし] 09/3/28(土) 23:36 質問
【61037】Re:オートフィルタ抽出したデータをコピー... aribaba 09/4/5(日) 10:31 質問
【61038】Re:オートフィルタ抽出したデータをコピー... かみちゃん 09/4/5(日) 12:02 発言
【61040】Re:オートフィルタ抽出したデータをコピー... aribaba 09/4/5(日) 16:29 発言
【61041】Re:オートフィルタ抽出したデータをコピー... かみちゃん 09/4/5(日) 16:54 発言
【61042】Re:オートフィルタ抽出したデータをコピー... aribaba 09/4/5(日) 17:23 お礼
【61039】Re:オートフィルタ抽出したデータをコピー... かみちゃん 09/4/5(日) 12:43 発言
【61043】Re:オートフィルタ抽出したデータをコピー... aribaba 09/4/5(日) 17:51 質問
【61044】Re:オートフィルタ抽出したデータをコピー... aribaba 09/4/5(日) 17:53 質問
【61045】Re:オートフィルタ抽出したデータをコピー... かみちゃん 09/4/5(日) 18:27 発言
【61351】Re:オートフィルタ抽出したデータをコピー... aribaba 09/4/29(水) 13:58 お礼

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