런타임 오류 1004 - 개체 범위 실패 - VBA 2013

Question

런타임 오류 1004가 발생했습니다. '_Worksheet'개체의 '범위'메서드가 실패했습니다.

이 코드는이 프로젝트의 초안에서 사용되었지만 새로운 프로젝트 파일로 가져올 때 나는 이것을 얻었습니다 ... 명명 된 범위 나 워크 시트 이름이 이전 버전에서 변경되지 않았습니다. 도와주세요!

Private Sub UserForm_Initialize() 
'Set Variables to populate combobox 
Dim rngProjects As Range 
Dim ws1 As Worksheet 

Set ws1 = Worksheets("Validation") 

For Each rngProjects In ws1.Range("Projects") 

Me.cboProject.AddItem rngProjects.Value 
Me.cboAccount.AddItem rngProjects.Value 

Next rngProjects 

'Add static data for combobox 
Me.cboTransactionType.AddItem "Income" 
Me.cboTransactionType.AddItem "Expense" 

Answer 1

이 (때로는 선행 또는 후행 공간이 인식 할 수없는) 시트 이름 중 하나가 변경된 것을 나에게 보인다 또는 명명 된 범위의 이름이 변경되었습니다. 또한 명명 된 범위가 다른 시트 (유효성 검사 시트 제외)로 옮겨 졌을 수도 있습니다.

위의 내용을 모두 확인한 다음 주석에 제안 된대로 명시 적 참조를 사용하면 문제를 찾을 수 있습니다. 다음은 몇 가지 추가 점검 사항이있는 코드입니다. 시도해보고 문제가 발생했는지 여부를 알려면 알려주십시오.

Option Explicit 

Private Sub UserForm_Initialize() 
'Set Variables to populate combobox 
Dim rngProjects As Range 
Dim ws1 As Worksheet 
Dim bolFound As Boolean 
Dim nm As Name 

For Each ws1 In ThisWorkbook.Worksheets 
    If ws1.Name = "Validation" Then bolFound = True 
Next ws1 
If bolFound = False Then 
    MsgBox "Required sheet not found." 
    Exit Sub 
End If 

Set ws1 = Worksheets("Validation") 

For Each rngProjects In ws1.Range(ws1.Cells(8, 1), ws1.Cells(ws1.Rows.Count, 1).End(xlUp)) 
    frmAddTransaction.cboProject.AddItem rngProjects.Value 
    frmAddTransaction.cboAccount.AddItem rngProjects.Value 
Next rngProjects 

'Add static data for combobox 
frmAddTransaction.cboTransactionType.AddItem "Income" 
frmAddTransaction.cboTransactionType.AddItem "Expense" 

End Sub 

아래와 같이 간접 명명 된 범위가 제거되었습니다. 대신 시트가 코드에서 직접 참조됩니다. 이와 같이 명명 된 범위의 변경 사항은 코드에 아무런 영향을 미치지 않습니다. 대신, 8 행의 오프셋은 VBA에 쓰여지고 약간이 더 안전합니다.