Ú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

• #919 alyby csendes tag Thyb #916

  Új Válasz 2006-02-08 15:20:34 #919

  Ú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

  

  alyby

  csendes tag

  válasz Thyb #916 üzenetére

  Gondolom azért nem jó nálam, mert nekem magyar excelem van.
  A value gondolom = érték,
  MID = közép?
  Text = szöveg?
  
  Igen így már tökéletes
  
  Köszönöm szépen
  
  [Szerkesztve]
  
  [Szerkesztve]

• #918 alyby csendes tag Thyb #916

  Új Válasz 2006-02-08 15:02:31 #918

  Ú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

  

  alyby

  csendes tag

  válasz Thyb #916 üzenetére

  Köszönöm válaszodat. Próbálom

• #202 rdi veterán Thyb #201

  Új Válasz 2005-03-09 21:17:00 #202

  Ú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

  

  rdi

  veterán

  válasz Thyb #201 üzenetére

  Hát gondolom jobb megoldás nincs. Esetleg át lehet exportálni accesba?
  
  Megnéztem, megint tanultam valamit.
  
  
  
  [Szerkesztve]

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