Блог

Цель состоит в том, чтобы создать новую запись в таблице с помощью формы. В коде я пытаюсь найти последнюю строку, чтобы поместить информацию в пустое поле внизу. Ошибка 1004 появляется, когда я ищу последнюю строку в таблице с помощью Строк.Рассчитывать. В этом и заключается проблема:

 iRow = Sheet1.Range("A" amp; Rows.Count).End(x1Up).Row   1
 

Вот весь код:

 Private Sub cmdSubmit_Click()

    Dim iRow As Long
    
    iRow = Sheet1.Range("A" amp; Rows.Count).End(x1Up).Row   1
    
    With Sheet1

        .Range("A" amp; iRow).Value = Me.txtName.Value
        
        'Gender
        
        If Me.optFemale.Value Then .Range("B" amp; iRow).Value = "Female"
        If Me.optMale.Value Then .Range("B" amp; iRow).Value = "Male"
        If Me.optUnknown.Value Then .Range("B" amp; iRow).Value = "Unknown"
        
        'Maritial Status
        
        If Me.optSingle.Value Then .Range("C" amp; iRow).Value = "Single"
        If Me.optMarried.Value Then .Range("C" amp; iRow).Value = "Married"
        If Me.optOther.Value Then .Range("C" amp; iRow).Value = "Other"

    End With
    
    'Reset the controls after submitting
    
    Me.txtName.Value = ""
    Me.optFemale.Value = False
    Me.optMale.Value = False
    Me.optUnknown.Value = False
    Me.optSingle.Value = False
    Me.optMarried.Value = False
    Me.optOther.Value = False
    
    MsgBox "Data submitted Successfully!"
    
End Sub