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

• #924 Thyb senior tag Thyb #923

  Új Válasz 2006-02-10 10:33:11 #924

  Ú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

  

  Thyb

  senior tag

  válasz Thyb #923 üzenetére

  Szeintem próbálkozz ezzel a Macroval.
  Nagyjából beleirtam mit csinál, és ez a legjobb megoldás, bár ha külön oldalon akarod mindenképp látni az adatokat, akkor más a helyzet.
  
  Sub Searchfor()
  '
  ' Macro1 Macro
  ' Macro edited 2006.02.10 by tkiss
  '
  
  'Te adhatod meg, a 7-ik sorban, hogy mely területet akarod vizsgálni,
  'ez a módszer segit abban, ha több azonos adat van az A oszlopban, akkor mindet megjelenitse
  '
  'Ezt az egésszet lehet ugy is bonyolitani, hogy két inputboxot dobsz fel,
  'és két oszlopban csinálsz szürést
  
  
  Dim mydata, Message, Title, default
  Message = ''Irja be a keresett értéket'' ' Set üzenet.
  Title = ''Érték keresés'' ' Set Fejléc.
  default = ''x'' ' Set alapérték.
  ' Megjelenited a beviteli mezőt, cimet, alapértéket
  mydata = InputBox(Message, Title, default)
  Range(''A160000'').AdvancedFilter Action:=xlFilterInPlace, Unique:=False
  Range(''A1'').Select
  Selection.AutoFilter
  Selection.AutoFilter Field:=1, Criteria1:=mydata
  End Sub
  
  Sub ShowAll()
  '
  ' Macro3 Macro
  ' Macro edited 2006.02.10 by tkiss
  '
  
  '
  Selection.AutoFilter 'torli az autofiltert
  End Sub

  Ha a hatalom csúcsán nincs erkölcs, alatta nincs szabadság.

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