テキストボックス２列の値をシート1AB列に入力

質問

実行２クリックで2列のテキストボックス１～７の値をsheet1のA列、テキストボックス１１～１７の値をB列に入力したいのですが下記の方法にどうコード追加していいのかわかりません。どなたかコードが解る方よろしくお願いします。

Private Sub 実行2_Click()
For i = 1 To 1000
If Sheet1.Cells(i, 1.Value = vbNullString Then: Exit For
Next
For Each o In UserForm1.Controls
Dim c As MSForms.Control
Set c = o
If c.Name Like "TextBox*" Then
Dim t As MSForms.TextBox
Set t = c
If t <> vbNullString Then
Sheet1.Cells(i, 1.Value = t
i = i + 1
t = vbNullString
End If
End If
Next
End Sub

回答No.2

n-jun · ベストアンサー

＃１です。

＞LRow = Range("A" & Rows.Count, 1).End(xlUp).Rowにデッバグになりセル入力ができません。

ごめんなさい私のミスです。
⇒ＲａｎｇｅとＣｅｌｌｓをごっちゃにしちゃいました。

LRow = Range("A" & Rows.Count).End(xlUp).Row
または
LRow = Cells(Rows.Count, 1).End(xlUp).Row
ですね。

お礼

有難うございます。セルへ入力でき大変助かりました。

回答No.1

n-jun

Dim i As Integer
Dim LRow As Long

LRow = Range("A" & Rows.Count, 1).End(xlUp).Row

For i = 1 To 10
If Me.Controls("TextBox" & i).Text = "" Then Exit For
Range("A" & LRow + i).Value = Me.Controls("TextBox" & i).Text
Range("B" & LRow + i).Value = Me.Controls("TextBox" & i + 10).Text
Next

こんな感じの事？

お礼

有難うございます。

補足

Private Sub 実行2_Click()
Dim i As Integer
Dim LRow As Long

LRow = Range("A" & Rows.Count, 1).End(xlUp).Row
For i = 1 To 10
If Me.Controls("TextBox" & i).Text = "" Then Exit For
Range("A" & LRow + i).Value = Me.Controls("TextBox" & i).Text
Range("B" & LRow + i).Value = Me.Controls("TextBox" & i + 10).Text
Next
End Sub
上記コードで入力して実行したのですがLRow = Range("A" & Rows.Count, 1).End(xlUp).Rowにデッバグになりセル入力ができません。やり方がいけないのでしょうか。何卒よろしくお願いします。