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

• #9336 m.zmrzlina senior tag pirit28 #9335

  Új Válasz 2011-02-05 09:26:05 #9336

  Ú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

  

  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