指定したシートに入力する。

質問

よろしくお願いします。
ユーザーフォームのテキストボックスのデータをコマンドボタンをクリックしたときに
指定シート（AAA)の最終行+1（C）に入力する。

Private Sub CommandButton5_Click()
With Worksheets("AAA")
.Range("C65536").End(xlUp).Row 1 = TextBox4
End With
End Sub

と、したのですが、シート（AAA)に入力されません。

よろしくご教示お願いします。

回答No.1

keithin · ベストアンサー

Private Sub CommandButton5_Click()
Worksheets("AAA").Range("C65536").End(xlUp).offset(1) = TextBox4
End Sub

のように。

with worksheets("AAA")
.cells(.range("C65536").end(xlup).row + 1, "C") = textbox4
end with
とか

with worksheets("AAA")
.range("C" & .range("C65536").end(xlup).row + 1) = textbox4
end with
とか

のように，rangeやcellsを使ってセルを指定する方法も勉強してください。基本中の基本です。

お礼

ありがとうございました。
もっと基本を勉強します。