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

Excel sheet datum u mesecu

[es] :: Office :: Excel :: Excel sheet datum u mesecu

Strane: 1 2

[ Pregleda: 4739 | Odgovora: 32 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

bokinet

Član broj: 29844
Poruke: 574



+50 Profil

icon Re: Excel sheet datum u mesecu24.08.2018. u 17:05 - pre 68 meseci
@nenandi - imate reseno gore sve sta vam treba vec krzo VBA kod u mom poslednjem postu ovde.

 
Odgovor na temu

nenandi
Nenad Andrejevic
System & ERP administrator
BAT
Vranje

Član broj: 76779
Poruke: 208
178.79.58.*

Sajt: https://www.linkedin.com/..


+3 Profil

icon Re: Excel sheet datum u mesecu24.08.2018. u 22:19 - pre 68 meseci
Citat:
bokinet: @nenandi - imate reseno gore sve sta vam treba vec krzo VBA kod u mom poslednjem postu ovde.

Boki to je to ali postoji li nacin na primeru koji sam dao da se uradi i putanje da ostanu kako jesu. U folderu "SProizvodnja" ne mogu da ostavljam fajlove po RM proceduri.

Citat:
Jpeca: Pa šta si dobio u Immediate?

Immediate služi da možeš da ineteraktivno probaš i proveriš vrednosti/akcije. Možeš npr. da zadaš tu komandu koja ti pravi problem
Sheets(Sheets(1).Range("G2")).Activate
Ali tu očekujem da dobiješ grešku - npr "Supscript out of range"

Provericu i napisacu ti sta tacno pise ali mislim da je bilo nesto genericki zato i nisam obratio paznju kad je ispisalo error.


Patience is a necessary ingredient for genius
 
Odgovor na temu

bokinet

Član broj: 29844
Poruke: 574



+50 Profil

icon Re: Excel sheet datum u mesecu24.08.2018. u 23:32 - pre 68 meseci
Ako su putanje sto se tice file-ova pa kao sto sam vec naveo to sam definises kako hoces.

U kodu koji sam dao je samo primer i to moze da se menja kako je volja.

Ako su neke druge stvari, molim da mi pojasnis posto nisam razumeo sta se hoce iz tvog pisanja.

Nadam se da mi ne zameras na ovome.

Opet, dobro definisan zahtev sta se hoce i sta treba da se radi ili uradi je vec 50% posla.

Na kraju ove poruke, jos jednom napisi idejno sta treba i kako treba.

Primer izmena je u nastavku gde se podrazumeva da su oba file-a u istom direktorijumu (folderu):

Trenutno u primeru koda koji sam prilozio u prethodnom post-u:

Code:


' Get current path of activeworkbook where macro is
sCurrentPath = ActiveWorkbook.Path



Promeniti u:

Code:


' Get current path of activeworkbook where macro is
sCurrentPath = "Z:\SProizvodnja\"



U slucaju da nisu onda uneti fiksne vrednosti u promenljivama za obe lokacije file-a.

Code:

sOtpadFilename = "--- ovde uneti kompletnu putanju do file-a 'otpad' ---"
sProizvodnjaFilename = "--- ovde uneti kompletnu putanju do file-a 'proizvodnja' ---"


 
Odgovor na temu

nenandi
Nenad Andrejevic
System & ERP administrator
BAT
Vranje

Član broj: 76779
Poruke: 208
178.79.58.*

Sajt: https://www.linkedin.com/..


+3 Profil

icon Re: Excel sheet datum u mesecu25.08.2018. u 00:47 - pre 68 meseci
Citat:
bokinet

Nadam se da mi ne zameras na ovome.



Ma opusteno ne zameram cenim tvoje vreme i trud, sve je OK ovo ce nekom nekad sigurno koristiti.
Pocetni zahtev je bio skroz drugaciji i zahtevniji tako da sam se odlucio na ovu jednostavniju varijantu.
Pitanje je kao da u postojeci kod u fajlu Otpad.xlsx koji radi kada mu zakucam koji sheet.
Sad zelim da smanjim korake i da na osnovu datuma iz celije otvori fajl Proizvodnja.xls aktivira sheet po datumi iz polja G2 kopira sadrzaj A2:F20 i nalepi u Otpad.xlsx u sheet pomocna tabela.

Code:

Workbooks.Open Filename:= _
"Z:\SProizvodnja\Proizvodnja.xls"
Sheets(Sheets(1).Range("G2")).Activate
Range("A3:F20").Select
Selection.Copy
Windows("Otpad.xlsx").Activate
Worksheets("Pomocne tabele").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

ActiveWorkbook.Save
Worksheets("Otpad").Activate

Patience is a necessary ingredient for genius
 
Odgovor na temu

bokinet

Član broj: 29844
Poruke: 574



+50 Profil

icon Re: Excel sheet datum u mesecu25.08.2018. u 02:03 - pre 68 meseci
Pa mislim da ovo sto si napisao je ustvari vec odradjeno s' moje strane i da je princip rada taj kako si hteo.

Oko optmizacije imaj na umu da je to to i da na pogresnim stvarima vrsis optimizaciju :)

