スキルアップ・問題解決なら、モーグにおまかせ！

コンボボックスで入力したデータが、シートに反映されません。
フォームに、印刷ボタンを配置。
データ５名分（コンボボックス１〜５）を入力して登録後、印刷ボタンを押すと印刷プレビューが開くのですが、コンボボックス１のデータのみプレビューで確認でき入力データ２〜５のデータが、反映されません。
フォームをいったん閉じてのシートをクリックさせたりしたら５人分のデータはちゃんとシートに反映されてます。
フォームに入力した後、そのままボタンを押して、プリントプレビュー後シートを印刷するにはどうしたらいいのでしょうか。
よろしくお願いします。

文章だけで、推測することはできないので、
コンボボックスに関するコードを、全部、掲示して貰えませんか？

WinArrow様
コメントありがとうございます。
VBA初心者で見よう見まねで作成したので
わかりにくいかとも思いますが貼付します。
コンボボックス入力は５名分ありますが
同じ処理の繰り返しなので３名〜５名は省略いたします。
どうぞよろしくお願いします。
 
Private Sub CommandButton1_Click() 'データ登録
Dim i As Integer
Dim ws(4) As Worksheet
Dim hizuke As Date
Dim kaisi(1) As Date
Dim owari(1) As Date
Dim namae(4) As String
Dim a As Long
Dim mydate As Long
Dim g As Long
 
hizuke = ComboBox7.Value　　'残業日付
kaisi(0) = ComboBox8.Value　'残業開始時間
owari(0) = ComboBox9.Value　'残業終了時間
namae(0) = ComboBox1.Value　'名前１
Set ws(0) = Worksheets(namae(0))　　'各シート名前つきです
mydate = DateSerial(Year(hizuke), Month(hizuke), Day(hizuke)) '残業日付と各シートの日付
For g = 16 To ws(0).Cells(Rows.Count, 1).End(xlUp).ROW を検索してセルに
    If ws(0).Cells(g, 1).Value = mydate Then　　　　　　　　　　開始時間と終了時間を
Sheets(namae(0)).Cells(g, 6) = kaisi(0)　　　　　　　　　　　　転記。１名の時もあれば
Sheets(namae(0)).Cells(g, 9) = owari(0)　　　　　　　　　　　　６名の時もあります
    End If
Next g
Unload Me
Worksheets("Sheet1").Select
UserForm1.Show
 
hizuke = ComboBox7.Value
kaisi(0) = ComboBox8.Value
owari(0) = ComboBox9.Value
namae(1) = ComboBox2.Value
Set ws(1) = Worksheets(namae(1))
mydate = DateSerial(Year(hizuke), Month(hizuke), Day(hizuke))
 For g = 16 To ws(1).Cells(Rows.Count, 1).End(xlUp).ROW
    If ws(1).Cells(g, 1).Value = mydate Then
Sheets(namae(1)).Cells(g, 6) = kaisi(0)
Sheets(namae(1)).Cells(g, 9) = owari(0)
    End If
Next g
Unload Me
Worksheets("Sheet1").Select
UserForm1.Show
 
 
 
Private Sub CommandButton3_Click() '一括印刷
UserForm1.Hide
Sheets(Array("山田", "田中", "山本", "鈴木", "谷")).PrintPreview　←仮名です
UserForm1.Show
End Sub

よくわからいけど・・・
 
CommandButton1_Click
のプロシジャｙの中に
Unoad
と
Show
が２回記述されいますよね？、
１回目のShowの後のコードは実行されていないと思いますが、
確認できますか？
 
確認方法は、ステップ実行をやってみることです。
 

WinArrow様
 
返信ありがとうございます。
UnoadとShoｗを最後だけに記述したら
プレビューで５人分のデータ確認できましたが
１名だけ登録時には「インデックスが有効範囲にありません」エラーがでます。
 
５個のコンボボックスにきっちり５名分のデータを登録すればいいのですが
５名以外の時にはエラーがでるみたいです。

レンタルネコ さんの引用:

５個のコンボボックスにきっちり５名分のデータを登録すればいいのですが
５名以外の時にはエラーがでるみたいです。

データ登録（シートに転記）後
Unlod
と
Show
を実行する意図は、何処にあるんでしょうか？

WinArrow様
 
返信、ご指摘ありがとうございます。
５個必要なのは班（最高５名）で残業をするからです。
1名ですることはあっても６名ですることはないので固定にしました。
 
ご指摘の日付は当初、ws(0).Cells(g, 1).Value = hizuke Thenで試したときにうまくいかなかったので
シリアル値が関係してるのかと思いあんな処理になりました。
今、試したらws(0).Cells(g, 1).Value = hizuke でうまくいきました。
 
配列も
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim ws3 As Worksheet
Dim ws4 As Worksheet
Dim ws5 As Worksheet　で記述しておりましたが長いので訳が分からず配列形式にして見ました。
動いていたのでそのままに使用してました。
 
また、一から考え直します。
その時はよろしくお願いします。

 
一度閉じて、再表示してみればプレビューで表示されるかなと思いまして。

５名の件は了解しました。
 
しかし、現在のコードでは、
１番目の人が、必ず、残業することになっていませんか？

１番目の人と言うより最低ひとりは残業してます。
 
"Sheet1"に２５人分の名前データを入力してます。
 
各コンボボックスで表示選択しています。

>印刷プレビュー
に関して
 
ユーザーフォームを表示した状態で、
印刷プレビューは表示かのですが、
印刷プレビューのボタンの操作ができなくなるので、
ユーｚ-フォームを非表示（Hide）する方法で対応しているものと思います。
少し観点を変えて、
ＰＤＦで出力して、確認する方法を採用したらいかがでしょう？
 
「名前を付けて保存」で、
ファイルの種類：Pdfを指定、
発行後にファイルを開くにチェックを入れる
で、すぐに印刷状態が確認できます。
マクロの記録でコードを作成するとよいでしょう。
ユーザーフォームを非表示にする必要はありません。

WinArrow様
 
ご助言ありがとうございます。
PDFで出力やってみます。
修正でき次第コメント致します。
まずはお礼まで。