エクセルVBAフォームのOKボタンを押すと、情報がデータテーブルに正しく追加されない

Question

私のフォームのすべての情報が次の空の行に書き込まれるように「OK」ボタンをフォーマットしようとしています。データ表。これまで私が持っているものは次のとおりです。

Private Sub OKButton_Click() 

Dim emptyRow As Long 

'Determine emptyRow 
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1 

'Transfer Information 
Cells(emptyRow, 1).Value = BoatModelComboBox.Value 
Cells(emptyRow, 2).Value = BoatIDTextBox.Value 
Cells(emptyRow, 3).Value = NameofDefectComboBox.Value 
Cells(emptyRow, 4).Value = InspectionAreaComboBox.Value 
Cells(emptyRow, 5).Value = DateTextBox.Value 
Cells(emptyRow, 6).Value = OccurenceTextBox.Value 
Cells(emptyRow, 7).Value = DefectOriginComboBox.Value 

If BoatCheckOptionButton1.Value = True Then 
    Cells(emptyRow, 8).Value = "TRUE" 
Else 
    Cells(emptyRow, 8).Value = "FALSE" 
End If 

If TireKickOptionButton1.Value = True Then 
    Cells(emptyRow, 9).Value = "TRUE" 
Else 
    Cells(emptyRow, 9).Value = "FALSE" 
End If 

Cells(emptyRow, 10).Value = TypeofInspectionComboBox.Value 
Cells(emptyRow, 11).Value = MonthComboBox.Value 

助けてくれてありがとう！

Answer 1

はなぜ、これはあなたが望むものをやっていないのですか？代わりに

emptyRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row + 1