VBA 제대로 작동하지 않는 시트 이름을 사용하는 셀 참조

Question

요약 : Excel 목록에서 여러 시트의 이름을 사용하여 "마스터 목록"에서 함께 컴파일하는 매크로를 작성하고 있습니다. 다른 시트의 셀을 참조하는 데 문제가 있습니다.

문제 :Sheets("MasterList").ActiveCell.Offset(0, 1)과 함께 시트 이름을 참조로 사용하는 특정 셀을 참조 할 때 아무 것도 나타나지 않습니다. 그러나 Sheets("MasterList")을 제거하면 매크로가 제대로 작동합니다 (이 매크로가 현재 작동하는 유일한 방법 인 경우 "MasterList"에 있음). 또한 시트 이름에 대한 맞춤법이 제 코드에서 정확했습니다.

질문 : 왜 이런 일이 발생합니까? 코드 뒤에있는 논리는 소리가 나고 시트 이름의 철자가 정확합니다.

코드 :

Do    

    If Sheets("MasterList").ActiveCell.Offset(0, 1) = firstName Then  'IF FIRST AND LAST NAMES MATCH, EXIT THE CHECK 

      Exit Do 

    End If 

    On Error Resume Next 

    Cells.Find(What:=lastName, After:=ActiveCell, LookIn:=xlFormulas, _ 
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
    MatchCase:=False, SearchFormat:=False).Activate 

Loop Until Err.Number > 0 

Answer 1

ActiveCell는 Application 개체의 속성이 아니라 Sheet입니다.

ActiveCell 하나만 있으며 현재 활성화 된 시트의 활성 셀입니다.

당신이하려는 일이 완전히 명확하지 않습니다. 하지만 일반적으로 Select 및 Activate은 이러한 종류의 코드로 피해야합니다.

Dim wsMasterList as Worksheet 
Set wsMasterList = Thisworkbook.WorkSheets("MasterList") ' assuming the vba code is in the workbook containing MasterList 

그런 다음 MasterList 사용에 대한 검색 해당 셀

를 기준으로 셀을 참조하는 rMasterList.Offset(0, 1)를 사용 MasterList에서 마지막으로 사용한 셀

Dim rMasterList as Range 
Set rMasterList = wsMasterList.Cells(... ' Specify the cell you want 

같은 변수를 사용하여 추적하려면 다음과 같이 뭔가를해야만 대신 사용 :

Dim cl as Range 
Set cl = wsMasterList.UsedRange.Find(...) 
If Not cl Is Nothing Then 
    ' cl will be Nothing if the search term is not found 
    ' ...