Predmet:Re: PDV u Exel-u
Ides u vba i otvoris jedan novi modul.
Stavis u njega ovaj kod.
PreuzmiIzvorni kôd (Visual Basic):Option Explicit
Function Zbir(KolonaZbira As Range, KolonaPDV As String, IznosPDV As Integer)
Dim Suma As Currency
Dim Celija
Dim Pdv As Integer
Dim R As Range
Dim CelijaPdv
For Each Celija In KolonaZbira.Cells
CelijaPdv = KolonaPDV & Celija.Row
Set R = ActiveSheet.Range(CelijaPdv)
Pdv = R.Cells
If Pdv = IznosPDV Then
Suma = Suma + Celija
End If
Zbir = Suma
Next Celija
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.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.