ثبت اختصاصي اطلاعات يك شيت در شيت ديگر منطبق بر id

[afshin3a]

سلام اساتيد گرامي!
طبق فايل پيوست من بايد ماكرويي بنويسم كه در شيت 1 هر id ايي كه وارد كردم، در شيت 2، همان id را پيدا كند و در ركورد متناظرش آنجا كپي شود. اگر قبلا اطلاعاتي در آن ركورد متناظر (شيت 2) وارد شده بود، مسيج باكسي نمايش داده شود كه: "قبلا اطلاعات وارد شده است" و اطلاعات ثبت نگردد. چگونه اين ماكرو رو بايد نوشت؟

[misammisam]

سلام
اول باید ردیف مورد نظر رو پیدا کنید بعد اسم و فامیل متناظر با اون رو فراخوانی کنید .
یه چیزی شبیه به این میشه :

Private Sub CommandButton1_Click()
On Error Resume Next
lastrow = Sheet2.Range("A:A").Find(What:=(Sheet1.Range("b1").Value), After:=[a1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookAt:=xlWhole).Row
b = Sheet2.Range("b" & lastrow).Value
c = Sheet2.Range("c" & lastrow).Value
If b = "" And c = "" Then
Sheet2.Range("b" & lastrow).Value = Sheet1.Range("b2").Value
Sheet2.Range("c" & lastrow).Value = Sheet1.Range("b3").Value
MsgBox "ÈÇ ãæÝÞíÊ ËÈÊ ÔÏ"
Else
MsgBox "ÇØáÇÚÇÊí ÞÈáÇ ËÈÊ ÔÏå ÇÓÊ ÈÇ ãÔÎÕÇÊí ÔÇãá" & vbNewLine & vbNewLine & "First Name : " & b & vbNewLine & "Last Name : " & c
End If
End Sub