|
詳しいシートのレイアウトが分からないので、簡単に書いてみました。
Private Sub CommandButton1_Click()
Dim KeyWord As String '検索キー
If ComboBox1.Value <> "" Then
KeyWord = ComboBox1.Value
With Worksheets("sheet1")
'オートフィルター
.Columns("A:A").AutoFilter Field:=1, Criteria1:=KeyWord
'抽出範囲のコピぺ
Range("A1").CurrentRegion.Copy _
Destination:=Worksheets("sheet3").Range("A1")
'オートフィルターモード解除
.AutoFilterMode = False
End With
ElseIf ComboBox2.Value <> "" Then
KeyWord = ComboBox2.Value
With Worksheets("sheet2")
'オートフィルター
.Columns("A:A").AutoFilter Field:=1, Criteria1:=KeyWord
'抽出範囲のコピぺ
Range("A1").CurrentRegion.Copy _
Destination:=Worksheets("sheet3").Range("A1")
'オートフィルターモード解除
.AutoFilterMode = False
End With
End If
End Sub
|
|