Bosna i Hercegovina



#1 26.05.2015-20:16
Dan79 Offline
Clan
Registrovan/a od: 02.03.2015-19:40
Komentari: 83


Subject: pomoc oko vloocap funkcije
imam tablicu za G.O (godišnji odmor)
napravio sam da mi racuna po mjesecu ali kao mogu dobiti da mi zbroji sve sheet zapeo sam Disappointed
↑  ↓

#2 27.05.2015-12:20
pmiroslav Offline
Moderator
Registrovan/a od: 02.02.2009-10:32
Komentari: 1,339


Subject: Re: pomoc oko vloocap funkcije
Sa ovakovim pitanjem nikada nećeš dobiti odgovor. Iz ovoga nije jasno što želiš napraviti. Napravi primjer i stavi ga na post.
Pozdrav
↑  ↓

#3 27.05.2015-13:43
Dan79 Offline
Clan
Registrovan/a od: 02.03.2015-19:40
Komentari: 83


Subject: Re: pomoc oko vloocap funkcije
ispričavam se upravu si
eto primjera :
želim da u tablici januar 2015 dobijem zbroj svih total dana kroz godinu ako se nalaze na prijasnjim listovima.

jesam dobio da mi računa kroz mjesesce,ali nisu svi ljudi uvijek na istoj pozicijji.
tu funkciju neznam napisati Disappointed

Prilozi:
Informacije o fajlu: rar  godisnji.odmori.tablica.ZA.2015-16 test.rar
Preuzimanja: 26
Veličina: 38.71 KB

Ovaj komentar je mijenjan 1 puta. zadnja izmjena 27.05.2015-15:08 od strane Dan79. ↑  ↓

#4 27.05.2015-20:19
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,501


Subject: Re: pomoc oko vloocap funkcije
=(December!AH6+November!AH6+October!AH6+September!
AH6+August!AH6+July!AH6+May!AH6+April!AH6+March!AH
6+February!AH6+January!AH6)

Samo moras ispraviti ime sita juli.
Nije dobro napisano.
Ovo je za prvi red.
Za ostale samo kpiras.
Pozdrav
↑  ↓

#5 27.05.2015-20:51
Dan79 Offline
Clan
Registrovan/a od: 02.03.2015-19:40
Komentari: 83


Subject: Re: pomoc oko vloocap funkcije
to je dobro ,ali ne ono sto trebam.
nisu ljudi svi uvjek na istoj poziciji pa mi to nije uredu.
znaci iva moze biti na poziciji A5 ili ns nekom drugom sheetu A15
↑  ↓

#6 27.05.2015-21:53
dex Offline
Super Moderator
Registrovan/a od: 23.02.2012-19:59
Komentari: 557


Subject: Re: pomoc oko vloocap funkcije
Pritisni dugme prebroj.
radi dok ne naleti na prazno polje u koloni B, znaci rupe moras da popunis ili obrises

Prilozi:
Informacije o fajlu: zip  godisnjiDex.zip
Preuzimanja: 25
Veličina: 76.35 KB

↑  ↓

#7 27.05.2015-23:36
Dan79 Offline
Clan
Registrovan/a od: 02.03.2015-19:40
Komentari: 83


Subject: Re: pomoc oko vloocap funkcije
hvala na macro sutra cu vidjeiti jel ok :O)
↑  ↓

#8 28.05.2015-00:14
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,501


