|
kobasanさん
早速のお返事ありがとうございます。
コードを以下の記述に変更してみましたが、状況は変わりませんでした。
またmsgboxでiとjの値を確認してみましたが、
msgbox上の値は少なくとも表示上はあっていました。
ちなみにこのモジュールは、frm1のcbx絞り込み(コンボボックス)をクリックしたときに動作させています。
やはりどこが違うのか分からず、困っています。
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")
Sheets("2").Cells.Clear
With Worksheets("1") 'コピー元のシート
MsgBox i
MsgBox j
.Range("A1").AutoFilter Field:=j, Criteria1:=i
.Range("A1").CurrentRegion.SpecialCells(xlVisible).Copy _
Worksheets("2").Range("A1") 'コピー先のシート
.Range("A1").AutoFilter
End With
End Sub
|
|