エクセルマクロ＿テキストボックスをシートに反映（その２）
エクセルマクロ初心者です。（２００３使用＿ユーザーフォーム）
先ほどは大変お世話になりました。
複数行に応用させようとしたのですが、管理番号が余計に記載（テキストボックス（出荷日など）が空欄であっても、管理番号だけはとられてしまいます）されてしまいます。すみませんが、ご教授よろしくお願いいたします。
リストボックス１のデータは、Sheet1を表示しています。→管理番号はSheet2のＡ最終行に記載されます。
テキストボックス１（回答日）は、上記の管理番号記載のとなりに、
テキストボックス２（出荷日）は、テキストボックス１記載のとなりに、
・・・とテキストボックス４（コメント）（これはＫ列）に１行で記載されます。
↑ここまでは、教えていただいたので、完璧なのですが、
テキストボックス２～４までの内容を、あと複数行（４件）追加できるように試してみたのですが、空欄であっても管理番号だけは常に記載されてしまいます。
テキストボックス２と５に記載されている場合は、Sheet2に値を反映させるが、空欄の場合は、値を反映させないようにしたいのです。
（Sheet1=データベース）
Ｃ５ Ｄ５
管理番号 品名
アカ12 りんご
アオ56 みかん
クロ34 なし
クロ89 すいか
アオ12 もも
（Sheet2=入力シート）
Ａ（管理番号） Ｂ（回答日） Ｃ（出荷日） Ｄ（数量） Ｋ（コメント）
アオ56 8月9日 8月10日 75 送り先の確認
アオ56 8月11日 80
クロ34 9月4日 9月5日 80
（今回は、２行で作成した場合のマクロを記載しました）
Private Sub UserForm_Initialize()
With ListBox1
.ColumnWidths = "0;0;50;50"
.ColumnCount = 4
.RowSource = "Sheet1!A5:D" & Worksheets("Sheet1").Range("C" & Rows.Count).End(xlUp).Row
End With
End Sub
Private Sub CommandButton1_Click()
If TextBox2.Value Then
Dim lRow As Long
With Worksheets("Sheet2")
lRow = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A" & lRow + 1).Value = ListBox1.List(ListBox1.ListIndex, 2)
If IsDate(TextBox1.Value) Then
.Range("B" & lRow + 1).Value = TextBox1.Value
End If
If IsDate(TextBox2.Value) Then
.Range("C" & lRow + 1).Value = TextBox2.Value
End If
If IsNumeric(TextBox3.Value) Then
.Range("D" & lRow + 1).Value = TextBox3.Value
End If
.Range("K" & lRow + 1).Value = TextBox4.Value
End With
End If
If TextBox5.Value Then
Dim llRow As Long
With Worksheets("Sheet2")
llRow = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A" & llRow + 1).Value = ListBox1.List(ListBox1.ListIndex, 2)
If IsDate(TextBox5.Value) Then
.Range("C" & llRow + 1).Value = TextBox5.Value
End If
If IsNumeric(TextBox6.Value) Then
.Range("D" & llRow + 1).Value = TextBox6.Value
End If
.Range("K" & llRow + 1).Value = TextBox7.Value
End With
End If
Dim myCtrl As Control
For Each myCtrl In Controls
If TypeName(myCtrl) = "TextBox" Then
myCtrl.Value = vbNullString
End If
Next
End Sub
（ユーザーフォーム）
リストボックス１＝Sheet1のデータを反映
テキストボックス１（回答日）
テキストボックス２（出荷日）,テキストボックス３（数量）,テキストボックス４（コメント）←１件目
テキストボックス５（出荷日）,テキストボックス６（数量）,テキストボックス７（コメント）←２件目
↑１件目のみでコマンドボタンを押した場合は、１件目のみの管理番号取得をしたいのです。が今は、２件目が空欄でも管理番号はとられてしまいます。
長くなってしまいすみません。
どなたかご回答いただければ幸いです。よろしくお願いいたします。
お礼
わぁ！ほんとだ！！ こういう機能があるとは知りませんでした… こういう機能をマクロで組もうと思うと、かなり大変なんでしょうか。 それにしても、助かりました！ ありがとうございます☆