Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Filtriranje kolone

[es] :: Office :: Excel :: Filtriranje kolone

[ Pregleda: 2706 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

aikidomaster

Član broj: 162160
Poruke: 148
92.42.248.*



+1 Profil

icon Filtriranje kolone15.10.2010. u 10:28 - pre 163 meseci
Da li je moguce da se radi filtriranje kolone u kojoj su unestni neki nazivi gde bi recimo ako je u pitanju kolona A:A polje A1 sluzilo za filtriranje te kolone. A da za filtiranje kucam pocetno slovo npr.
Kucam slovo B
a dole kolone mi se filtriraju tj ostaju mi samo mesta koja pocinju sa slovom B

pa npr dodam BE
a on mi filtrira samo samo ona koja pocinju sa BE

i ako je to moguce da ih tavlja na vrh kolone (ne da budu izbrisana ona koja ne ispunjavaju taj uslov) jer recimo ako imam 1000 naziva da nemoram da skrolujem)

Trazio sam ali nigde nisam mogao da nadje tako nesto

(nemora da bude u excelu!!!)
Ono sto ne moze niko Mogu i ja
 
Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2267
*.wimax.verat.net.

Sajt: www.gowi.rs


+109 Profil

icon Re: Filtriranje kolone17.10.2010. u 19:35 - pre 163 meseci
Tako nešto se može postići sa Advance filterom. Iznad tabele koju filtriraš umetni tri reda.
U A1 unesi tačan naziv kolone po kojoj filtriraš. U A2 unesi prvih nekoliko slova i onda aktiviraj Advance filter. Kao List Range navedi opsega za tabelu koju filtriraš, a Kriterija ranbe A1:A2. Nakon OK dobićeš filtranu tabelu.

Nezgoda ovog rešenja je što svaki put moraš da aktiviraš Advance filter. Postoji mogućnost da uz pomoć VBA na promenu sadržaja ćelije A2 automatski aktiviraš Advance filter. Rešenje se sastoji iz rutine koju pozivaš iz događaja Worksheet_Change

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
' Poziva advance filter na promenu celije
'
   If Not Intersect(Range("A2"), Target) Is Nothing Then
        Range("A4:A11").AdvancedFilter _
                 Action:=xlFilterInPlace, _
                 CriteriaRange:=Range("A1:A2")
   End If
End Sub


Sada kad uneseš nekoliko slova i Enter dobićeš filtriranu tabelu. Kad Selektuješ A2 i Delete dobićeš kompletnu listu.

Pogledaj i rešenje QuickSearch koje je postavio Timmy http://www.elitesecurity.org/t326700-0#1977150
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
Prikačeni fajlovi
 
Odgovor na temu

neptuncokg
Predrag M
racunovodja
Kragujevac

Član broj: 230353
Poruke: 326
*.dynamic.isp.telekom.rs.



+9 Profil

icon Re: Filtriranje kolone18.10.2010. u 18:28 - pre 163 meseci
Jako interesantna tema, a pogotovu resenje. Ja sam primer ukljucio u jedan svoj obrazac, i odlicno radi, osim - ako su u koloni "A" pocetni karakteri brojevi. Npr. ako je u A10 - "11 Beograd", i otkucam u A2 - "11", nema rezultata. Tek kad otkucam - "11 B", filter proradi. Pokusao sam da preformatiram kolonu "A" na text, na numeric, ali bez efekta. Pozdrav.
Prikačeni fajlovi
 
Odgovor na temu

3okc
Χoᴘᴦoѡ

Moderator
Član broj: 811
Poruke: 1318

Jabber: 3okc@elitesecurity.org


+116 Profil

icon Re: Filtriranje kolone22.10.2010. u 18:34 - pre 163 meseci
Naravno da nema rezultata jer se uneti brojevi tretiraju kao - brojevi.

Sem toga, kada imaš potrebu da filtriraš za delimičan unos, koristi džoker '*'.

Za ovaj slučaj će biti dovoljno da uneseš "11*" (a istovremeno će džoker pretvoriti i broj u txt). :)
Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!
 
Odgovor na temu

neptuncokg
Predrag M
racunovodja
Kragujevac

Član broj: 230353
Poruke: 326
*.dynamic.isp.telekom.rs.



+9 Profil

icon Re: Filtriranje kolone22.10.2010. u 20:49 - pre 163 meseci
Ni pomislio nisam na dzoker-znake. Hvala puno. Pozdrav
 
Odgovor na temu

aikidomaster

Član broj: 162160
Poruke: 148
92.42.248.*



+1 Profil

icon Re: Filtriranje kolone05.11.2010. u 13:37 - pre 163 meseci
E to sam trazio
Code:
If Not Intersect(Range("C2"), Target) Is Nothing Then
        Range("C4:C272").AdvancedFilter _
                 Action:=xlFilterInPlace, _
                 CriteriaRange:=Range("C1:C2")
    End If


Hvalaaaaaaa
Ono sto ne moze niko Mogu i ja
 
Odgovor na temu

[es] :: Office :: Excel :: Filtriranje kolone

[ Pregleda: 2706 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.