Excel [pomoć]
 

Ovako...
Da prvo kažem o čemu je riječ...
Pravim skladišne kartice u Excelu (kao worksheet svaka) i trebam napraviti mogućnost pregleda stanja skladišta na jednom mjestu (u worksheet-u Stanje skladišta)

Primjer:
http://img518.imageshack.us/img518/7885/excelwbog0.png

1.) Problem

Ime svih worksheeta (osim "Stanje skladišta") kopirati redom u ws Stanje skladišta počeuši od reda A7 prema dolje...

+ imena worksheeta su brojke (šifre proizvoda) i moraju biti kopirane bez promjena (neke imaju vodeće nule)

Unaprijed hvala...

[Edit kasnije ako bude bilo potrebno, valjda se snađem jer su problemi slični]

Kako misliš kopirati imena ws u zbirno stanje?

ako zelis imati zbirni broj nekog ws, jednostavno unesi formulu za zbrajanje u prvom ili drugom redu (ako su ti imena polja u prvom) i nazovi ga ukupno tako da imas pregled po svakom ws, a dolje možeš po redovima dodavati stavke koje će se gore zbrajati, za stanje skladišta unesi sve stavke i poveži ih sa ukupnim zbirom svakog ws - to je način kakav si ti započeo

ja radim drugačije - koristim snagu pivot tablica, sve stavke su mi na jednom ws koji mi služi kao baza podataka - iz baze možeš izvlačiti sve

zatim si na druge ws napravim nekoliko različitih pivota koje mi služe za ukupni pregled i printanje izvješća - znači s pivotima kreiraš prkaze brojanja kako ti god paše po vrstama proizvoda, proizvođačima, dobavljačima ili kako već hoćeš

Ma to je sve napravljeno...
Sada mi treba samo to... kopiranje imena WS onako kako sam napisao... ništa više...

Ako si već unio šifre svih proizvoda u ws stanje skladišta zašto bi kopirao nazive svih ostalih ws u ws stanje skaldišta? Sad si me totalno zbunio.

pa covjek je napisao tocan razlog zasto mu to treba, u prvom postu:

da ne mora klikati na svaki WS posebno

nazalost ne znam kako bi to mogao izvesti

opisao sam mu dva načina, kako se to može riješiti, a on je odgovorio da je to već napravio, ako je već to napravio na oba dva načina, stvarno ne vidim u čemu je problem da pogleda u već izrađenu pivot tablicu i vidi tražene podatke koje ona prikazuje

kako "kopirati" samo imena ws u ćelije ne znam i nisam našao u helpu, niti sam ikad naišao u svom dugogodišnjem radu s Excelom potrebu za time

Gle...
Napravio sam ovako jer mi je najsličnije standardnim skladišnim karticama (i lako za snalaženje)... i za moje potreba sasvim ok...
(znači imam samo jedno polje u kojem je količina zaliha - G6 (sad nisam na poslu pa ne znam točno))
Isto radim dosta u excelu i konto sam da bi trebalo biti dosta lako napraviti to što želim... prevario sam se... LoL...



ugl. ako kom paden na pamet kako se to radi nek javi na PM ili ovdje...

Pošalji mi sutra primjer tablice da vidim kako izgleda tablica, na ac_thunder@hotmail.com.

jer ovak na sljepo ne znam kako bih ti pomogao:goood:

bump
 

bump!?

netko ima riješenje?! :stoopid:

Upravo radim na tome, radi se o novom načinu, jer tablica da bi bila baza podataka u Excelu mora izgledati malo drugačije.

Najbolje riješenje za tebe bila bi izrada baze podataka u nekom softveru za to tipa Access ili još bolje Clarion, jer se radi o materijalnom knjigovodstvu tj. evidenciji. Malo je problematično za rješiti (barem meni) automatsko dodavanje stavki u zadnju tablicu stanje skladišta, to je ono što tebe muči, trebalo bi znati programirati u VB-u.

Ja cu ti sad napraviti jedan primjer jednostavne baze u Excelu.

koliko sam shvatio vec je napravljena baza, sad treba samo napravit index tih brojeva. Palo mi na pamet neki OCR program? Kolko ima tih WS-a? Da si bar na svakom ws-u u gornje lijevo polje stavio naziv ws-a :D

EDIT: pa pise na svakom ws-u taj broj... jbg sad treba neku funkciju ili makro stavit da se svi ti brojevi kopiraju u zadnji ws jedan ispod drugoga, ne? :stoopid::fiju:

Evo ovako to izgleda...
 

Ovako bi izgledala završena baza (osim stanja skladišta :D )

http://rapidshare.com/files/34238672/Gude_-_CS.zip.html


Ko riješi problem ima six-pack (po izboru) hladan, na adresu :chears:

@SPLiFF

To sam ručno dopisao... a imam još 5 skladišta za napravit :)

Riješeno... hvala devious
 

Evo samo da javim da je problem riješen uz pomoć našeg novog člana devious-a... :care:
Car si i puno ti hvala na pomoći... (riješeno u roku par sati :kafa:, sam da se zna...)

Ak te vidim negdje imaš :chears:


Još jednom... hvala... :respekt:


+ mislio sam ubaciti kod kasnije... (i ako je samo c/p)
____________________________________________________


'**************************************************'
'**************************************************'
'*** ***'
'*** Ovaj dio koda sređuje ***'
'*** Stanje skladišta ***'
'*** ***'
'**************************************************'
'**************************************************'


Private Sub Worksheet_Activate()

Dim brojac As Integer

Range("A7", "E" & Rows.Count) = ""

brojac = 0
For Each sht In Worksheets
If sht.Name <> "Stanje skladišta" Then
Range("B" & (Int(brojac) + 7)).Value = sht.Range("A1").Value
Range("E" & (Int(brojac) + 7)).Value = sht.Range("G6").Value
Range("C" & (Int(brojac) + 7)).Value = "kom"
Range("A" & (Int(brojac) + 7)).Value = sht.Name
brojac = brojac + 1
End If
Next

End Sub

Jel to neka vojna tajna ili? Smijemo molim te i mi znati kako ste to rijesili?

:kafa::hitthewal:

Nema na čemu zare!

I usput, evo pozdrav svima, tu sam novi :D

Drago mi je da je aktualni blem rješen. Samo da dodam da se VB (zapravo VBA) vrlo močna altka i skoro nema što se nemože napraviti (isprogramirati) u Office paketima. Čak ako nešto nije direktno dostupno kao neka od funkcija i komandi može se napraviti uz pomoć direktnog pziva WIN API funkcija. To da je help za k . . . je istina, može poslužiti samo kao podsjetnik. Pravi help uz kojeg se moglo i nešto naučiti je u prastarom Office - u 4.3 za Win31 - 311. Koristim tako jednu "aplikaciju" baziranu na Excelu sa 20 - ak stranica koda funkcija usko specijalizirano napisanih za "suradnju" s jednim drugim programom pod windowsima.