런타임 오류 1004 - 메서드 'Object'_Global '의'Range '메서드가 실패했습니다.

Question

이라는 .xlsx에서 열 A와 B를 가져와 BS 및 BT 열에 붙여 넣으려고합니다. 6 (BS6 및 BT6). 그것은 항상 작동

Workbooks.Open ThisWorkbook.Path & "\..\macro\options.xlsx" 

Workbooks("options.xlsx").Activate 
Set c = .Find("licensePlate", LookIn:=xlValues) 
Range(c.Offset(1, 0), Range(c.Address).End(xlDown)).Copy 
ThisWorkbook.Activate 
Sheets("example").Activate 
Range("BS6").PasteSpecial Paste:=xlPasteValues 

Workbooks("options.xlsx").Activate 
Set c = .Find("description", LookIn:=xlValues) 
Range(c.Offset(1, 0), Range(c.Address).End(xlDown)).Copy 
ThisWorkbook.Activate 
Sheets("example").Activate 
Range("BT6").PasteSpecial Paste:=xlPasteValues 

Workbooks("options.xlsx").Close 

ThisWorkbook.Activate 

(I 정확히이 매크로에서 이와 같은 코드 이상 6-7 부분이 있고, 아무 문제에 없음) : 나는 그것을 할 때, 나는 일반적으로 사용하는 코드입니다 이

나를 도울 수

(Range(c.Offset(1, 0), Range(c.Address).End(xlDown)).Copy)

희망 누군가 라인 (5)에 실패하는 이유하지만 난 모르겠어요.

Answer 1

With Range을 사용하지 않으므로 .Find은 범위를 나타내는 것으로 보이지 않습니다. 따라서 c은 Nothing으로 설정되고 Offset은 Nothing Range으로 설정하면 오류가 발생합니다. , 내가보기 엔 당신이 Activate를 방지하는 것이 좋습니다 것 또한

Set c = Workbooks("options.xlsx").Sheets("name of sheet").Cells.Find("licensePlate", LookIn:=xlValues) 
If c is Nothing Then 
    Msgbox "licensePlate Not Found" 
Else 
    'Run Code 
End If 

:

당신은 당신이 뭔가를 사용할 수있는 시트 전체를 검색하려면

If c is Nothing Then 
    Msgbox "licensePlate Not Found" 
Else 
    'Run Code 
End If 

처럼 에러 체크를 사용해야합니다. 대신 always define the object that you are using a method on을 입력해야합니다.

편집 : 당신이 당신의 시트를 정의하지 않는 Range 중 하나를이 같은

뭔가 작동합니다 :

Dim ws1 as Worksheet, Dim c As Range 
Set ws1 = Workbooks("options.xlsx").Sheets("name of sheet") 
Set c = ws1.Cells.Find("licensePlate", LookIn:=xlValues) 
If c is Nothing Then 
    Msgbox "licensePlate Not Found" 
Else 
    ws1.Range(c.Offset(1, 0), c.End(xlDown)).Copy 
    ThisWorkbook.Sheets("example").Range("BS6").PasteSpecial Paste:=xlPasteValues 
End If