ワークシート内の一致する情報

Question

ユーザーは、ワークフロー、サーバー、場所、開始時間、依存性および実行時間である（Sheet1）に関する特定の情報を入力します。

私はヘッダーにこれらの名前を持つグラフを持っています。

私はユーザーが入れた情報を調べる必要があります。私はVLookupを使用しようとしましたが、それは1つの基準でのみ機能します。私が使うことができるものが他にありますか？

Sub Button2_Click() 
    'Copy the ticket number' 
    Worksheets("Sheet1").Range("c3").Copy _ 
     Destination:=Worksheets("Sheet3").Range("b2") 
    Call CopyTable 
    Call FINDSAL 
End Sub 

Sub CopyTable() 
    ' 
    ' CopyTable Macro to sheet 3 
    ' 
    Sheets("Sheet2").Select 
    Range("D1:I38").Select 
    Selection.Copy 
    Sheets("Sheet3").Select 
    Range("C4").Select 
    ActiveSheet.Paste 
    Columns("C:C").EntireColumn.AutoFit 
    Columns("D:D").EntireColumn.AutoFit 
    Columns("E:E").EntireColumn.AutoFit 
    Columns("F:F").EntireColumn.AutoFit 
    Columns("G:G").EntireColumn.AutoFit 
    Columns("H:H").EntireColumn.AutoFit 
    ActiveWindow.SmallScroll Down:=12 
End Sub 

Sub FINDSAL() 
    'looking for the specific word' 
    Dim E_name As String 
    E_name = Worksheets("Sheet1").Range("C5").Value 
    sal = Application.WorksheetFunction.VLookup(E_name, Sheet3.Range("c4:h41"), 1, False) 
    MsgBox sal 
End Sub 

Answer 1

Sub FINDSAL() 
'looking for the specific word' 
Dim E_name As String 
E_name = Worksheets("Sheet1").Range("C5").Value 
if instr(ename,Sheet3.Range("c4:h41")) > 0 then 
    msgbox Ename & " was found in the range. All range text is " &  Sheet3.Range("c4:h41") 
msgbox "Set sal as whatever you're trying to get out of this..." 
end if 
MsgBox sal 

End Subの