Определить значение ячейки, чтобы найти в другом листе то же значение

Question

У меня есть лист со всеми магазинами и шаблон электронной почты. В листе шаблона электронной почты результат vlookup будет отображаться в G25. Мне нужно значение в G25 (например, New Barrie), чтобы найти в другом листе (все местоположения) то же значение «New Barrie».

Я не знаю, как искать значение в G25 вместо hardcoded New Barrie.

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 

просто обзор LookIn, LookAt и MatchCase аргументов Find() метода, чтобы убедиться, что они на самом деле соответствуют вашим потребностям