Jedino sto po tvom poslednjem pisanju i kodu koji si dao vidim da fale 'pomocne tabele'

Takodje po sustini napisanog koda sa tvoje strane, kaze da iz 'proizvodnje' sa 'sheet1' se uzima "A3:F20" i da se to posle kopira u 'pomocne tabele' od polja A1 i na kraju se isti snima i onda aktivira 'otpad'

Mislim da opet u celoj prici ti je losa koncepcija i da samom sebi pravis konfuziju jer nisi lepo definisao i obradio sta treba da se napravi kao kompletna stvar vec si se mozda malo vise fokusirao na VBA i neke stvari koje idu/su na kraju...

 
Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898



+66 Profil

icon Re: Excel sheet datum u mesecu25.08.2018. u 08:24 - pre 68 meseci
Citat:
Sad zelim da smanjim korake i da na osnovu datuma iz celije otvori fajl Proizvodnja.xls aktivira sheet po datumi iz polja G2 kopira sadrzaj A2:F20 i nalepi u Otpad.xlsx u sheet pomocna tabela.
Slažem se sa @bokinet. I ja mislim da si "kompliciraš život". Ja još ne mogu skužiti cijelu suštinu organizacije. Spominjao si 'Share Folder' pa sam iz toga zaključio da možda više ljudi koristi isti file. Imaš određena ograničenja koja nisi do kraja pojasnio. Postavljaš kod ali ne i primjer datoteke. Koliko se sjećam sa početka i raspon podataka ćelija više nije isti. No ipak evo još jedna ideja za rješenje tvog problema.

U ovom prikačenom primjeru imaš situaciju

1. Otvoriš Otpad.xlsm
2. Pokreneš VBA
3. Na Sheet1 imaš rezultate za određeni datum.

VBA kod je jednostavan i u jednom koraku kopira sve sheets u datoteku Otpad.xlsm
Formule koje se već nalaze na Sheet1 automatski vrše izračun.

Tu još možda treba ponešto doraditi a sve zavisi o količini podataka i možda malo dotjerati/ubrzati VBA kod.

Code:
Option Explicit

Sub Importsheet()
Dim Importsheet As Worksheet
'postavi ispravan path gdje se nalazi izvorna wbk
    Sheets.Add Type:="Z:\SProizvodnja\Proizvodnja.xls" 'importiraj sve sheets iz zatvotrene wbk u otvorenu ovu wbk
        Sheets("Sheet1").Select 'selektiraj sheet da bude aktivan
            ActiveSheet.Move Before:=ActiveWorkbook.Sheets(1) 'premjesti sheet na početak
End Sub
Prikačeni fajlovi
 
Odgovor na temu

nenandi
Nenad Andrejevic
System & ERP administrator
BAT
Vranje

Član broj: 76779
Poruke: 208
178.79.58.*

Sajt: https://www.linkedin.com/..


+3 Profil

