|
どうもよろしくお願いします。
以下のコードで、「コンボボックス絞り込み」で得た値でシート1を、
オートフィルタで絞り込みシート2にコピーしようと思っていますが、
なぜか絞り込まれずにすべてコピーされてしまいます。
どこが間違っているのか分からず苦しんでいます。
どなたかご教授いただければ大変助かります。
Sub 検索データ取得()
Dim i As String
Dim j As Variant
Dim l As Long
Dim m As String
With frm1
i = .cbx絞込み.Text
End With
j = Sheets("1").Range("B116") '絞込みの対象列の指定番号
With Worksheets("1") 'コピー元のシート
.Range("A1").AutoFilter Field:=j, Criteria1:=i
.Range("A1").CurrentRegion.SpecialCells(xlVisible).Copy _
Worksheets("2").Range("A1") 'コピー先のシート
.Range("A1").AutoFilter
End With
|
|