|
Sub s_tuika2()
On Error GoTo errmsg
Dim i As Long, r As Long
i = 1
Do Until i > myData件数
If CStr(Cells(i + 2, 1).Value) = TextBox1.Value Then
MsgBox "同じコードが登録済です。他のコードで登録して下さい。", _
vbExclamation, "入力エラー"
担当者追加.Show
Sheets("時間外集計").Select
Exit Sub
End If
i = i + 1
Loop
r = Cells(myLastRow, 1).End(xlUp).Offset(1).Row
Cells(r, 3).Value = CStr(TextBox1.Value)
Cells(r, 4).Value = CStr(TextBox2.Value)
Cells(r, 5).Value = CStr(TextBox3.Value)
errmsg:
End Sub
Private Sub UserForm_initialize()
担当者追加.TextBox1.Value = my追加(1)
担当者追加.TextBox2.Value = my追加(2)
担当者追加.TextBox3.Value = my追加(3)
End Sub
行番号の3列目を同じコードを追加しようとするとメッセージを出そう思うのですが、チェックされません。どうすればできるのでしょうか?とにかくなんかうまくできません
|
|