[es] - Sabiranje ćelija iz više radnih sveski preko VBA

aikidomaster

Član broj: 162160
Poruke: 148
*.cust.panline.net.

+1 Profil

Sabiranje ćelija iz više radnih sveski preko VBA

^{16.09.2009. u 13:15 - pre 177 meseci}

Da li moze u ovome dole kodu da se nekako izmeni da mi ne gleda samo duznik1.xls, duznik2.xls, duznik3.xls ("C:\Duznik" & Brojac & ".xls") nego da sabira sve koji pocinju sa duznik a zavrsavaju se sa ".xls" npr. Duznik pera.xls, Duznik Mika.xls, Duznik Djoka.xls ...??? kao npr("C:\Duznik" & "" & ".xls")
Ili mozda da sabira sve .xls koji se nalaze u jednom folderu...
HELPPP

Code:
Sub Duznici()
Dim a As Long
Dim Brojac As Long
Dim rezultat As Long
Dim NemaFajlova As Boolean
Brojac = 0
rezultat = 0
Do Until NemaFajlova = True
DoEvents
Brojac = Brojac + 1
Excel.Workbooks.Open ("C:\Duznik" & Brojac & ".xls")
a = Excel.Workbooks(2).Worksheets(1).Cells(5, 3)
rezultat = rezultat + a
Excel.Workbooks(2).Close
If Dir("C:\Duznik" & Brojac + 1 & ".xls") = "" Then NemaFajlova = True
Loop
Excel.Workbooks(1).Worksheets(1).Cells(5, 3) = rezultat
Excel.Workbooks(1).Save
MsgBox "Broj sabranih Dokumenata " & Brojac
End Sub

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: 2268
*.3dnet.rs.

Sajt: www.gowi.rs

+109 Profil

Re: Sabiranje ćelija iz više radnih sveski preko VBA

^{17.09.2009. u 05:33 - pre 177 meseci}

Pogledaj da li ti može koristiti kod u temi http://www.elitesecurity.org/t244545-0#1480497

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

Odgovor na temu

aikidomaster

Član broj: 162160
Poruke: 148
93.86.120.*

+1 Profil

Re: Sabiranje ćelija iz više radnih sveski preko VBA

^{17.09.2009. u 23:01 - pre 177 meseci}

Gledam ali ne kontam!?
Ja sam slab sa Excell om ... trazim pojednostavljenje

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: 2268
*.bisinter.net.

Sajt: www.gowi.rs

+109 Profil

Re: Sabiranje ćelija iz više radnih sveski preko VBA

^{18.09.2009. u 08:11 - pre 177 meseci}

Evo ovde ima tačno što ti tražiš. http://www.ozgrid.com/VBA/loop-through.htm Otvara jednu po jednu radnu svesku iz određenog foldera, a možeš i da postaviš filter na duznik*.xls. Unutar petlje napiši tvoj kod za sabiranje.

Code:
rezultat = rezultat + wbResultsWorksheets(1).Cells(5, 3)

U rezultatu ćeš dobiti zbir ćelija C5 iz svih radnih sveski iz određenog foldera.

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

Odgovor na temu