Snasui Excel Forum

Code: Select all

Dim foundItem As Boolean, rsp As Integer
Application.ScreenUpdating = False
myid = TextBox1.Text
On Error Resume Next
Sheets("employee").Select
If Err > 0 Then Exit Sub
Range("A2").Select
Do While ActiveCell <> ""
    If CDbl(myid) = ActiveCell.Value Then
        'TextBox1.Value = ActiveCell.Offset(0, 0).Value
        TextBox2.Text = ActiveCell.Offset(0, 1).Value
        TextBox3.Text = ActiveCell.Offset(0, 2).Value
        TextBox4.Text = ActiveCell.Offset(0, 3).Value
        Sheet1.Select
        Range("D12").Value = TextBox1.Value
        Range("I12").Value = TextBox4.Value
        Range("D14").Value = TextBox2.Value
        Range("D16").Value = TextBox3.Value
        foundItem = True
        Exit Do
    End If
    ActiveCell.Offset(1, 0).Select
Loop
If Len(TextBox1.Text) = 4 And Not foundItem Then
    rsp = MsgBox(Prompt:="Not found. Add this item click 'Yes'.", Title:="Not found", _
        Buttons:=vbYesNo + vbInformation)
    If rsp = vbYes Then
        '...Other code..
    End If
End If