|
はじめまして。VBAを勉強して2週間になる初心者です。
↓は、"DATA"シートと"DATA_month"シートにフィルタをかけてコピーし、
"temp"シートに貼り付けるというものです。これをなんとかしてもっとシンプルに
したいと思うのですが、いくらやってもエラーが出てしまい困っております。
どなたかお力をお貸し下さい。よろしくお願いします。
店舗コード = Sheets("実績").Range("E5").Value
With Sheets("DATA")
.Activate
.Cells.AutoFilter Field:=2, Criteria1:="=" & 店舗コード
.Range("A1").Select
.Range("A:M").SpecialCells(xlCellTypeVisible).Copy
End With
Sheets("temp").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
Application.CutCopyMode = False
With Sheets("DATA_month")
.Activate
.Cells.AutoFilter Field:=2, Criteria1:="=" & 店舗コード
.Range("A1").Select
.Range("A:M").SpecialCells(xlCellTypeVisible).Copy
End With
Sheets("temp").Range("N1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
Application.CutCopyMode = False
|
|