| |
Pozdrav,
v excelovem fajlu imam 197 listov. na teh listih imam za vsak mesec napisano ime in priimek in koliko ur je imel delavec v tem mesecu. to je ločeno po tabelah, katere pa se od lista do lista razlikujejo.
Sedaj pa bi jaz želela narediti en fajl oziroma nov list v tem fajlu,kjer bi bil seeznam vseh zaposlenih in bi bila tabela sestavljena takole: ime in priimek v celici A1, v B1 pa bi bili s pomočjo formule prenešeni podatki iz vseh ostalih listov.
HVALA ZA POMOČ.
spremenil: NikMan (11.2.2011 ob 08.12.20)
|
| |
| |
Bi se dalo ja. Ali je pri vsakem listu enaka sestaba tabele (verjetno ni). Najbolje bo narediti makro, ki se sprehodi skozi vse liste, vmes se sprehodi po vsaki vrstici in poišče zadnjo polno celico (skupaj). Vrednost te celice prišteje že obstoječi vsoti in na koncu to izpiše.
|
| |
| |
ok, ka pa brez makrojev ne gre? Sem razmišljala nekaj da bi šlo to z vlookup ampak ne vem kako označit, da imaš table_array dva lista not, ko ti da samo enega?
|
| |
| |
Ne, tako ne bo šlo saj bi potrebovala večdimenzionalno tabelo. Poskusi z makrom. Ko se ti bo pa ustavilo pa le povej 
|
| |
| |
ok. hvala! 
|
| |
| |
evo pri meni so nastali prvi problemi... še nikol nisem nekaj kaj preveč uporabljala makrojev.
kako zdej sploh začeti.... dobro znam posneti makro, nek izi primek kot je tudi zgornji link.... ampak kako pa sedaj to uporabit v praksi.???? 
Prosim za nasvet, kako sploh začeti.
|
| |
| |
Aha, bom poskusil potem kaj sestavit. Da pa ne bom pisal tristo vrstic kode ter vse pregledoval me zanima mogoče število zaposlenih.
|
| |
| |
heh, te morem razočarat, je res 250 zaposlenih... zato tako teženje da bi se to nekak normalno rešilo...
|
| |
| |
Sub sestej()
Dim i, j, k
Dim skupaj(250) As Integer
For i = 1 To Sheets.Count
Sheets(i).Select
j = 2
Do While Not Cells(7, j).Value = ""
j = j + 1
Loop
j = j - 1
For k = 8 To 258
skupaj(k - 8 ) = skupaj(k - 8 ) + CInt(Cells(k, j).Value)
Next
Next
For i = 0 To 249
Debug.Print skupaj(i) & ", " & skupaj(i + 1)
i = i + 1
Next
End Sub
To je zdaj tako po kavbojsko narejeno Delovati bi moralo za 250 delavcev. Poskusi pa povej če se ti kje zaustavi. Rezultati se izpišejo v Immediate okno (v VBA oknu pritisni tipki Ctrl + G.
In zdaj spet slaba stran zmaga.com. Pisanje kode. SMEŠKI 
[popravil smeške. podtalje]
|
| |
Prikazujem 1 od skupno 1 strani |
|
