VBA Userformで一部別シートに転記がしたいのですが

VBAド素人でネット参考に切って貼って編集して動くようにしていますm(__)m
うまくいきません、どのようにしたらよいのでしょうか？
Userformを開いて作業するシートはこのフォームで管理番号と使用者の該当する行を削除します
使用者（ComboBox1）条件抽出の為
管理番号（ComboBox6）条件抽出の為
メモ（ComboBox７）転記先シート”機器情報”
メモには在庫または使用を入力し別シートの管理番号行の転記する列はM列になります
わかる方からしたら酷いコードでしょうけどこんな感じです

Private Sub CommandButton1_Click()

Dim I As Integer
Dim iCheck As Integer
Dim sht As Worksheet
Dim RowNum As Long
Dim a

If Me.TextBox1 = "" Then
MsgBox "日付が入力されてません"
Exit Sub
End If

If Me.ComboBox1 = "" Then
MsgBox "使用者名が入力されてません"
Exit Sub
End If

For I = 2 To 1000
If Cells(I, 3).Value = "" Then Exit For
Next
'重複チェック
iCheck = I

For iCheck = 1 To I

'メモ/在庫変更
If Worksheets("機器情報").Cells(iCheck, 2) = ComboBox6 Then
Worksheets("機器情報").Cells(I, 13).Value = ComboBox7
Exit Sub
End If

If Cells(iCheck, 3).Value = Me.ComboBox6.text Then
MsgBox "PC名が重複してます"
Cells(iCheck, 3).Select
Exit Sub
End If

Next

'連番
Cells(I, 1).Value = I - 2
'編集日
Cells(I, 2).Value = CDate(TextBox1.Value)
'PC名
Cells(I, 3).Value = Me.ComboBox6
'使用者名
Cells(I, 15).Value = Me.ComboBox1
Cells(iCheck, 3).Select

Me.ComboBox6.SetFocus
Me.ComboBox6.text = ""
Me.ComboBox1.text = ""

Exit Sub

End Sub

'機器リスト表示
Private Sub UserForm_Initialize()
Dim lRow As Long
With Worksheets("機器在庫数")
lRow = .Range("M" & Rows.Count).End(xlUp).Row
End With
With ComboBox6
.ColumnCount = 12
.ColumnWidths = "\55;0;60;0;0;0;0;70;0;0;0;30"
.RowSource = "機器在庫数!A2:M1000" & lRow

End With
End Sub

No.2 回答者： 初心者ですが何か。 回答日時： 2023/05/25 18:55

＞【期待と現実】ってなに？

どのデータをどこに代入させたいけど、結果として意図しない場所に代入されてしまう。
とかを考えてました。

・ActiveSheet
・Worksheets("機器情報")
の２シートが対象なのか、
・ActiveSheet = Worksheets("機器情報")
になっているのかも不明。
だってSheet名を明確にしている部分と、それを省いている（アクティブなシート狙い？）部分の違いが不明。

もし代入されるシートが狙っている箇所でないなら、Sheet名の無指定が要因として挙げられると回答も可能。
それが【期待と現実】。

タイトルにあるのは【目的】じゃないかな。

No.1 回答者： 初心者ですが何か。 回答日時： 2023/05/25 11:12

【うまくいかない】から質問されているのでしょうけど、【期待と現実】をハッキリ記載した方が宜しいのでは？

＞'重複チェック
＞iCheck = I

この代入の必要性は次の

＞For iCheck = 1 To I

から必要ない事はわかりますが。

＞.RowSource = "機器在庫数!A2:M1000" & lRow

これも気になるのですが、本当は

.RowSource = "機器在庫数!A2:M" & lRow

こうされたい訳でもない？

この回答へのお礼

【期待と現実】ってなに？
タイトルに別シートに転記したいと記載していますが？

お礼日時：2023/05/25 14:43