Snasui Excel Forum

Code: Select all

Private Sub CommandButton1_Click()
Dim wb As Workbook
Application.ScreenUpdating = False
    Application.DisplayAlerts = False
Set wb = Workbooks.Open("D:\Sooksun\Improvement\visual\Database.xlsm", False, False)
With wb
    Dim nRow As String
    nRow = wb.Sheets("Data").Columns(1).Find(txt_Vinno.Text).Row
     Sheet1.Activate
    If Err.Number = 91 Then
        txt_Vinno.RowSource = "txt_Vinno.Text"
          MsgBox "äÁèÁÕ¢éÍÁÙÅ Vin number"
          Exit Sub
    End If
     txt_Vinno = Cells(nRow, 1)
    lbl_model.Caption = Cells(nRow, 2)
    End With
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

Code: Select all

'Other code
Dim nRow As Integer
nRow = wb.Sheets("Data").Columns(1).Find(txt_Vinno.Text).Row
 Sheet1.Activate
If Err.Number = 91 Then
    txt_Vinno.RowSource = "txt_Vinno.Text"
      MsgBox "ไม่มีข้อมูล Vin number"
      Exit Sub
End If
UserForm1.lbl_model.Caption = wb.Sheets("Data").Cells(nRow, 2).Value
'Other code