VBA Добавление записей на лист

Question

Когда я нажимаю на кнопку добавления команды по умолчанию, она добавляется в третью строку листа.Его следует добавить в первую доступную строку.Это то, что мне нужно изменить в коде VBA или свойствах кнопок?

Private Sub CmdAdd_Click()
    Dim wks As Worksheet
    Dim AddNew As Range
    Set wks = Sheet1
    Set AddNew = wks.Range("AA1000000").End(xlup).Offset(1, 0)
    AddNew.Offset(0, 0).Value = txtcustomerid.Text
    AddNew.Offset(0, 1).Value = txtContract.Text
    AddNew.Offset(0, 2).Value = txtContractLBS.Text
    AddNew.Offset(0, 3).Value = txtContractPrice.Text
    AddNew.Offset(0, 4).Value = txtItem.Text
    AddNew.Offset(0, 5).Value = Txtitemnum.Text
    AddNew.Offset(0, 6).Value = TxtCustomerName.Text
    AddNew.Offset(0, 7).Value = Txtstartdate.Text
    AddNew.Offset(0, 8).Value = Txtenddate.Text
    AddNew.Offset(0, 9).Value = TxtSalesPerson.Text
    AddNew.Offset(0, 10).Value = TxtBroker.Text
    AddNew.Offset(0, 11).Value = TxtTerms.Text
    End Sub

Answer 1

Рассмотрите возможность использования ActiveSheet.UsedRange, см .: https://www.thespreadsheetguru.com/blog/2014/7/7/5-different-ways-to-find-the-last-row-or-last-column-using-vba

Я подозреваю, что ваша текущая проблема связана с наличием данных форматирования или отсутствием данных в столбце AA - что может быть опечаткой в ​​вашем коде?