ｖｂａ ユーザーフォームにて質問

質問

勉強のためにｖｂａにユーザーフォームを作っています。
画像のとおり青色が塗られている箇所に、ユーザーフォームで社員名、件数を
転記したいです。
ユーザーフォーム
社員名
件数
を入力したら範囲はC3からC15転記されます。
転記終わったら、D3からD15に転記。この作業をH列まで行いたいのですが、
C3の列以降転記できません。
お答えできる方いればよろしくお願いします。
Private Sub CommandButton1_Click()
Dim rc As Long
Dim retu As Long
Dim Ctrl As Control

If Me.txtComboBox1.Value = "" Then
MsgBox "社員名を選択してください！", vbOKOnly
Me.txtComboBox1.SetFocus
Exit Sub
End If

rc = MsgBox("件数を入力しますか？", vbYesNo)
If rc = vbYes Then
MsgBox "実行する"
Else
MsgBox "中止しました"
Exit Sub
End If

retu = Cells(2, Columns.Count).End(xlToLeft).Column + 1

Cells(3, retu).Value = Me.txtComboBox1.Value ←社員を選択
Cells(4, retu).Value = Me.txtsuzuki.Value　　←売れた件数
Cells(5, retu).Value = Me.txttoyota.Value　　←売れた件数
Cells(6, retu).Value = Me.txthonnda.Value　　　←売れた件数

For Each Ctrl In Me.Controls
If Ctrl.Name Like "txt*" Then
Ctrl.Value = ""
End If
Next Ctrl

End Sub

この投稿のマルチメディアは削除されているためご覧いただけません。

回答No.3

nishi6 · ベストアンサー

添付図のJ、K列は単に説明用として入力されているのかどうかよくわかりませんが、どちらにしても、H列までしか入力できないとすれば、

　retu = Cells(2, Columns.Count).End(xlToLeft).Column + 1
　　　　↓
　If Cells(3, 8) <> "" Then
　　MsgBox "もう入力できません"
　　Exit Sub
　Else
　　retu = Cells(3, 8).End(xlToLeft).Column + 1
　End If

補足

回答ありがとうございます。希望通りで動きました！
もう1点質問なんですが、
ｃ列の文字が記入されてるとなり（空白）から転記～右の文字列にぶつかったらとまる。コードも作ってみたんですがエラーがおきてしまいました。なにかわかりますでしょうか？

回答No.2

iruyasu

retu = Cells(2, Columns.Count).End(xlToLeft).Column + 1
↓
retu = Cells(3, Columns.Count).End(xlToLeft).Column + 1

でいいんでない？

回答No.1

kon555

記載列を「retu = Cells(2, Columns.Count).End(xlToLeft).Column + 1」で捕まえる構造に見えますが、
Cells(3, retu).Value = Me.txtComboBox1.Value ←社員を選択
Cells(4, retu).Value = Me.txtsuzuki.Value　　←売れた件数
Cells(5, retu).Value = Me.txttoyota.Value　　←売れた件数
Cells(6, retu).Value = Me.txthonnda.Value　　　←売れた件数

となっていて、 Cells(2, retu)に何の入力もされないので、延々と同じ列に記載し続けるコードになっています。
「Cells(2, retu).Value ="1"」
などで無意味でも入力済として成立させるなり、
「retu = Cells(3, Columns.Count).End(xlToLeft).Column + 1」
にして3行目で捕まえるなりすれば解消すると思いますよ。