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

• #9363 Delila_1 veterán Fire/SOUL/CD #9360

  Új Válasz 2011-02-05 17:41:15 #9363

  Ú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

  

  Delila_1

  veterán

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

  Szerintem elég ennyi, mivel 1 név csak 1× szerepel a C2:CX2 tartományban:

  Sub Keres()
  Range("C2:CX2").Select
  amitkeres = InputBox("Add meg a keresni kívánt nevet!", "Keresés")
  
  On Error GoTo Nincs
  Selection.Find(What:=amitkeres, After:=ActiveCell, LookIn:=xlValues, _
  LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
  MatchCase:=False, SearchFormat:=False).Select
  Selection.Font.Bold = True
  Exit Sub
  Nincs:
  MsgBox ("A keresett név nincs a listában.")
  End Sub

  A lényeg, hogy kijelölöm a tartományt, és NEM Cells.Find, hanem Selection.Find legyen a kereső sor.

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