Prikazi cijelu temu 24.12.2013 23:16
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: PDV u Exel-u
Ides u vba i otvoris jedan novi modul.
Stavis u njega ovaj kod.
PreuzmiIzvorni kôd (Visual Basic):
  1. Option Explicit
  2.  
  3. Function Zbir(KolonaZbira As Range, KolonaPDV As String, IznosPDV As Integer)
  4. Dim Suma As Currency
  5. Dim Celija
  6. Dim Pdv As Integer
  7. Dim R As Range
  8. Dim CelijaPdv
  9.  
  10.  
  11. For Each Celija In KolonaZbira.Cells
  12. CelijaPdv = KolonaPDV & Celija.Row
  13. Set R = ActiveSheet.Range(CelijaPdv)
  14. Pdv = R.Cells
  15.     If Pdv = IznosPDV Then
  16.     Suma = Suma + Celija
  17.     End If
  18. Zbir = Suma
  19. Next Celija
  20. End Function

e sad kako pozvati primjer:
=zbir(D5:D8;"A";8)
D5:D8---Kolone vrijednosti odnosno sume kolicina i cijene.
Ako se to nalazi napr u koloni D od d5 do d8 kako je kod tebe.
"A" -Kolona u kojoj je napisan pdv u tvom slucaju a kolona.
8-iznos pdv-a za koji se trazi zbir.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.