VBAでの「番号」の検索について
お願いします。エクセルで注文書発行とその受入処理を作成してます。
注文書の明細を作成し、個々にID番号をつけてます。1、2、3・・・・連番です。受入処理で発行日付で注文データを検索しヒットしたものを別シートに縦に表示させ、「先頭」「次」「前」「最終」ってかんじのボタンをつけてデーターがくるくる変わるようにしてあります。この中の番号「1」の注文データを受入処理(受入済とあるセルに入力)し、注文履歴のシートに同じ番号を検索して上書きさせます。ところが、番号「1」なのに「10」のところを上書きします。ほかの番号は異常ないのですが・・・
マクロは
'入力したデータをコピー
Range("c5:c24").Copy
'[T_注文]シートを選択
Sheets("T_注文").Select
'最終行番号を取得
z = Range("a1").End(xlDown).Row
'[番号]を検索
Set x = Range("a2:a" & z).Find(Range("T_受入処理!c5").Value)
'既存データの修正
x.PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=True
'コピーモードを解除
Application.CutCopyMode = False
MsgBox "この品目の受入処理を完了しました。", vbOKOnly, "オービットベース:受入処理完了"
です。どうしたらよいかおしえてください。