VBAランタイムエラー9 - 下付き文字範囲外

Question

Excelシートの最初の使用可能な行に情報を伝播するユーザーフォームを作成しようとしています。範囲を正しく取得するのに苦労しています。フォームは現在、「下付き文字が範囲外です」を示しています。 'ランタイムエラー9'。 if文にも問題があるようですが、オンラインの標準的なアドバイスに従えば、問題の解決には役立たなかったようです。

誰かが私が間違っていると思っている人は（私はこれに非常に新しいです）、それは素晴らしいでしょう。

Private Sub UserForm_Initialize() 
BusinessAreaBox.List = Array("option one", "option two") 
End Sub 

Private Sub CommandButton1_Click() 
Dim RowCount As Long 
RowCount = Sheets("Sheet1").Range.Sheets("Sheet1").Cells(2, "A") 
With ThisWorkbook.Sheets("Sheet1").Range("A2") 
.Offset(RowCount, 0).Value = BusinessArea1.Value 
.Offset(RowCount, 1).Value = BusinessContact1.Value 
.Offset(RowCount, 2).Value = LPSContact1.Value 
.Offset(RowCount, 4).Value = ProjectedFTE1.Value 
.Offset(RowCount, 5).Value = DateOfMostRecentMeeting1.Value 
.Offset(RowCount, 6).Value = FTEComment1.Value 
.Offset(RowCount, 7).Value = ProposedMove1.Value 
.Offset(RowCount, 8).Value = DeskUtilisation1.Value 
.Offset(RowCount, 9).Value = OtherComment1.Value 
.Offset(RowCount, 10).Value = Actions1.Value 
If RegularMeeting1.Value = True Then 
.Offset(RowCount, 3).Value = "Yes" 
Else 
.Offset(RowCount, 3).Value = "No" 
End If 
RegularMeeting1.Value = True Or False 
End With 
End Sub 

Private Sub CommandButton2_Click() 
    Unload Me 
End Sub 

Answer 1

私はこの

Private Sub CommandButton1_Click() 
    With ThisWorkbook.Sheets("Sheet1") 
     .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Resize(, 11).Value = Array(BusinessArea1.Value, _ 
                       BusinessContact1.Value, _ 
                       LPSContact1.Value, _ 
                       IIf(RegularMeeting1.Value, "Yes", "No"), _ 
                       ProjectedFTE1.Value, _ 
                       DateOfMostRecentMeeting1.Value, _ 
                       FTEComment1.Value, _ 
                       ProposedMove1.Value, _ 
                       DeskUtilisation1.Value, _ 
                       OtherComment1.Value, _ 
                       Actions1.Value) 

    End With 
    RegularMeeting1.Value = True Or False '<--| what is this supposed to do? 
End Sub 

Answer 2

を細胞にこのように書いてみた後、あなたがかもしれ思います。最初にシートとセルをアクティブにする必要があります。あなたはこの行をどうしようとしている何

Dim myArr As Variant 

myArr = Array(BusinessArea1.Value, _ 
       LPSContact1.Value, _ 
       ProjectedFTE1.Value, _ 
       DateOfMostRecentMeeting1.Value, _ 
       FTEComment1.Value, _ 
       ProposedMove1.Value, _ 
       DeskUtilisation1.Value, _ 
       OtherComment1.Value, _ 
       Actions1.Value) 

sheet1.activate 
sheet1.range("A2").activate 
for I = 0 to ubound(myArr) 
    activecell.value = myArr(I) 
    activecell.Offset(1,0).activate 
Next I