|
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
教えてください。
|
|