ユーザーフォームからワークシートへの転記について
●質問の主旨
エクセルVBAの初心者です。
添付画像のユーザーフォームからデータベースへの転記の
コードを記述しましたが、実行しようとすると15行目の「CelData」のところが
選択され、コンパイルエラー(変数の定義がされていません)
が返されます。
1.「CelData」のコンパイルエラーはどのように修正すれば
よいでしょうか?
2.またこのコンパイルエラーを修正すれば、ユーザーフォームから
ワークシートへの転記ができるでしょうか?
●質問の補足
1.ユーザーフォームにある「入力No.」と
「入力日」(赤色で囲った部分)をそれぞれ
A2セル、B2セル(青色で囲った部分)に転記しようと
考えています。
2.添付画像のワークシートには手入力で「柴田8月分」
というシート名が予めつけられています。
3.ユーザーフォームやワークシートには
他に入力、転記する個所がありますが質問を
簡単にするため省略しています。
4.この質問に関するオブジェクト名は以下の
通りです。
・「入力No.」=TextBox3
・「入力日」=txtdate
・「データベース入力」=CommandButton3
エクセルVBAにお詳しい方ご教示願います。
使用機種はWindows Vista Excel2007です。
なお、コードは以下の通りです。
1 Option Explicit
2 'ユーザーフォームの初期化
3 Private Sub UserForm_Initialize()
4 TextBox3.Value = 1
5 txtdate = Date
6 End Sub
7 'ユーザーフォームからデータベースへの転記
8 Private Sub データベース入力_Click()
9 Dim RowPos As Integer
10 Dim ColPos As Integer
11 RowPos = 2
12 ColPos = 1
13 Do
14 RowPos = RowPos + 1
15 CelData = Worksheets("柴田8月分").Cells(RowPos, _
16 ColPos)
17 Loop While CelData <> ""
18 With Worksheets("柴田8月分")
19 .Cells(RowPos, ColPos) = TextBox3.Value
20 .Cells(RowPos, ColPos + 1) = txtdate.Value
21 End With
22 End Sub
お礼
ありがとうございました。 教えてもらった通りやったらできました。