|
おはようございます。
i="a"
j = 1 'A列について '絞込みの対象列の指定番号
With Worksheets("1") 'コピー元のシート
.Range("A1").AutoFilter Field:=j, Criteria1:=i
.Range("A1").CurrentRegion.SpecialCells(xlVisible).Copy _
Worksheets("2").Range("A1") 'コピー先のシート
でやってみて、正常に動きますから、AutoFilterとCopyは正しくできています。
ひょつとしたら、前のデータの消し忘れ出はないですか。
Worksheets("2").cells.clear
を追加してみては。
それでも解決しない場合は、AutoFilterとCopy以外の
>With frm1
>i = .cbx絞込み.Text
>End With
>
>j = Sheets("1").Range("B116") '絞込みの対象列の指定番号
の値が正しいか、チェックしてみてください。
>どうもよろしくお願いします。
>以下のコードで、「コンボボックス絞り込み」で得た値でシート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") '絞込みの対象列の指定番号
>
Worksheets("2").cells.clear '追加
>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
|
|