VBA どうすればいいですか、、、

質問

発注、返品が出来るようなものを作っているのですが
発注、返品はそれぞれ各フォームがあり、各シートに転記されるようにしてあります。発注、返品それぞれ受注番号が自動でつくようにしてありますが、返品作業をするとがなぜか発注シートにも同じ受注番号だけ転記されてしまうような現象が起きています。(下記参照)

'「受注データ」シートへの書き込み
Dim tgtRow As Long
tgtRow = getLastRow(S_Order) + 1 '最終行取得
Me.txb_odrId.Value = getNewId(S_Order) '新規受注IDの取得
With S_Order '「受注データ」シート
.Cells(tgtRow, 1).Value = Me.txb_odrId.Value '受注ID
.Cells(tgtRow, 2).Value = getWriteDate(Me.txb_date) '受注日
.Cells(tgtRow, 3).Value = Me.cmb_stfId.Value '担当ID
End With

'「発注依頼データ」シートへの書き込み
tgtRow = Me.txb_tgtRow.Value '対象の行
S_Estimates1.Cells(tgtRow, 6).Value = Me.txb_odrId.Value '受注ID

'「返品データ」シートへの書き込み
tgtRow = Me.txb_tgtRow.Value '対象の行
S_Return1.Cells(tgtRow, 6).Value = Me.txb_odrId.Value '受注ID

どこを直せばいいのでしょうか？

どう説明すればいいか難しく分かりにくくてすみません。

回答No.2

kkkkkm

> 発注もした場合、同じ受注番号で自動的に付けたいのです、、、。

すみません。今一つ意味が分かりません。

> 発注と返品で分けた方がいいでしょうか、、、

違う事をするのに同じコードは無いと思いますが…。
If文で動作を分ければいいのではないでしょうか。

If 発注 then
「発注依頼データ」シートへの書き込み
ElseIf 返品 then
「返品データ」シートへの書き込み
End If

みたいな感じで。

お礼

ありがとうございました！

回答No.1

kkkkkm

返品作業をすると説明のコードが実行されるのでしたら
'「発注依頼データ」シートへの書き込み
があるから書き込まれているのではないですか。

お礼

ありがとうございました！

補足

発注もした場合、同じ受注番号で自動的に付けたいのです、、、。発注と返品で分けた方がいいでしょうか、、、