エクセルマクロで隣のシートへ値貼付け
取引先コードを指定すると、
ワークシート1の表でオートフィルターにより該当する取引先を抽出し、
それを隣のワークシート2へ値貼り付けようとしますが、上手くできません。
通常の貼付けでは、計算式などがずれるため、値貼付けにしたいと思っています。
通常の貼り付けはうまくいくのですが、値貼付けをしようとすると、できません。
値貼付けの記述をどう改善すればいいでしょうか。
宜しくお願い致します。
(1)オートフィルターをコピー+通常の貼り付け
With Worksheets(1).Cells(3, 20)
.AutoFilter Field:=20, Criteria1:=当月取引先
.CurrentRegion.SpecialCells(xlVisible).Copy Worksheets(2).Cells(9, 1)
.AutoFilter
End With
(2)オートフィルターをコピー+値貼り付け
With Worksheets(1).Cells(3, 20)
.AutoFilter Field:=20, Criteria1:=当月取引先
.CurrentRegion.SpecialCells(xlVisible).Copy Worksheets(2).Cells(9, 1).pastespecial paste:=xlpastevalues
.AutoFilter
End With