Subject: Re: pomoc oko vloocap funkcije
Evo ti procedura.
Ovo sve kopiraj u neki modul.
Procedura racuna samo iz sitova koje si naveo nazive i to od januara do decembra ali se moze izmijeniti.
U situ u kojemzelis da ti racuna moras imati sifre svih osoba.
Procedura se poziva tako sto u red (u neko polje na kraju tablice) u kome imas u a polju sifru osobe za koju zelis da sracuna napises:
=Saberi(A5:A39)
a5 je prvo polje a a39 poslednje na spisku.
Mozes to selektoovati i misem.
Pritisnes enter i dobit ces sabrano.
DownloadIzvorni kod (Visual Basic):
  1. Option Explicit
  2.  
  3. Function Saberi(Rng As Range)
  4. Dim Sit As Worksheet
  5. Dim ImeSita As String, ImeCelije As String
  6. Dim Poz As Integer, Sifra As Integer
  7. Dim Red As Range
  8. Dim Vrijednost As Integer
  9. Dim AktivniRed As Integer
  10.  
  11. AktivniRed = ActiveCell.Row
  12. Const siti = "JanuaryFebruaryMarchAprilMayJuneJuly AugustSeptemberOctoberNovemberDecemberJanuary"
  13. Set Red = ActiveSheet.Cells(AktivniRed, 1)
  14. Sifra = Red
  15.     For Each Sit In Worksheets
  16.     ImeSita = Sit.Name
  17.     Poz = InStr(1, siti, ImeSita, vbBinaryCompare)
  18.     If Poz > 0 Then
  19.     Vrijednost = Vrijednost + Nadji_Vrijednost(ImeSita, Rng, Sifra)
  20.     End If
  21.     Next Sit
  22.     Saberi = Vrijednost
  23. End Function
  24.  
  25.  
  26. Function Nadji_Vrijednost(ImeS As String, Rn As Range, Sifra As Integer) As Integer
  27. Dim Sit As Worksheet
  28. Dim Red As Range, RedB As Integer
  29. Dim CEL As Range, R As Range
  30. Dim a
  31.  
  32. a = Rn.Address
  33. Set Sit = Worksheets(ImeS)
  34. Sit.Activate
  35. Set R = Sit.Range(a)
  36. For Each Red In R.Rows
  37. If Red = Sifra Then
  38. RedB = Red.Cells.Row
  39. Set CEL = Sit.Cells(RedB, 34)
  40. Nadji_Vrijednost = CEL.Cells
  41. End If
  42. Next Red
  43. End Function

Pozdrav
Ovaj komentar je mijenjan 1 puta. zadnja izmjena 06.06.2015-12:04 od strane zxz. ↑  ↓

#9 06.06.2015-07:58
Avko Offline
Administrator
Registrovan/a od: 28.05.2014-09:21
Komentari: 2,794


Subject: Re: pomoc oko vloocap funkcije
u funkciji jeli treba dodaati End If i Next Red

DownloadIzvorni kod (Visual Basic):
  1. Function Nadji_Vrijednost(ImeS As String, Rn As Range, Sifra As Integer) As Integer
  2. Dim Sit As Worksheet
  3. Dim Red As Range, RedB As Integer
  4. Dim CEL As Range, R As Range
  5. Dim a
  6.  
  7. a = Rn.Address
  8. Set Sit = Worksheets(ImeS)
  9. Sit.Activate
  10. Set R = Sit.Range(a)
  11. For Each Red In R.Rows
  12.         If Red = Sifra Then
  13.                 RedB = Red.Cells.Row
  14.                 Set CEL = Sit.Cells(RedB, 34)
  15.                 Nadji_Vrijednost = CEL.Cells
  16.        End If 'jeli treba ovo
  17. Next Red' i jeli treba ovo
  18. End If

Newton laže! Lake padaju brže!
↑  ↓

#10 06.06.2015-12:07
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,501


Subject: Re: pomoc oko vloocap funkcije
Uf zaboravio sam kopirati dva reda koda treba jos:
Next Red
End Function
Popravio sam proceduru pa mozes ponovo skinuti.

Znaci na tvome umjesto en if treba End Function
Pozdrav
↑  ↓

#11 06.06.2015-12:53
Avko Offline
Administrator
Registrovan/a od: 28.05.2014-09:21
Komentari: 2,794


Subject: Re: pomoc oko vloocap funkcije
ja te to nisam pitao vec Dan79, a ja sam proucavao pa to primjetio da nedostaje.
Meni to ne treba ali moze biti od koristi
Newton laže! Lake padaju brže!
↑  ↓

#12 06.06.2015-21:55
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,501


Subject: Re: pomoc oko vloocap funkcije
Svaka cast.
Hvala na napomeni.
Pozdrav
↑  ↓

Stranice (1): 1


All times are GMT +01:00. Current time: 12.12.2017-07:38.