Ошибка 1004 «Ошибка приложения или объекта»

Question

У меня есть Userform с Textboxes.

Когда я пытаюсь нажать кнопку Submit в форме, я получаю сообщение об ошибке Error 1004 "Application-defined or Object-defined error".Почему я получаю эту ошибку?

Вот код

Private Sub btnSubmit_Click()
    Sheet2.Activate
    Dim lastRow2 As Long
    lastRow2 = Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row + 1

    Sheets("Sheet2").Range("A" & lr4).Value = CDate(Me.tbDate).Value
    Sheets("Sheet2").Range("B" & lr4).Value = Me.tbProduct.Value
    Sheets("Sheet2").Range("C" & lr4).Value = Me.tbQty.Value
    Sheets("Sheet2").Range("D" & lr4).Value = Me.tbPrice.Value        
End Sub

Private Sub UserForm_Initialize()
    Me.tbDate.Value = Date
    Me.tbProduct.Value = ""
    Me.tbQty.Value = ""
    Me.tbPrice.Value = ""
End Sub

Answer 1

Вы получаете эту ошибку, потому что lr4 равно 0.

Sheets("Sheet2").Range("A" & lr4).Value = CDate(Me.tbDate).Value

Больше разъяснений

Как только вы исправите значение lr4, вы не получите Applicaiton Defined Error как указано в вашем вопросе.Однако вы получите синтаксическую ошибку из-за .Value в Cdate.Удалите это или измените на CDate(Me.tbDate.Value)