|
KANABUN様
さとちぃです。早速ご回答ありがとうございます。
すみません、私の説明が悪く、再度ご質問させていただきます。
(困っていること)
アクティブセルの値と名刺情報の会社名が全文一致で合う場合は問題ありませんが
”ABC”のみの表記のものがあった場合、つまり部分一致でヒットさせようとする場合
やり方が分からず困っています。
登録されている会社名は、ABCのみでなくいろいろあり、"*ABC*"のみの設定では難しいです。
それでは、一つ一つ設定すれば良いと考えましたが、1000社程度あり、とても無理だと
考えてます。
教えていただいた内容を元に、以下のように作成してみましたが、
Worksheets("名刺情報").Range("A2:A1000").AutoFilter Field:=1, Criteria1:="*kaisyamei*"
の部分で、
実行時エラー1004 RangeクラスのAutofilterメソッドが失敗しました
との結果がきました。
Sub オールラウンド拠点情報からの名刺情報検索()
Dim kaisyamei As Range
Dim N As Long
Dim i As Worksheet
Set kaisyamei = ActiveCell
Worksheets("名刺情報").Select
If N = InStr(ActiveCell, " ") Then
Worksheets("名刺情報").Range("A2:A1000").AutoFilter Field:=1, Criteria1:="*kaisyamei*"
End If
End Sub
大変申し訳ありませんが、教えていただけませんでしょうか?
また、AutoFilterではなく配列等別の方法で同様の操作が可能であれば、おしえていただけませんでしょうか?
|
|