VBA 今日の日付の繰り返しの記述

質問

いつもお世話になります。
WIN7 EXCELL2010　です。

参考に下記のようなマクロを記述しています。

TextBox1から順次ComboBox1と移動し又TextBox1に戻るのはうまく移動します。
最初の時の　「TextBox1.Text = Format(Date, "mm/dd")」は上手く表示してくれますが一巡して２度目になると表示されません。
私が多分ですが　Do～Loop　と思うのですがうまくゆきません。

恐れ入りますがご指導いただけませんでしょうか。

マクロの記述
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "1"
.AddItem "2"
.AddItem "3"
End With
TextBox1.Text = Format(Date, "mm/dd")
End Sub

'****************
'設定
'****************
Private Sub CommandButton1_Click()
'
y = 2
Do While Cells(y, 2) <> ""
y = y + 1
Loop
Cells(y, 2) = TextBox1.Text
Cells(y, 3) = TextBox2.Text
Cells(y, 4) = TextBox3.Text
Cells(y, 11) = ComboBox1.Text

TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
ComboBox1.Text = ""
TextBox1.SetFocus
End Sub

回答No.1

tsubuyuki · ベストアンサー

> 一巡して２度目になると表示されません。

原因は

> TextBox1.Text = ""

たぶん、ココです。
新規行に書き込んで、すべてのテキストボックスを「空白」にしちゃっていますから、
ニ巡目以降は必ず「空白の状態で」開始されてしまいますね。

やるなら、ここも
　　　　TextBox1.Text = Format(Date, "mm/dd")
これを採用するか、
セルへの転記が終了した後に「イニシャライズ」するか、
どちらかが早いと思われますよ。

お礼

早速ご回答いただき誠に有難うございました。
うまくいきました。
思いもよらないことでした。
頭の中は　Do Loop　一辺倒でしたから。
でも苦労してその上にご指導いただいて非常に勉強になりました。