Filtriranje kolone

[ aikidomaster @ 15.10.2010. 10:28 ] @

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!!!)

[ Jpeca @ 17.10.2010. 19:35 ] @

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

[ neptuncokg @ 18.10.2010. 18:28 ] @

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.

[ 3okc @ 22.10.2010. 18:34 ] @

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). :)

[ neptuncokg @ 22.10.2010. 20:49 ] @

Ni pomislio nisam na dzoker-znake. Hvala puno. Pozdrav

[ aikidomaster @ 05.11.2010. 13:37 ] @

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