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

Sabiranje ćelija iz više radnih sveski preko VBA

[es] :: Office :: Excel :: Sabiranje ćelija iz više radnih sveski preko VBA

[ Pregleda: 2816 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

aikidomaster

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



+1 Profil

icon Sabiranje ćelija iz više radnih sveski preko VBA16.09.2009. u 13:15 - pre 147 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: 2199
*.3dnet.rs.

Sajt: www.gowi.rs


+96 Profil

icon Re: Sabiranje ćelija iz više radnih sveski preko VBA17.09.2009. u 05:33 - pre 147 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

icon Re: Sabiranje ćelija iz više radnih sveski preko VBA17.09.2009. u 23:01 - pre 147 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: 2199
*.bisinter.net.

Sajt: www.gowi.rs


+96 Profil

icon Re: Sabiranje ćelija iz više radnih sveski preko VBA18.09.2009. u 08:11 - pre 147 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

[es] :: Office :: Excel :: Sabiranje ćelija iz više radnih sveski preko VBA

[ Pregleda: 2816 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

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