'객체의 범위는'실패 - 사용자 정의 폼

Question

내가 VBA에서 일하고 있어요 - Excel을 2016 내가 다른 시트 및 삽입에 다음 빈 행을 한 장에서 호출 정의 폼에서 입력을 찾기 위해 노력하고

가치. 그러나 런타임 오류 - 'Range of Object'_Worksheet Failed가 계속 발생합니다. 양식은 다른 양식에서 호출됩니다.

다양한 솔루션을 시도했지만 아무 것도 작동하지 않는 것 같습니다.

나는 다른 곳에서 거의 동일한 코드를 사용하고 있는데, 폼이 호출되고 값이 같은 시트에 삽입 될 때 작동하기 때문에 다른 시트에 액세스해야한다는 결론을 내렸다.

그것은이 라인에 실패

이

ActiveWorkbook.Worksheets("Suppliers").Range("A" & NextRow) = SupplierName 

내가 사용하고 코드는 다음과 같습니다.

Private Sub addSupplierConfirm_Click() 

'Initialise variables 
Dim SupplierName As String 

'Assign variables 
SupplierName = addSupplierName.Value 

If (SupplierName = "") Then 
    MsgBox ("Please enter a supplier name") 
    Exit Sub 
End If 

'Find next row on supplier sheet add supplier name 

NextRow = ActiveWorkbook.Worksheets("Suppliers").Range("A" & Rows.Count).End(xlUp).Row + 1 
ActiveWorkbook.Worksheets("Suppliers").Range("A" & NextRow) = SupplierName 

Application.ScreenUpdating = False 

'Sort Suppliers 
ActiveWorkbook.Worksheets("Suppliers").ListObjects("tbl_suppliers").Sort.SortFields. _ 
    Clear 
ActiveWorkbook.Worksheets("Suppliers").ListObjects("tbl_suppliers").Sort.SortFields. _ 
    Add Key:=Range("tbl_suppliers[[#All],[Suppliers]]"), SortOn:=xlSortOnValues, _ 
    Order:=xlAscending, DataOption:=xlSortNormal 
With ActiveWorkbook.Worksheets("Suppliers").ListObjects("tbl_suppliers").Sort 
    .Header = xlYes 
    .MatchCase = False 
    .Orientation = xlTopToBottom 
    .SortMethod = xlPinYin 
    .Apply 
End With 

'Activate home page 
Sheets("Expenses").Activate 
Range("A1").Select 

Application.ScreenUpdating = True 

'Unload form 
addSupplierName.Value = "" 
UfAddSupplier.Hide 

End Sub 

미리 감사드립니다.

Answer 1

양식이 아직 표시되어있는 동안에는 시트에 액세스 할 수 없습니다. 단지 시트에 액세스하기 전에 당신의 sub에서 조금 더 UfAddSupplier.Hide를 이동하고 의도 한대로 모든 것이 작동합니다 : 답장을

Private Sub addSupplierConfirm_Click() 

'Initialise variables 
Dim SupplierName As String 

'Assign variables 
SupplierName = addSupplierName.Value 

If (SupplierName = "") Then 
    MsgBox ("Please enter a supplier name") 
    Exit Sub 
End If 

UfAddSupplier.Hide 

'Find next row on supplier sheet add supplier name 

NextRow = ActiveWorkbook.Worksheets("Suppliers").Range("A" & Rows.Count).End(xlUp).Row + 1 
ActiveWorkbook.Worksheets("Suppliers").Range("A" & NextRow) = SupplierName 
... 
... 
...