|
▼ponpon さん:
ponponさんお忙しい中ありがとうございます。テストをしてみたのですがtest1はうまくいきますが,test2の方はsheet2の1行目だけがsheet3に移るだけというものになってしまいます。下記のコードです。フィルターにかかったアクティブな領域が移るはずですよね。
Private Sub CommandButton1_Click()
Worksheets("sheet3").Range("A1").CurrentRegion.ClearContents
With Worksheets("sheet2")
.Range("A1").CurrentRegion.AutoFilter Field:=1, Criteria1:=">=textbox1.text", Operator:=xlAnd, _
Criteria2:="<=textbox2.text"
.Range("A1").CurrentRegion.AutoFilter Field:=2, Criteria1:="textbox3.text"
.Range("A1").CurrentRegion.Copy
Worksheets("sheet3").Range("A1").PasteSpecial
Range("A1").CurrentRegion.AutoFilter
Application.CutCopyMode = False
End With
End Sub
|
|