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

  • 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