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

• #5328 Delila_1 veterán Lamair #5325

  Új Válasz 2009-09-04 09:20:16 #5328

  Ú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 Lamair #5325 üzenetére

  Más módszerrel:

  Sub Keres_1()
  v% = InputBox("Kérem a keresendő értéket", "Keresés")
  On Error GoTo Hiba
  Cells.Find(What:=v%, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
  xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
  , SearchFormat:=False).Activate
  sor = Selection.Row
  Rows(sor).Select
  Exit Sub
  Hiba:
  MsgBox "Nincs ilyen érték"
  End Sub

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