|
こんにちは
コードを見て同じセルに貼り付けているようですが
「Sheet1のG5やI5」です
参考までに。
Dim r As Long
Dim WS As Worksheet
Set WS = Worksheets("Sheet1")
With Worksheets("管理表マスター")
r = .Range("E65536").End(xlUp).Row
If .AutoFilterMode = False Then
.Range("K3:AE3").AutoFilter
End If
.Range("K3:AE" & r).AutoFilter Field:=21, Criteria1:="="
.Range("K3:AE" & r).AutoFilter Field:=1, Criteria1:=">2005/10/1", Operator:=xlAnd
.Range("K3:AE" & r).AutoFilter Field:=3, Criteria1:="ユーザー"
.Range("B513:F" & r).Copy
WS.Range("B5").PasteSpecial xlValues
.Range("H537:I" & r).Copy
WS.Range("G5").PasteSpecial xlValues
'以降コード省略
Application.CutCopyMode = False
.AutoFilterMode = False
End With
Set WS = Nothing
|
|