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

• #9360 Fire/SOUL/CD félisten m.zmrzlina #9359

  Új Válasz 2011-02-05 16:56:12 #9360

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz m.zmrzlina #9359 üzenetére

  Akkor talán így

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

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