|
VBA初心者です。
以下のソースをSelect Caseになおしたかったのですが、
うまくいきません。
どなたか教えてください。
Sub Test()
Set WS1 = Worksheets("A")
Set WS2 = Worksheets("B")
Set WS3 = Worksheets("C")
Workbooks.Open (data.xls)
With Worksheets("data").Range("X6")
.AutoFilter Field:=10, Criteria1:="OK"
.CurrentRegion.SpecialCells(xlVisible).Copy WS2.Range("A6")
.AutoFilter Field:=10, Criteria1:="NG"
.CurrentRegion.SpecialCells(xlVisible).Copy WS3.Range("A6")
.AutoFilter Field:=10, Criteria1:="<>OK", Operator:=xlAnd, _
Criteria2:="<>NG"
.CurrentRegion.SpecialCells(xlVisible).Copy WS1.Range("A1")
.AutoFilter
End With
WS1.Activate
End Sub
|
|