سلام
اول باید ردیف مورد نظر رو پیدا کنید بعد اسم و فامیل متناظر با اون رو فراخوانی کنید .
یه چیزی شبیه به این میشه :
کد PHP:
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
علاقه مندی ها (Bookmarks)