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

• #9361 Fire/SOUL/CD félisten Fire/SOUL/CD #9360

  Új Válasz 2011-02-05 17:22:11 #9361

  Ú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 Fire/SOUL/CD #9360 üzenetére

  Ja, mondjuk azt a "2. sorban" dolgot nem vágom.
  Mihez képest 2. sorban? C2-hőz képest, azaz 3. sorban?
  Ha igen, akkor módosítod a kódot...

  Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

• #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.

  [ Szerkesztve ]

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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