[Excel] Makro za filtriranje liste

[Excel] Makro za filtriranje liste 18.10.2006. u 20:35 · pre 243 meseca #1

Evo jos jednog pitanjceta.
Kako napraviti macro koji ce da radi sledece:
Ako imam tabelu u kojoj su mi u celiji jednoj ispod druge uneti podaci, recimo,
12
25
35
16
20
40

I sad on treba od tih unetih podataka da mi izabere one koji su, recimo manji od 20 i da ih ispise, ali pri tom da mi ispise prvo u celiji iznad
"<20", a onda ih navede
12
16
i onda mi ispod njih upise
">= 20" i onda navede ostale
25
35
20
40
i onda sumira sve:
"SVEGA" i izbaci rezultat.
Pri tom u tabeli u kojoj se unose podaci ne mora uvek da bude uneto 6 brojeva, to je promenjivo.
Da li je uopste moguce da mi on na osnovu te tabele pravi drugu u drugom sheet-u, po tom kriterijumu i kako?
Ja sam probala kroz VB, ali... :-(

[Excel] Makro za filtriranje liste 31.10.2006. u 16:30 · pre 243 meseca #2

Poruka premeštena u novu temu

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Re: [Excel] Makro za filtriranje liste 31.10.2006. u 16:59 · pre 243 meseca #3

Moze da se uradi i bez makroa, kreiranjem pivot tabele
u kojoj ce podaci biti grupisani po intervalima koje navedes.

Pogledaj ovaj jednostavan primer

primer.xls7.5k

Re: [Excel] Makro za filtriranje liste 03.11.2006. u 21:55 · pre 243 meseca #4

Da ali...
meni treba da mi u toj tabeli stoje i brojevi koje je on sumirao, znaci ne samo sume, vec bas onako kako je gore navedeno, da ispise prvo kriterijum koji ispunjavaju, pa ih navede, potom sledeci kriterijum, pa navede i tako dalje i onda sve sumira i da se sve to vidi.

Re: [Excel] Makro za filtriranje liste 06.11.2006. u 11:12 · pre 243 meseca #5

Nadam se da je ovo što si tražila. Kroz Inputbox zadaju se ulazni podaci i celija od koje se smestaju rezultati. Uslov je fiksiran u kodu, ali se uz sitne intervencije moze i on prezeti iz Inputbox-a, ili kao vrednost neke celije

Code:

Sub FilterList()
Dim rngSource As Range
Dim rngDest As Range
Const uslov As Double = "20"   ' Ovde promeniti uslov

On Error Resume Next
Set rngSource = Application.InputBox("Selektuj listu za filtriranje:", "Ulazni podaci", Type:=8)
If (rngSource Is Nothing) = True Then Exit Sub

Set rngDest = Application.InputBox("Selektuj odredišnu celiju:", "Filrirani podaci", Type:=8)
If (rngDest Is Nothing) = True Then Exit Sub

' Prvi deo
rngDest.Value = "< " & uslov
r = 1
For Each c In rngSource
  If c.Value < uslov Then
   rngDest.Offset(RowOffset:=r).Value = c.Value
   r = r + 1
  End If
Next c
' Drugi deo
rngDest.Offset(RowOffset:=r).Value = ">= " & Str(uslov)
r = r + 1
For Each c In rngSource
  If c.Value >= uslov Then
   rngDest.Offset(RowOffset:=r).Value = c.Value
   r = r + 1
  End If
Next c
' Total
rngDest.Offset(RowOffset:=r).Value = "SVEGA"
rngDest.Offset(RowOffset:=r + 1).Formula = "=SUM( " & rngDest.Address & ":" & rngDest.Offset(r - 1).Address & ")"
rngDest.Offset(RowOffset:=r + 1).Font.Bold = True

End Sub

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Re: [Excel] Makro za filtriranje liste 09.11.2006. u 18:49 · pre 243 meseca #6

Hey, izvini sto ranije nisam odgovorila... Bila sam u nekoj frci.. Da, to je od prilike to sto mi treba, mislim da cu se snaci, ako ne, javicu se.... Hvala!

Forum kao aplikacija na telefonu

Srodne teme