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

• #9355 m.zmrzlina senior tag Fire/SOUL/CD #9354

  Új Válasz 2011-02-05 16:11:00 #9355

  Ú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

  

  m.zmrzlina

  senior tag

  válasz Fire/SOUL/CD #9354 üzenetére

  Ezt sikerült kiötleni, úgy tűnik működik.

  Sub find()
  
  eleje:
  Cells(2, 3).Activate
  
  amitkeres = InputBox("Add meg a keresni kívánt nevet!", "Keresés", amitkeres, 13000, 100)
  
  On Error Resume Next
  
  Cells.find(What:=amitkeres, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
  
  If Err.Number = 91 Then
  MsgBox ("A keresett név nincs a listában.")
  GoTo eleje
  End If
  
  If ActiveCell.Row <> 2 Then
  Cells(2, 3).Activate
  MsgBox ("A keresett név nincs a listában.")
  GoTo eleje
  End If
  
  End Sub

  Működni működik de jó ez így?

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