マクロで表の一部を書き換えたい

質問

Ａ列に購入日・Ｂ列に管理番号・Ｃ列に使用状況・Ｄ列に使用日と言った表が有るとして、指定したセル（例えばＥ５に管理番号・Ｅ６に使用日）を入力してマクロを実行した時に表の一部を書き換えたい。
Ａ列は条件から外しても良いと思いますので以下の説明は省略します。
表には
管理番号　使用状況　使用日
１００１　　未使用　　（空白）
１００２　　未使用　　（空白）
１００３　　未使用　　（空白）
使用日を１月１日・管理番号を１００２と入力した時に
管理番号　使用状況　使用日
１００１　　未使用　　（空白）
１００２　　使用　　　１月１日
１００３　　未使用　　（空白）
と書き換えたい。
条件は、まず表の中に入力した管理番号が有るかの判別し無ければエラーメッセージを返して終了、次に入力した管理番号が既に使用になっていないかを判別し使用になっていればエラーメッセージを返して終了、この２つの条件を満たした時に表を書き換えて完了。
解り難い説明で申し訳ありませんが、よろしくお願いします。

回答No.2

toshi_2000 · ベストアンサー

１．「検索セル」は、変数名です。
２．書き換えマクロは、次のとおり。
Cells(検索セル.row,2)="使用"
Cells(検索セル.row,3)=Cells(6,5)

お礼

本当にありがとう御座いました。
お陰さまで行き詰ってた管理表が完成に近づきました。

回答No.1

toshi_2000

マクロは以下の通り。
Set 検索セル = Range("A:A").Find(Cells(5, 5))
If 検索セル Is Nothing Then
MsgBox "ERROR"
End
Else
If Cells(検索セル.Row, 2) = "使用" Then
MsgBox "ERROR"
End
Else
'書き換え（省略）
End If
End If

お礼

回答して頂き誠にありがとう御座います。
検索セルを具体的な式で書いて頂ければ助かるのですが、それと書き換えの式を省略なしで教えて頂けないでしょうか？
素人過ぎて済みません。