別のシートで同じ値を見つけるセルの値を決定する

Question

私はすべての店舗の場所と電子メールテンプレートを持つシートを持っています。電子メールテンプレートシートで、Vlookupの結果がG25に表示されます。別のシート（すべての場所）で同じ値「New Barrie」を検索するには、G25の値（New Barrieなど）が必要です。

ハードコードされたNew Barrieの代わりにG25の値を調べる方法がわかりません。

私のようなものは次の後にあなたがいると信じて

Sub Email() 

' Email Macro 

Range("G25").Select 

Selection.Copy 

Sheets("All Locations").Select 

Cells.Find(What:="New Barrie", After:=ActiveCell, LookIn:= _ 

    xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ 

    xlNext, MatchCase:=False, SearchFormat:=False).Activate 

Range("A37").Select 

Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True 

Sheets("Email Template").Select 

End Sub 

Answer 1

：

Option Explicit 

Sub Email() 
    Dim val As String 
    Dim myCell As Range 

    val = Worksheets("template").Range("G25").Value '<--| store worksheet "template" cell "G25" value into a string variable 
    Set myCell = Worksheets("All Locations").Cells.Find(What:=val, LookIn:=xlFormulas, _ 
       LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
       MatchCase:=False, SearchFormat:=False) '<--| set myCell to the one in "All Locations" worksheet whose content matches the stored value 

    If Not myCell Is Nothing Then myCell.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True 
End Sub 

をちょうどやった、彼らは実際にあなたの必要性