Izlistati spisak dužnika

Ovako imama jedan sheet-s u kojima postoje kolone:

Kolona A-ime firme.
Kolona B-broj računa
Kolona C-Iznos računa
Kolona D-plaćen iznos računa.

Firmi imama preko 60 recimo

Hoću da u jednom sheet-u pritiskom na dugem recimo dužnici izbaci samo one koje su dužni u jednoj koloni a u drugoj koloni ukupan iznos duga.
Pošto svaka firma u svom broju računa poseduje neki kontrolni broj koji je recimo -01- za firmu br. 1, -2- za firmu broj 2.....


Ja sam napisao makro za jednu firmu ali to treba sada doraditi.

Sub duznici()

For a = 4 To 1002 ---------------- a ide od 4 jer mi je gore zaglavlje
If InStr(Worksheets("Raèuni").Cells(b, 3), "-01-") Then
k = k + Worksheets("Raèuni").Cells(b, 7)
t = t + Worksheets("Raèuni").Cells(b, 8)
End If
Next a

S = k - t
If S > 0 Then
Worksheets("SUMA").Range("D13") = S
Worksheets("SUMA").Range("C13") = "FIRMA 1"
End If
End Sub
Ako bih ovako išao onda bi mi trebalo ko zna koliko promeljivih za svaku firmu i isto tako i petlji.
Ima li neko jednostavnije rešenje.
Znači treba mi samo lista firmi sa ukupnim dugom u tom trenutku.
Ndam se da je jasno ono što tražim.

A da li si probao da rešiš sa pivot tabelom? Formiraš sračunatio polje (Calculated field) Dug kao razliku polja Iznos računa i Plaćeni iznos računa i onda sumiraš po tom firmi (row), a polje dug postaviš kao detalj.

Potpis

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

Ok samo još da napišeš kako se to radi pošto nisamzaista nikada koristio pivot table.
Ono što znam jeste da kliknem prvo u neko polje gde mi je tabela iz koje vadim podatke.
Zatim klinem na pivot table and pivot chart reports. zatim ništa ne čačkam u prvom prozoru i kliknem na next. u sledećem selektujem tabelu i kliknem na next.
E sada u sledećem prozoru idem na layout opciju i tu prevučem kolone u data polje koje mi trrebaju i obležim ih da mi sumiraju te čelije.
Pitanje je gde i šta treba da uradim da bi mi sumirao samo razliku. odnosno kako se pravi taj (Calculated field). vidio sam da si u svom primeru naveo u posebnom sheet-u neku formulu ali ne znam kako se ona kombinuje sa pivot table.
Molim za pomoć makar tutorial neki kratak ako može.
unapred hvala

Linkovi za tutoriale za pivot tabele već su bili pominjani na ovom forumu (npr. http://www.elitesecurity.org/t279746-0#1669796). U njima ćeš naći više detalja, ali evo ovde postupak dodavanja sračunatog polja (Calculated Field) u izvedenu tabelu (Pivot table) za Excel 2007.
1. Nakon što si formirao izvedneu tabelu pomoću čarobnjaka selektuj neku ćeliju izvedene tabele.
2. Otvori karticu Options (Pivot table Tools) Ribon trake , pa iz padajuće liste Formulas izaberi Calculated Field
3. U dijalogu Insert Calculated Field, unesi naziv sračunatog polja (npr. Dug) u polju Name.
4. Iz liste polje u donjem delu dijaloga izaberi prvo polje koje treba da učestvuje u formuli (u tvom primeru Iznos računa). Nazvim ovog poja će se iskopirati u polje Formula
5. Otkucaj operator ( – u tvom primeru), pa na isti način kao u koraku 4 unesi drugo polje u formulu (u tvom slučaju Plaćeni iznos) i potvrdi sa OK.
6. Novo polje trebalo bi da se automatski pojavi u sekciji Details izvedene tabele.

Potpis

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

mnogo hvala na objasnjenju

Hvala još jednom samo još jadno malo pitanjce.
Da li postoji mogućnost da mi ne prikazuje one koji ne duguju ništa tj one čiji je dug 0
Pošto meni sada izlistava sve po abecednom redu i sada sve radi samo me nervira ova stvaka

Svašta se može uz malo dobre volje :).

Ako imaš Excel 2007, kad otvoriš padajuću listu za Firme (Row Labels) u Pivot tabeli naćićeš mogućnost filtriranja i tu stavim greter than 0.

Potpis

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