Hirdetés

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

  • m.zmrzlina

    senior tag

    válasz pirit28 #9335 üzenetére

    Valami ilyesmire gondolsz?

    Private Sub CommandButton1_Click()

    Cells(2, 3).Activate

    Do Until ActiveCell.Value = ""
    amitkeres = InputBox("Add meg a keresni kívánt nevet, vagy név részletet!", "Keresés", amitkeres)
    Cells.find(What:=amitkeres, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
    Loop

    End Sub

    Inputboxban bekéri a keresendő karaktersorozatot és végigkeresi a C sort az utolsó névig úgy, hogy minden találatnál megáll. <Enter>-rel tudsz a következő találatra ugrani.

    Szerintem a munkalapra elhelyezett parancsgombos indítás nem a legcélszerűbb (ennél a megoldásnál biztosan nem). 2007-ben a Gyorsindítás eszköztárba tennék egy parancsgombot, korábbiaknál új menüpontot tennék a menübe.

    Melyik Excel verziót használod?

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