status only forward

[makhdoomliaqat]

Respected,
Please find the attached document,
i just only want to update the status which is in the cell " sheets1" "range("b5") on the sheet2 when i press the command button.
Hope for your soon reply
Regards,
Mak

[stnkynts]

Try:

Private Sub CommandButton1_Click()
Dim ws1 As Worksheet:   Set ws1 = Sheets("entry")
Dim ws2 As Worksheet:   Set ws2 = Sheets("register")
Dim iFind As Range

Set iFind = ws2.Range("A1:A" & ws2.Range("A" & Rows.Count).End(xlUp).Row).Find(What:=ws1.Range("B1").Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not iFind Is Nothing Then
    iFind.Offset(0, 4).Value = ws1.Range("B5").Value
End If

End Sub

[makhdoomliaqat]

Thanksu.
it is working thanksu very much sir
Thanksu for quick reply

may God give you a happy life.
Regards,
Mak