Új hozzászólás Aktív témák

• #23074 lappy őstag Thrawnad #23073

  Új Válasz 2014-09-03 13:54:35 #23074

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lappy

  őstag

  válasz Thrawnad #23073 üzenetére

  Sub FINDSAL()
  On Error GoTo MyErrorHandler:
  Dim E_name As String
  E_name = InputBox("Enter the Employee Name :")
  If Len(E_name) > 0 Then
  Sal = Application.WorksheetFunction.VLookup(E_name, Sheet1.Range("B3:D13"), 3, False)
  MsgBox "Salary is : $ " & Sal
  Else
  MsgBox ("You entered an invalid value")
  End If
  Exit Sub
  MyErrorHandler:
  If Err.Number = 1004 Then
  MsgBox "Employee Not Present in the table."
  End If
  End Sub

Új hozzászólás Aktív témák