ユーザーフォームに入力したデーターが転記できない
いつもお世話になります。
Windows7 excell2010 です。
いろんなものに勉強してここまでに作成したユーザーフォームですが、データーは入力できるのですがコマンドボタンをクリックしても各セルに反映されません。
色々と試行錯誤していますがうまくゆきません。
どこに不具合があるかわからず恐れ入りますがどなたかご指導いただけませんか。
参考にコードは参考に下記にします。
ユーザフォームのVBAは下記です
コード
※Module1
Sub 売上()
Do
UserForm1.Show
Loop
End Sub
Sub 入金()
Do
UserForm2.Show
Loop
End Sub
※UserForm1
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "1"
.AddItem "2"
.AddItem "3"
End With
End Sub
Private Sub CommandButton1_Click()
n = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(n, 2) = UserForm1.TextBox1.Text
Cells(n, 3) = UserForm1.TextBox2.Text
Cells(n, 4) = UserForm1.TextBox3.Text
Cells(n, 11) = UserForm1.ComboBox1.Text
Unload Me
End Sub
Private Sub CommandButton2_Click()
Unload Me
End
End Sub
※UserForm2
Private Sub CommandButton1_Click()
n = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(n, 2) = UserForm2.TextBox1.Text
Cells(n, 3) = UserForm2.TextBox2.Text
Cells(n, 4) = UserForm2.TextBox3.Text
Unload Me
End Sub
Private Sub CommandButton2_Click()
Unload Me
End
End Sub
お礼
UserForm1.Showの前に入力したら、うまく出来ました。ありがとうございました。