VBAでフォームからシートへの転記

質問

初心者の質問で、申し訳ございません。

フォームに入力された値を、シートへ転記させたいのですが。

入力値1＝行1
入力値2＝行2
入力値3＝行3

常に最終入力行の次の行に転記させるには、
どのようなコードが必要ですか？

回答No.1

okormazd · ベストアンサー

たとえば、
UserForm1のTextBox1のデータを列1に転記するとすれば、
転記したい行まで空白が無いとして、

with ActiveSheet
r = 1
r = .Cells(r, 1).End(xlDown).Row
r = r + 1

.Cells(r, 1) = UserForm1.TextBox1.Text

End With

で転記されていくと思う。

お礼

的確なご回答、ありがとうございました。