icon Re: Excel sheet datum u mesecu25.08.2018. u 09:40 - pre 68 meseci
Citat:
Ivek33: Slažem se sa @bokinet. I ja mislim da si "kompliciraš život". Ja još ne mogu skužiti cijelu suštinu organizacije. Spominjao si 'Share Folder' pa sam iz toga zaključio da možda više ljudi koristi isti file. Imaš određena ograničenja koja nisi do kraja pojasnio. Postavljaš kod ali ne i primjer datoteke. Koliko se sjećam sa početka i raspon podataka ćelija više nije isti. No ipak evo još jedna ideja za rješenje tvog problema.


Sve te primere sam isprobao i treba mi jednostavnije resenje, normalno fajl koriste vise ljudi i da ne zelim da ga editujem fajl ili dodajem dodatne fajlove u foldere zbog polise cuvanje dokumentacije.
Kod koji sam vam dao radi je posao ali sam uvek morao da navedem koji dan = sheet da koristi za kopiranje, sad to zelim da parametarizujem vrednoscu iz celije G2.


Patience is a necessary ingredient for genius
 
Odgovor na temu

bokinet

Član broj: 29844
Poruke: 574



+50 Profil

icon Re: Excel sheet datum u mesecu25.08.2018. u 19:40 - pre 68 meseci
Definisi sta je jednostavnije resenje?

Kako zelis da navedes dan?

Da imas masku za unos ili da se na osnovu recimo sistemskog datuma se uzima taj dan?

... sve zavisi od tebe i sta hoces te tako mora da definises sta se pravi?

Elem, uzmi procitaj sve tvoje postove na ovu temu pa vidi i sam sta ti pricam i ja i ostali.



 
Odgovor na temu

nenandi
Nenad Andrejevic
System & ERP administrator
BAT
Vranje

Član broj: 76779
Poruke: 208
178.79.58.*

Sajt: https://www.linkedin.com/..


+3 Profil

icon Re: Excel sheet datum u mesecu26.08.2018. u 10:16 - pre 68 meseci
Boki u prvom dokumentu je definisano vreme u celiji G1 "=now()" pa formulom se prikazuje dan u polje G2 ako je danas 26-08-2018 11:15 u G2 stoji samo 26 i to je broj sheet-a u Proizvodnja.xls
Patience is a necessary ingredient for genius
 
Odgovor na temu

bokinet

Član broj: 29844
Poruke: 574



+50 Profil

icon Re: Excel sheet datum u mesecu26.08.2018. u 14:04 - pre 68 meseci

Citat:

Kod koji sam vam dao radi je posao ali sam uvek morao da navedem koji dan = sheet da koristi za kopiranje, sad to zelim da parametarizujem vrednoscu iz celije G2.


Citat:

Boki u prvom dokumentu je definisano vreme u celiji G1 "=now()" pa formulom se prikazuje dan u polje G2 ako je danas 26-08-2018 11:15 u G2 stoji samo 26 i to je broj sheet-a u Proizvodnja.xls



Pa dobro to znamo :) sta sad s' tim ?

Na celu pricu oko svega sta je na kraju problem i sta je sustina opet nema konkretnih stvari vezano za sta se i kako se hoce?


U kodu koji je dat sa moje strane ti vec imas iCurDay promenljivu koja predstavlja dan od (nekog) datuma a u datom slucaju se uzima vrednost iz celije(1,6).

Code:


    ' Get current day using date
    iCurDay = CInt("" & Day(wrkOtpad.Worksheets("Sheet1").Cells(1, 6)))



druga varijanta kod moze da bude i da se stavi Now i da se uzima datum i vreme sa racunara (kao sto si ti vec stavio u celiji) pa da se na osnovu te vrednosti uzima dan.

Code:


    ' Get current day using date
    iCurDay = CInt("" & Day(now))



trece varijanta je da pita korisnika sa kojim datumom zeli da radi pa da onda na osnovu unete vrednosti preko neke maske se ta vrednost dodeli....

Code:


    ' Get current day using date --- ovo je primer ali bi trebalo da se pre uzimanja dana odradi i validacija ispravnosti unosa
    iCurDay = CInt("" & day(inputbox("Unesite datum za koji radite?","Vrednost",date)))



