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