Адрес ячейки соответствующей ячейки в строке

Question

У меня есть значение в Cell B32, которое я хотел бы менять каждую неделю. На новую неделю у меня есть макрос, который копирует и вставляет данные в файл, но местоположение копии/вставки меняется каждую неделю.

Часть кода, которая имеет отношение здесь:

Dim Week As String 
Dim FiscalPeriod As String 

Windows("Personal.xls").Activate 
Sheets("Store Info").Select 
Week = Range("B32").Value 

Windows("Budget Load Check.xls").Activate 
Sheets("Fcst PT").Select 
Rows("4:4").Select 
Selection.Find(What:=Week, After:=ActiveCell, LookIn:=xlFormulas, _ 
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
    MatchCase:=False, SearchFormat:=False).Activate 
FiscalPeriod = ActiveCell.Address 

Он erroring на Selection.Find(What:=Week

Как сказать ему, чтобы искать значения в строке 4, а затем выяснить адрес активной ячейки и метки - «FiscalPeriod». Как только я это сделаю, я могу сделать серию смещений ячеек, чтобы вставить все в нужное место.

Answer 1

Я собираюсь угадать, что вы ищете точное совпадение с числовой неделей и что LookAt:=xlPart был просто оставлен после предыдущего поиска.

Dim Week As String, FiscalPeriod As String 
Week = Workbooks("Personal.xls").Sheets("Store Info").Range("B32").Value 
Windows("Personal.xls").Activate 
With ActiveWorkbook.Sheets("Fcst PT") 
    If Not IsError(Application.Match(Week, .Rows(4), 0)) Then 
     FiscalPeriod = .Cells(4, Application.Match(Week, .Rows(4), 0)).Address 
    Else 
     FiscalPeriod = "not found" 
    End If 
End With