Dakle sustina 'parametarizacije' kako si to to nazvao je pitanje sta znaci posto se iz tvojih odgovora/pitanja/pisanja tacno ne plus vidi smisao 'parametarizacije' i 'jednostavnosti' ? Mnogo toga ima nejasnog i konfuznog sa tvoje strane.

Sorry mate.

 
Odgovor na temu

nenandi
Nenad Andrejevic
System & ERP administrator
BAT
Vranje

Član broj: 76779
Poruke: 208
178.79.58.*

Sajt: https://www.linkedin.com/..


+3 Profil

icon Re: Excel sheet datum u mesecu26.08.2018. u 19:46 - pre 68 meseci
Citat:
bokinet: Pa dobro to znamo :) sta sad s' tim ?


Ne znam zasto to ignorises ali to mi treba da formulisem izraz koji ce koristiti vrednost iz celije za broj lista.
Sve vezano za datum su Jpeca i Ivek naveli u prva tri posta.
Da ne idemo u off navedi konkretno sta ne razumes ili nije ti jasno.
Patience is a necessary ingredient for genius
 
Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898



+66 Profil

icon Re: Excel sheet datum u mesecu26.08.2018. u 19:53 - pre 68 meseci
Citat:
nenandi:
Boki u prvom dokumentu je definisano vreme u celiji G1 "=now()" pa formulom se prikazuje dan u polje G2 ako je danas 26-08-2018 11:15 u G2 stoji samo 26 i to je broj sheet-a u Proizvodnja.xls
Evo ti primjer gdje VBA macro kopira samo jedan specifični sheet koji je postavljen kao uvjet.

1. Postavi file Proizvodnja.xlsx na ispravnu putanju (tj. izmjeni Path u VBA - pazi na format datoteke *.xlsx ili *.xls)
2. Otvori OTPAD.xlsm file u prilogu ove poruke
3. Pokreni VBA
4. VBA kopira sheet za postavljeni dan ako imaš formulu u G2 (opcija 1)
4a. VBA kopira sheet za postavljeni dan iz G1 (opcija 2 by @bokinet)
5. Na sheet1 imaš rezultate pretraživanja (po potrebi izmjeni range u Array formulama)

Dakle imaš dvoije opcije kao uvjet (4 i 4a)

Ako ovo ne pomogne ja odustajem, Sorry
Prikačeni fajlovi
 
Odgovor na temu

bokinet

Član broj: 29844
Poruke: 574



+50 Profil

icon Re: Excel sheet datum u mesecu26.08.2018. u 20:01 - pre 68 meseci
Mora da sam ustao danas bunovan ili je od ovog vremena ali ja tek sad nista ne razumem...

Ja sam ti vec poslao celu pricu koja to radi kroz VBA kod (koji treba samo da prilagodis) po prici kako si napisao.
Takodje i ostali su dali svoj doprinos na svoj nacin isto na osnovu tvoje price.

Inace, ti kroz recimo Excel Add-in mozes da sakriejs kod i da ne bude sastavni deo ovih dokumenata ali isti moras da stavis da se ucitava na svakoj radnoj stanici kako bi taj kod bio ucitan u Excelu kada korisnik pocen da koristi isti.

Za dan sam ti vec napisao primere te opet ne razumem sta ti nije jasno.

U poslednjem je takodje isto bilo kako tu vrednost mozes da dodelis i opet tu tebi nesto ne stima ali nikako da kazes konkretno tako tako...

Na kraju balade pitanje opet da li si uopste pogledao work4me.xlsm koji sam poslao zajedno sa tvoja dva file u jednom od prethodnih mojih odgovora?

Sticem utisak da nisi posto opet se vrtimo u krug.

A ako jesi sta tu fali i sta nije kako treba?

 
Odgovor na temu

[es] :: Office :: Excel :: Excel sheet datum u mesecu

Strane: 1 2

[ Pregleda: 4739 | Odgovora: 32 ] > FB > Twit

Postavi temu Odgovori

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