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

• #2217 pirit28 csendes tag

  Új Válasz 2013-10-14 20:32:06 #2217

  Ú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

  

  pirit28

  csendes tag

  Jóó estét az uraknak ,hölgyeknek.

  Régibb kaptam egy nagyon jó kis kereső kódocskát, amit egy másik excell file-ban szeretnék használni.
  A problémám az lenne ,hogy a találati eredmény után ,ami ugye a keresett érték, a talált érték mellett a sorban 2 cellával arrébb kellene hogy kijelölje azt a cellát amibe adatot vinnék fel. Ez annyiban könnyítené meg a dolgom ,hogyha megvan az eredmény akkor nem kellene nyilacskát használnom ahhoz hogy az adatot a megfelelő helyre tudjam bevinni,minél hamarabb

  Range("a2:A1000").Select
  amitkeres = InputBox("Add meg a keresni kívánt nevet vagy névrészletet !", "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 = False

  Exit Sub
  Nincs:
  MsgBox ("A keresett név nincs a listában.")
  End Sub

  Rem érthető voltam ,a választ válaszokat előre is köszönöm.

  Üdv.

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