excel userforms object required error

Question

У меня есть следующий код в vba в excel 2013, но он по-прежнему дает мне ошибку. Я пытаюсь сделать это написать информацию, что я обеспечиваю из формы в листе первенствовать, но он не работает .. Любая помощь Добро пожаловать ...

Private Sub btnSubmit_Click() 

Dim ssheet As Worksheet 

Set ssheet = ThisWorkbook.Sheets("testing") 

nr = ssheet.Cells(Rown.Count, 1).End(xlUp).Row + 1 


ssheet.Cells(nr, 1) = CDate(Me.tbDate) 
ssheet.Cells(nr, 2) = Me.cmbCartridges 
ssheet.Cells(nr, 3) = Me.tbQuantity 
ssheet.Cells(nr, 4) = Me.tbEuros 


End Sub 

Private Sub UserForm_Initialize() 
Me.tbDate = Date 

'fill combobox 
For Each cell In [CartList] 
    Me.cmbCartridges.AddItem cell 
Next cell 

End Sub 

в режиме отладки он утверждает, что объект требуется для следующей строки

nr = ssheet.Cells(Rown.Count, 1).End(xlUp).Row + 1 

Answer 1

Что такое Rown? Вы ищете количество строк листа?

nr = ssheet.Cells(ssheet.Rows.Count, 1).End(xlUp).Row + 1