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

• #9341 m.zmrzlina senior tag pirit28 #9338

  Új Válasz 2011-02-05 12:39:49 #9341

  Ú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 pirit28 #9338 üzenetére

  Ha egy név csak egyszer szerepel a listában akkor lehet ez egy megoldás:

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

  Nincs bolondbiztossá téve még, csak próbálkozom.

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