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

[Excel] Prepisivanje podataka iz više datoteka u jednu po određenom kriteriju

[es] :: Office :: Excel :: [Excel] Prepisivanje podataka iz više datoteka u jednu po određenom kriteriju

Strane: 1 2

[ Pregleda: 7798 | Odgovora: 21 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Sudarica

Član broj: 119175
Poruke: 209
*.dialin.iskon.hr.



Profil

icon [Excel] Prepisivanje podataka iz više datoteka u jednu po određenom kriteriju20.06.2007. u 22:15 - pre 205 meseci
Molila bi pomoć
Imam oko 50 datoteka u koje unosim mjesečno podatke. One su sve istog formata. Htjela bi mjesečno imati i jednu ukupnu datoteku za npr.6.2007 u koju će se

1. prepisati podaci iz ćelije A4, D4, H4, K4 (koji se prepisuju uvijek) i reda koji počinje sa oznakom npr VI (što znači podaci za 6 mjesec)
2. u 7 mjesecu bi se prepisali podaci iz ćelija A4, D4, H4, K4 i reda koji počinje sa oznakom npr VII .

Datoteke bi se zvale Ukupno VI ili Ukupno VII

Svaka od ovih 50 datoteka ima 24 stupca i 22 reda. U 4 redu su osobni podaci koji bi se trebali prepisivati u stupac A B C i D . a od stupca E podatke iz 10 reda prvog stupca (ćelija A10) sve podatke koji se nalaze u tim redovima. Redovi počinju sa oznakom od I - XII i trebale bi biti naziv ukupne datoteke.

Put do Ukupnih datoteka bi bio
"C:\Maja\Rad\Ukupno VI .xls
A one datoteke pojdenačne bi bio (oko 50)
"C:\Maja\Rad\xy .xls

Neznam koliko sam bila jasna
U ovih 50 datoteka unosim mjesečno podatke. Tako da bih htjela odmah dok unosim podatak u radnu knjigu da mi se on bilježi u Ukupno za taj mjesec. Osim toga svaka od ovih datoteka dok ju napravim trebala bi dobiti ime po D4. Osim toga u ovih 50 datoteka nemoram imati uvijek upisan svaki mjesec. Znači trebala bi upisati samo aktivne koje sam radila taj mjesec. Datoteka može biti već otvorena ili otvaram novu.
Hvala

Pozdrav


[Ovu poruku je menjao Sudarica dana 23.06.2007. u 21:10 GMT+1]
 
Odgovor na temu

Gix_
Milenkovic
Lyon (France)

Član broj: 113036
Poruke: 185
*.w90-41.abo.wanadoo.fr.



Profil

icon Re: [Excel] Prepisivanje podataka iz više datoteka u jednu po određenom kriteriju24.06.2007. u 12:58 - pre 204 meseci
Pokusao bih rado dati pomognem me iskreno receno nisam bas sve razumeo ,
nebi bilo lose da okacis jedan primer ako je moguce .
Bez ikakve sale i sa izvinjenjem statije to :
datoteka , stupca , reda ?

datoteka = radni list
stupca = colona
red = linija
Dalisam ukapirao ili je nesto drugo ?

Pozdrav


Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!
 
Odgovor na temu

Sudarica

Član broj: 119175
Poruke: 209
*.dialin.iskon.hr.



Profil

icon Re: [Excel] Prepisivanje podataka iz više datoteka u jednu po određenom kriteriju24.06.2007. u 13:53 - pre 204 meseci
Hvala na pokušaju

datoteka = file, radna knjiga, radna sveska ili .... .xls
stupca = column
red = row
cells = ćelije

Jednostavno trebam napraviti jednu datoteku (file) u koju će se upisivati sve ono što sam radila u svakoj pojedinačnoj datoteci (file). A ja ću onda iz te datoteke (file) izdvojiti ono što mi treba. U tu zajdeničku datoteku (file) treba mi prepisati ovako

Iz Primjera.xls celiju A4, D4, H4, K4,( u svakoj datoteci (file) je to isto) razlikuju se redovi ili row koji počinju oznakom I, II, III, IV, V, VI, VII, VIII, IX,X,XI ili XII, a trebali bi biti u nastavku iza prepisane prve četiri ćelije.


Evo primjera pojedinačne datoteke (file) Primjer.xls kojih mogu imati i do 500 u godini. a prikačit ću i kako bi trebala izgledati Ukupno.xls

(Odustala sam od onog Ukupno za svaki mjesec da nebi komplicirala.)

Neznam koliko sam dobro objasnila.

Svejedno hvala na trudu i što mi želiš pomoći.

Pozdrav
Prikačeni fajlovi
 
Odgovor na temu

Gix_
Milenkovic
Lyon (France)

Član broj: 113036
Poruke: 185
*.w90-41.abo.wanadoo.fr.



Profil

icon Re: [Excel] Prepisivanje podataka iz više datoteka u jednu po određenom kriteriju24.06.2007. u 15:58 - pre 204 meseci
Pojasnimi ovo malo vise

Iz Primjera.xls celiju A4, D4, H4, K4,( u svakoj datoteci (file) je to isto) razlikuju se redovi ili row koji počinju oznakom I, II, III, IV, V, VI, VII, VIII, IX,X,XI ili XII, a trebali bi biti u nastavku iza prepisane prve četiri ćelije.

U tvom primeru UKUPNO imas samo I red prepisan za ime Marko Marković staje sa ostalima II, III, IV itd ,

Dali svaki radnik poseduje posebnu radnu svesku ili jedna radna sveska za sve radnike na posebnim radnim listovima .

Moi licni predlog bi bio da posedujes jednu radnu svesku i radne listove po imenu radnika .



Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!
 
Odgovor na temu

Sudarica

Član broj: 119175
Poruke: 209
*.dialin.iskon.hr.



Profil

icon Re: [Excel] Prepisivanje podataka iz više datoteka u jednu po određenom kriteriju24.06.2007. u 16:26 - pre 204 meseci
Citat:
Gix_: Pojasnimi ovo malo vise


U tvom primeru UKUPNO imas samo I red prepisan za ime Marko Marković staje sa ostalima II, III, IV itd ,

.

ja sam to prepisala kao primjer, svi oni redovi koji su popunjeni prepisuju se u Ukupnu.xls (ustvari svi oni koji imaju upisan datum, jer datum je obavezan znači u prvom djelu ili u drugom djelu ili u oba, AKO IMA DATUM OD DO RED MORA BITI PREPISAN

Citat:
Dali svaki radnik poseduje posebnu radnu svesku ili jedna radna sveska za sve radnike na posebnim radnim listovima .


Da za svakog mora biti posebna radna sveska jer se ona na karju godine šalje elektronskom poštom za svakog pojedinačno u mjesto njegovog stanovanja. zato ih i imam toliko i zato mi je to problem

Citat:
Moi licni predlog bi bio da posedujes jednu radnu svesku i radne listove po imenu radnika


Bilo bi dobro ali nemogu na žalost mora biti tako




[Ovu poruku je menjao Jpeca dana 26.07.2007. u 14:06 GMT+1]

[Ovu poruku je menjao Jpeca dana 26.07.2007. u 14:07 GMT+1]
 
Odgovor na temu

Gix_
Milenkovic
Lyon (France)

Član broj: 113036
Poruke: 185
*.w90-41.abo.wanadoo.fr.



Profil

icon Re: [Excel] Prepisivanje podataka iz više datoteka u jednu po određenom kriteriju24.06.2007. u 17:26 - pre 204 meseci
Ok za prepisivanje , znaci svaka linija koja sadrzi datum .

Nevidim u cemuje problem za slanje elektronske poste , postoje Macro comande
koima mozes da saljes svakom radniku na kraju godine svoj radni list (Sheet)
akoje samo to upitanju mozese naci resenje vrlo jednostavno .

Praveci za svaog radnika posebnu radnu svesku postaje komplikovano

Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!
 
Odgovor na temu

Sudarica

Član broj: 119175
Poruke: 209
*.dialin.iskon.hr.



Profil

icon Re: [Excel] Prepisivanje podataka iz više datoteka u jednu po određenom kriteriju24.06.2007. u 17:50 - pre 204 meseci
ne znam kako misliš, na kraju mogu imati i oko 500 možda i više sheet šta ću onda ali probaj ako možeš staviti sve pa ću vidjeti kako to izgleda. Svaka pomoć je dobro došla. Ineče ne znam raditi cjeli makro ali ga znam jako dobro prilagoditi svojim potrebama ( ja ti ne znam niti jednu riječ engleskog a kasno je da ga idem sada učiti a s godinama mozak postaje mali) oprosti ovo je ipak bilo hrabro priznati zar ne...


znaš o čemu razmišljam

u tom poddirektoriju ili ne znam kako se stručno zove viši nivo datoteke (file) nalaze se samo datoteke vezane za to znači za svakog radnika i ukupno.xls Trebalo bi nekako napisati code koji će povezati sve te datoteke u jednu i dati mu put od poddirektorija do datoteke.xls

Iz svih datoteka koji se nalaze u poddirektoriju npr. c:\Svezajedno\...xls prepiši tražene podatke ..................

ili dok radim u svakoj radnoj knjizi da imam negdje nekakovu forum ili makro kojim ću dok unesem podatak na pojedinačnoj radnoj knjizi dati nalog da mi prepiše to u Ukupno.xls

tako bi to nekako trebalo izgledati.


[Ovu poruku je menjao Sudarica dana 24.06.2007. u 19:02 GMT+1]
 
Odgovor na temu

Gix_
Milenkovic
Lyon (France)

Član broj: 113036
Poruke: 185
*.w90-41.abo.wanadoo.fr.



Profil

icon Re: [Excel] Prepisivanje podataka iz više datoteka u jednu po određenom kriteriju24.06.2007. u 19:12 - pre 204 meseci
Razumeosam sta zelis , nemam bas neku ideju fiksnu jer 500 radnih sveski
lici na atomsku centralu , neobecavam ti dacu uspeti pronaci resenje me ipak cu pokusati .
Nisam bas ni ja neki specialista i uisto vreme nemam bas nesto posebno slobodnog vremena .
Videcu stase moze uraditi , nadamse dase nezuris bas nesto posebno .
Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!
 
Odgovor na temu

Sudarica

Član broj: 119175
Poruke: 209
*.dialin.iskon.hr.



Profil

icon Re: [Excel] Prepisivanje podataka iz više datoteka u jednu po određenom kriteriju24.06.2007. u 20:32 - pre 204 meseci
U svakom slučaju hvala ti
Već dugo me muči ovaj problem

Veliki pozdrav (nemoj brinuti doći će neko ko će mi sigurno pomoći.)
 
Odgovor na temu

Brz_na_tastaturi
Svilajnac

Član broj: 63852
Poruke: 318
77.46.253.*



+1 Profil

icon Re: [Excel] Prepisivanje podataka iz više datoteka u jednu po određenom kriteriju24.06.2007. u 22:40 - pre 204 meseci
Podaci u fajlu Primjer.xls se ne slažu sa opisom iz pitanja:
Citat:
Sudarica: ...
1. prepisati podaci iz ćelije A4, D4, H4, K4 (koji se prepisuju uvijek) i reda koji počinje sa oznakom npr VI (što znači podaci za 6 mjesec)...

a u fajlu se ti podaci (zaglavlja) nalaze u ćelijama A4,C4,G4,J4.
Gde se nalaze u originalnim fajlovima?
Po koliko radnih listova imaju originalni fajlovi i da li je naziv radnog lista i kome su podaci isti svuda ili ima razlike (List1,Sheet1, nesto_trece)?


Možda je tačno da je sve već rečeno, samo nisu svi sve čuli i razumeli ...
 
Odgovor na temu

Sudarica

Član broj: 119175
Poruke: 209
*.dialin.iskon.hr.



Profil

icon Re: [Excel] Prepisivanje podataka iz više datoteka u jednu po određenom kriteriju25.06.2007. u 10:00 - pre 204 meseci
Primjer.je točno takav kakav je. Polazim od samog početka.

1. U Template mi se nalazi pripremljena radna knjiga koja se zove Primjer.xls (to je pripremljena tabela za popunjavanje).

2. Upišem podatak u 5 red od stupca A do Stupca P (imam pripremljeni makro pomoću kojeg iz posebne liste prenosim te podatke tako da u formu ukucam Prezime i ime i dobijem sve podatke koji mi trebaju popuniti ćeliju A5,C5,G5,J5,N5,O5,P5 (VIDIM DA SAM POGREŠILA U PRIMJERU JER SAM DODALA PRVI RED DA BI ODREDILA TOČNE KOLONE I ZABORAVILA SAM GA ZBRISATI-znači ako pobrišem prvi red u primjeru ostaju ćelije A4,C4,G4,J4,N4,O4,P4.

3. Iz dokumenata unosim podatke u dolje pripremljene redove koji su označeni brojkama od I-XII. Pošto je sada šesti mjesec ja ću u red koji počinje sa VI unjeti šifru1, šifru2, šifru3, zadano razdoblje iz dokumenta koje se odnosi na VI znači od 1.6.2007-10.6.2007. dalje mi se obračunava sve prema formulama koje su zadane u ostalim kolonama.

4. Postoji mogućnost da moram dodati red sa oznakom VI ponovno tako da u toku mjeseca mogu imati još jedan upis npr od 20.6.2007-30.6.2007.

5. Kada sam popunila kolone i sve porvjerila radnu knjigu Save As po prezimenu i imenu iz ćelije C4.

6. Sada ja to sve kopiram Copy i prenosim u knjigu Ukupno.xls sve ono što mi treba iz knjige (C4).xls

i tako svaki mjesec za sve ispočetka. Samo što ne otvaram template ako imam promjenu za VII mjesec nego tražim radnu knjigu C4.xls. i u nju radim promjenu. Ova tabela c4.xls ne stvara mi problem jer sam ju pripremila super nego bi htjela radnu knjigu Ukupno.xls u koju će mi se prepisivati podaci iz radnih kniga sa nazivo iz ćelije C4 da nemoram kopirati red 4 pa brisati prazne ćelije (merge) i u nastavku kopirati mjesec koji sam popunila onda to zaboravim pa mi ne štima knjiga ukupno i to je muka zato tražim pomoć. Bilo bi idealno kada bi se slog prepisivao istog momenta dok ga ja upisujem u C4.xls (tako ju zovem jer joj ime treba odrediti ćelija C4. ( a i to bi bilo zgodno kada bi mi odmah kod Save As bila ponuđena ćelija C4 za naziv radne knjige.)

Usput da pitam dok radim izračun između dva datume onda mi je uvijek jedan dan manje (datum moram pisati u zadanom razdoblju) ako naprimjer imam da mi je razdoblje od 1.6.2007-1.6.2007 on meni daju 0 odnosno od 01.6.2007-2.6.2007 je 1 što je u redu ali meni to mora biti 2 ako dodam +1 tamo gdje mi je ćelija prazna on piše 1.

Evo ispravljenog primjer.xls i Ukupno.xls (oprosti na nepažnji mjenjala sam mišljenje jer ipak ti neke stvari sjednu dok s nekim razgovaraš o tome.)

Pozdrav
Prikačeni fajlovi
 
Odgovor na temu

Brz_na_tastaturi
Svilajnac

Član broj: 63852
Poruke: 318
77.46.253.*



+1 Profil

icon Re: [Excel] Prepisivanje podataka iz više datoteka u jednu po određenom kriteriju25.06.2007. u 22:47 - pre 204 meseci
Moram da ponovim pitanje:
Po koliko radnih listova imaju originalni fajlovi, da li su podaci uvek u prvom radnom listu i da li je naziv radnog lista i kome su podaci isti svuda ili ima razlike (List1,Sheet1, nesto_trece)?
Ovo je bitno zato što pojednostavlju makro za prepisivanje jer ako se zna u kom radnom listu su podaci ne mora da proverava druge radne listove u toj svesci ako postoje.

Ako koristiš šablon za ubacivanje podataka za automatsko snimanje Save as "Podatak_iz_ćelije_C4" možeš da upotrebiš sledeći kod koji snima kad zatvoriš šablon (bez prethodnog 'ručnog' snimanja).
Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & Sheets(1).Cells(4, 3).Value

End Sub

koji ćeš da u baciš u šablon.

Mislim da neće biti problem to što, koliko sam razumeo, može a ne mora da ima dva reda za VI (ili bilo koji drugi) mesec.

Nisam razumeo šta je problem sa datumom, gde koristiš to računanje?
Možda je tačno da je sve već rečeno, samo nisu svi sve čuli i razumeli ...
 
Odgovor na temu

Sudarica

Član broj: 119175
Poruke: 209
*.dialin.iskon.hr.



Profil

icon Re: [Excel] Prepisivanje podataka iz više datoteka u jednu po određenom kriteriju26.06.2007. u 16:37 - pre 204 meseci
oprosti što moraš ponavljati pitanje

imaju dva lista prvi na koji se sve unosi se zove "Radni list" (baš tako), a drugi list se zove podaci i on je trenutno skriven jer su unutra podaci koje koristim za popis vrednovanja u podacima za šifre na Radnom listu. Znači radna knjiga u ovom slučaju Primjer.xls koji sam prikačila ima dva lista "Radni list" i "Podaci", Dok unesem podatke pospremam ga pod nazivom iz ćelije (C4).

Nisam shvatila dali misliš da napravim predložak ili šablon i da on ostane *.xls ili da mu dodam nastavak *.xlt. Ja sam ga za sada spremila *.xlt . jer ako ga ostavim kao .xls oni koji budu upisivali podatke presnimit će ga sa podacima, onda idu brisati pa pobrišu i sve formule, a taj Radni list je inače pun formula sa puno uvjeta.

evo šaljem ponovno primjer radi računanja datuma. U G8 računam razliku dana između datuma i tu mi je jedan dan manje, jer računa do i onaj zadnji dan ne uzima u obzir, a u H8 računam radne sate pomoću NETWORKDAYS i to mi je točno.

pozdrav
Prikačeni fajlovi
 
Odgovor na temu

Brz_na_tastaturi
Svilajnac

Član broj: 63852
Poruke: 318
77.46.253.*



+1 Profil

icon Re: [Excel] Prepisivanje podataka iz više datoteka u jednu po određenom kriteriju26.06.2007. u 20:16 - pre 204 meseci
Što se tiče datuma ne vidim zašto ne bi mogao d se doda jedan dan umesto =F8-E8 upiši =IF(F8<>"";F8-E8+1;F8-E8) , i formatizuj čeliju kao broj sa 0 decimalnih mesta, ova If funkcije je da bi nula ostala nula.
Pod šablonom podrazumevam .xls fajl u koji se unose podaci a koji se posle snima sa drugim imenom, a formule možeš da zaštitiš tako što ćeš da označiš ćelije u koje treba da se unesu podaci, odeš na Format->Cells kartica Protection i odčekiraš Lock, zatim zaključaš radni list šifrom (Tools->Protection->Protect sheet).

Kad nadjem malo slobodnog vremena pokušaću da napravim makro za povezivanje.


Evo ti probna verzija da vidis radi li to sto tebi treba, iskopiraj ovaj fajl i fajlove sa podacima u neki (bilo koji folder) i pokreni makro "sastavi".

[Ovu poruku je menjao Brz_na_tastaturi dana 27.06.2007. u 00:00 GMT+1]
Možda je tačno da je sve već rečeno, samo nisu svi sve čuli i razumeli ...
Prikačeni fajlovi
 
Odgovor na temu

Sudarica

Član broj: 119175
Poruke: 209
*.dialin.iskon.hr.



Profil

icon Re: [Excel] Prepisivanje podataka iz više datoteka u jednu po određenom kriteriju27.06.2007. u 18:47 - pre 204 meseci
da radi i to bez ikakovih promjena. Znači mora biti čisti poddirektorij (dali se to tako zove ili sam u krivu) nivo iznad faila. Tu unosim svoj šablon i sve one datoteke koje uradim. Tada pozivam makro i on mi prepisuje sve podatke na radne listove u ukupno_sređeno.

Formula je također u redu jednostavna je ali eto... nije mi palo na pamet. Ali ajde još jedno pitanje da ju kompletiram.
Imam formulu IF($N$4="da";IF((F10-E10)>7;7;IF(E10<>"";F10-E10+1;F10-E10));IF(E10<>"";F10-E10+1;F10-E10)) sada bi još trebala dodati. Ako je rezultat 7 onda izračunaj datum E10 uvećan za 7+1 i upiši ga u ćeliju P10 što znači

imam datume ovako (E10) 1.5.2007- (F10) 15.7.2007 sve ono što je više od 7 dana upiši kao početni datum u ćeliju P10 znači u ćliji P10 mora pisati 8.5.2007. dali je to moguće Normalno to sve mora biti ugrađeno u gornju funkciju. Nebi trebala pisati nikakvu funkciju u P10 jer u nju se inače unose datumi i ona mi nebi bila zaštićena. nisam nikad čula da ima funkcija sa naredbom upiši u drugu ćeliju ali ipak ko zna a vi svi znate jako puno. pa možda.

Pozdrav i hvala ti za pomoć
 
Odgovor na temu

Brz_na_tastaturi
Svilajnac

Član broj: 63852
Poruke: 318
77.46.253.*



+1 Profil

icon Re: [Excel] Prepisivanje podataka iz više datoteka u jednu po određenom kriteriju27.06.2007. u 23:38 - pre 204 meseci
Zaboravih da ti napomenem ...
Makro kupi podatke iz svih fajlova koje se nalaze u folderu u kome se nalazi fajl Ukupno_v2.xls osim fajlova ciji naziv pocinje sa 'Ukupno', i pretpostavka je da nemaš više od 1000 fajlova.

Citat:
nisam nikad čula da ima funkcija sa naredbom upiši u drugu ćeliju ali ipak ko zna a vi svi znate jako puno. pa možda.

Nisam ni ja nikad čuo za to, a to što ti treba možeš da se izvede preko vba samo što kod ubaciš u odgovarajući radni list na dogadjaj Onchange (ako se ne snadješ postavi primer).

Možda je tačno da je sve već rečeno, samo nisu svi sve čuli i razumeli ...
 
Odgovor na temu

Sudarica

Član broj: 119175
Poruke: 209
*.dialin.iskon.hr.



Profil

icon Re: [Excel] Prepisivanje podataka iz više datoteka u jednu po određenom kriteriju30.06.2007. u 15:51 - pre 204 meseci
ne znam koliko sam dobro objasnila ali ako nešto nije kako treba pokušat ću ponovno

Izračun dana na strani AA kolona G
IF($N$4="da";IF((F9-E9)>7;7;IF(E9<>"";F9-E9+1;F9-E9));IF(E9<>"";F9-E9+1;F9-E9)) (ako je u ćeliji N4 "da" a razlika raspona datuma je veći od 7 onda piši 7 a razliku odnosno 8. dan upiši u stupac P kao početak a u stupac Q kraj; ako nije onda izračunaj razliku F-E+1 ako je razlika veća od 7 dana onda 8. dan upiši u stupac P a datum koji se ispravlja u stupac Q. isto kao dolje opisano samo što onda netreba 30 dana.
ako je razlika između dva datuma (plava strelica) manja ili jednaka 30 dana za istu šifru2 (u ovom slučaju zaokružene "Ž23") onda nađi razliku između datuma početka (zaokruženo) iste šifre2 i datuma kraja te šifre2 (zaokruženo) i ako je razlika veća od 42 dana onda 43. dan (datum) piši u stupac P na strani BB i u stupac Q.
Izračun dana na strani BB kolona R
ako se šifra2 prekine onda izračunaj razliku između prethodnog datum kraja te šifre2 i novog početka iste šifre2 -ako je razlika veća od 30 dana onda računaj razliku između prvog pojavljivanja šifre2 (29.11.2006) i zadnjeg datuma pojavljivanja i odbi dane druge šifre -ako je razlika veća od 180 dana onda 181. dan upiši u datum u novi dodani red sa datumom do
ako je razlika veća od 30 dana onda se obračuna 180 dana od datuma novog pojavljivanja šifre2 i opet nakon izračuna 181. dan upiši datum u novi red
ako je razlika dana 365 od početka obračuna 180 dana onda izračunaj 365. ili 366. dan upiši datum i oboji ćeliju crveno.D35
Iznos na strani BB kolona W
1. po satu 2 * sati; ako je taj iznos veći od Osnovice (podaci) * 1,28 onda piši Osnovica *1,28.
2. ako je raspon datuma početka i kraja veći od 180 dana a šifra2 se promjeni onda najniža osnovica (podaci) umanji za 20% od dobivenog iznosa odbij Ćeliju $R$4 to pomnoži sa 15% sada tih 15% odbij od najniže osnovice umanjene za 20%.To sve podjeli sa ćelijom S4 i pomnoži sa brojem sati.

Svaka čast ako se snađeš a još veća ako mi pomogneš

Primjer u prilogu


Hvala i pozdrav
Prikačeni fajlovi
 
Odgovor na temu

Sudarica

Član broj: 119175
Poruke: 209
93.159.92.*



Profil

icon Re: [Excel] Prepisivanje podataka iz više datoteka u jednu po određenom kriteriju25.03.2009. u 20:42 - pre 183 meseci
Molim pomoć

Sada imam excel 2007 i više mi ništa ne radi kako treba. Ovaj makro mi je radio prepis savršeno a sada mi ništa više ne štima. Skroz mi se vraća na

Set fs = Application.FileSearch

Nastavak mi je sada .xlsm (jer mi radne knjige sadrže makro naredbe).

Sub sastavi()
'
'
Dim odredisni As String
Dim list As Worksheet
Dim lista(1000) As String
Dim fs
Dim i As Integer
Dim k As Integer
Dim max As Integer
Dim putanja As String
Dim dokument As String
Dim tekuciRed As Integer
Dim tekucaKolona As Integer


Dim sifraRadnika As Integer
Dim imeRadnika As String
Dim sifraCeline As String
Dim nazivCeline As String
Dim rad As String
Dim bol As String
Dim god As String

odredisni = ActiveWorkbook.Name
tekuciRed = 7
tekucaKolona = 1

Application.ScreenUpdating = False

i = 0

putanja = ActiveWorkbook.Path & "\"

Set fs = Application.FileSearch
With fs
.LookIn = putanja
.Filename = "*.xls"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox "Pronadjeno je " & .FoundFiles.Count & _
" dokumenata"
max = .FoundFiles.Count
For i = 1 To max
lista(i) = .FoundFiles(i)
Next i
Else

MsgBox "Nije pronadjen nijedan dokument"

End If

End With

For i = 1 To max
If Mid(lista(i), Len(putanja) + 1, 6) <> "Ukupno" Then
Workbooks.Open Filename:=lista(i)
Else
GoTo SLEDECIDOKUMENT
End If

dokument = ActiveWorkbook.Name
Workbooks(dokument).Sheets(1).Activate
sifraRadnika = Cells(4, 1)
imeRadnika = Cells(4, 3)
sifraCeline = Cells(4, 7)
nazivCeline = Cells(4, 9)
rad = Cells(4, 12)
bol = Cells(4, 14)
god = Cells(4, 16)
god = Cells(4, 17)

For k = 11 To 32

If Cells(k, 1) <> "" Then


Range(Cells(k, 1), Cells(k, 23)).Select
Selection.Copy
Else
GoTo SLEDECIRED
End If
Workbooks(odredisni).Activate
Workbooks(odredisni).Sheets(1).Activate
tekuciRed = tekuciRed + 1
tekucaKolona = 1

Cells(tekuciRed, tekucaKolona) = sifraRadnika
Cells(tekuciRed, tekucaKolona + 1) = imeRadnika
Cells(tekuciRed, tekucaKolona + 2) = sifraCeline
Cells(tekuciRed, tekucaKolona + 3) = nazivCeline
Cells(tekuciRed, tekucaKolona + 4) = rad
Cells(tekuciRed, tekucaKolona + 5) = bol
Cells(tekuciRed, tekucaKolona + 6) = god
Cells(tekuciRed, tekucaKolona + 7) = god
Range(Cells(tekuciRed, tekucaKolona + 8), Cells(tekuciRed, tekucaKolona + 8)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select

Workbooks(dokument).Sheets(1).Activate
SLEDECIRED:
Next k

Workbooks(dokument).Close SaveChanges:=False

SLEDECIDOKUMENT:
Next i


Workbooks(odredisni).Activate
Cells.Select


Range("A1").Select
Application.ScreenUpdating = True
ActiveWorkbook.SaveAs putanja & "Ukupno_sređeno.xls"

Application.ScreenUpdating = True
ActiveWorkbook.Save
End Sub

 
Odgovor na temu

Gix_
Milenkovic
Lyon (France)

Član broj: 113036
Poruke: 185
*.w81-251.abo.wanadoo.fr.



Profil

icon Re: [Excel] Prepisivanje podataka iz više datoteka u jednu po određenom kriteriju27.03.2009. u 21:42 - pre 183 meseci
Re,
u tvojoj komandi pogledaj sve linije gdese nalazi nastavak XLS i promeni to sa nastavkom XLSM

npr:

.LookIn = putanja
.Filename = "*.xls"

.LookIn = putanja
.Filename = "*.xlsm"

nadamse dasmo se razumeli

Pozdrav

Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!
 
Odgovor na temu

Sudarica

Član broj: 119175
Poruke: 209
93.159.69.*



Profil

icon Re: [Excel] Prepisivanje podataka iz više datoteka u jednu po određenom kriteriju30.03.2009. u 18:28 - pre 183 meseci
ne znam ga ispraviti. Promjenila sam *xls u *xlsm ali neide još ga nešto muči. U svakom slučaju hvala ti na trudu.

Pozdrav
 
Odgovor na temu

[es] :: Office :: Excel :: [Excel] Prepisivanje podataka iz više datoteka u jednu po određenom kriteriju

Strane: 1 2

[ Pregleda: 7798 | Odgovora: 21 ] > FB > Twit

Postavi temu Odgovori

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