Budžet na jedan klik!, Ivan Veselinović, Senior planer analitičar, Atlantic Grupa

Budžet na jedan klik!, Ivan Veselinović, Senior planer analitičar, Atlantic Grupa

- foto Luka Vuletich

Jedan od novih trendova u controllingu jeste i poznavanje Visual Basic for Aplications (VBA) programskog jezika. VBA može da se koristi u Excel-u i drugim Office aplikacijama u cilju povećanja efikasnosti rada, a kroz automatizaciju rutinskih, ponavljajućih operacija. Više nije dovoljno napredno poznavanje dobrog starog Excela, VLOOKUP funkcija i pivot tabela. Controlleri moraju da usavršavaju svoje znanje na polju programiranja, kako bi što više podataka dobili jednim klikom i što pre dostavili izveštaj menadžeru. U tom cilju, želim da vam pokažem praktičan primer primene VBA programiranja u jednom od najvažnijih procesa controllinga, a to je proces budžetiranja.

Ivan Veselinović, Senior planer analitičar, Atlantic grupa

Ivan Veselinović, Senior planer analitičar, Atlantic grupa

Cilj je kreiranje baze podataka, na osnovu podataka složenih u klasičnu formu za unos, i to na brz automatski način. Uz pomoć makroa, tj. pisanjem podprograma u VBA, može da se dođe do vrlo efikasnog rešenja.

U narednoj tabeli dat je primer formulara za unos troškova, koji sadrži podatke o budžetu. U redovima su prikazane vrste troškova, a u kolonama meseci. Ove podatke je potrebno složiti u formu baze podataka, radi lakše manipulacije podacima i eventualnog unosa u Data Warehouse (DWH). Ovako poređani podaci mogu vrlo jednostavno da se pretvore u bilo koji format za unos u ERP ili DWH sisteme.

Forma za planiranje troškova za mesto troška CC_01

Forma za planiranje troškova za mesto troška CC_01

Sada je potrebno samo da napišem ispravan kod, kako bih dobio bazu podataka koja će mi omogućiti laku manipulaciju. Kod koji zadajem u okviru DEVELOPER kartice u Excel-u je sledeći:

Sub PopuniBazu()

Dim i, n, kraj, red, kolona As Integer

‘aktiviraj radni list CC_01 (forma za unos troškova)

Sheets(“CC_01″).Activate

‘proveri koliko redova ima forma za unos (prebroj numeričke vrednosti u koloni A)

n = WorksheetFunction.Count(Sheets(“CC_01″).Range(“A:A”))

kraj = n + 5 ‘poslednji red je = n + 5, jer je početak tabele u 6. redu

‘postavi početnu vrednost promenljive red (početak baze)

red = 3

‘postavi početnu vrednost promenljive kolona (početak baze)

kolona = 2

For i = 6 To kraj ‘petlja prolazi kroz sve redove forme za unos

If Cells(i, 1) = 2 Then ‘ako je vrednost u koloni A = 2, tada uzmi podatke

For j = 1 To 12 ‘meseci

‘godina

Sheets(“Baza”).Cells(red, 2) = 2016

‘mesec

Sheets(“Baza”).Cells(red, 3) = j

‘vrsta troška – nivo 2

Sheets(“Baza”).Cells(red, 5) = Cells(i, 2)

‘mesto troška

Sheets(“Baza”).Cells(red, 6) = Range(“C3″)

‘planski period

Sheets(“Baza”).Cells(red, 7) = Range(“C2″)

‘odgovorna osoba

Sheets(“Baza”).Cells(red, 8) = Range(“C1″)

‘iznos (EUR)

Sheets(“Baza”).Cells(red, 9) = Cells(i, 2 + j).Value

red = red + 1 ‘u sledećem krugu, pređi na naredni red

Next j

End If

Next i

Sheets(“Pivot”).Activate

ActiveSheet.PivotTables(“PivotTable1″).PivotCache.Refresh

End Sub

Ako sam pravilno napisao kod, klikom na dugme „Popuni bazu“ dešava se magija. U narednih nekoliko sekundi dobijam sređenu bazu podataka. I šta dalje?

Sređena baza podataka

Sređena baza podataka

Pa naravno, dobri stari pivot. Mogu sada da analiziram podatke onako kako želim, a isto tako i moj menadžer. Jednostavno, zar ne?

Primer izveštaja (pivot tabela)

Primer izveštaja (pivot tabela)

U primeru je data tabela za jedno mesto troška, a uz manju nadogradnju, dodavanjem nekoliko linija koda, može da se napravi makro koji će spojiti više ovakvih tabela u jednu zajedničku bazu podataka, ali to je već tema za neki naredni broj.

Autor teksta je Ivan Veselinović, Senior planer analitičar, Adriatic Grupa.

Tekst je preuzet iz Controlling magazina 06.

Autor

Ivan  Veselinović

Senior Planning Analyst

Atlantic Grupa


2 Komentara

  1. Branko :
    11.02.2016 u 20:45|Permalink

    Postovanje Ivane,
    dosta dobro resenje ste dali, interesujeme da li Vam je pala na pamet ideja da to sve realizujete trodimenzionlno

  2. Ivan :
    12.02.2016 u 20:04|Permalink

    Branko, nisam baš siguran da sam razumeo pitanje. U kom smislu trodimenzionalno? Ako ste misli na više mesta troška, kao treća dimenzija, onda jesam. To bi samo zahtevalo dodatnu promenljivu npr.
    Dim ws as worksheet
    For l = 1 to s
    ws (l) activate
    ‘dalje bi se iskoristio kod iz gornjeg teksta

Napiši komentar

Newsletter pretplata

Autori Tagovi
  • Aleksandar Duković (4)
  • Aleksandar Nedeljković (1)
  • Aleksandar Nešić (1)
  • Aleksandar Pejčić (1)
  • Aleksandar Predić (2)
  • Aleksandar Teofilović (3)
  • Aleksandra Dutina (2)
  • Aleksandra Janković (1)
  • Aleksandra Paunić (1)
  • Aleksandra Đorđević (2)
  • Almir A. Budalica (19)
  • Ana Petonjić (1)
  • Ana Petrović (1)
  • Andreas Graf (1)
  • Andrej Beslać (1)
  • Andrej Kuku (1)
  • Andrija Pavlović (2)
  • Anja Atanasijević (1)
  • Anja Dadasović (1)
  • Biljana Dimitrijević (1)
  • Biljana Dukovic (1)
  • Biljana Masić (6)
  • Bjarte Bogsnes (1)
  • Bogdan Kravić (1)
  • Bojan Grahovac (1)
  • Bojan Pavlović (1)
  • Bojan Radoš (2)
  • Bojan Radun (1)
  • Bojan Šćepanović (300)
  • Bojana Pejčić (26)
  • Bojana Radović (1)
  • Bojana Vesić Anić (1)
  • Bojana Vesić Antić (1)
  • Branislav Lončar (3)
  • Branislav Vujović (1)
  • Branislav Zobenica (1)
  • Cmilja Tucaković (1)
  • Dalibor Pajić (1)
  • Daniela Laketic (31)
  • Danijela Medić (1)
  • Danijela Popović (1)
  • Danijela Resimić (1)
  • Danijela Tuco (1)
  • Darko Bjelić (2)
  • Darko Samardžija (1)
  • Darko Vlajkovic (27)
  • David Momčilović (1)
  • Davor Sakač (1)
  • Dejan Marković (1)
  • Dejan Đorđević (1)
  • Dejana Manić Kavgić (2)
  • Denis Trbović (3)
  • Desa Ćuk (1)
  • Dimitrije Stojanović (1)
  • Vojislav Marjanović (3)
  • Dragan Radosavljević (2)
  • Dragan Ranisavljević (1)
  • Dragan Vještica (3)
  • Dragana Gondžo (1)
  • Dragana Guzina (1)
  • Dragana Lukić (1)
  • Dragana Nerandžić (1)
  • Dragana Ovčarov (1)
  • Dragana Stojanović (2)
  • Dragana Đorđević (1)
  • Draško Marković (1)
  • Dražan Planinić (1)
  • Dušan Krejaković (1)
  • Excel genije! (151)
  • Fabrizio Renzi (1)
  • Goran Petrović (1)
  • Goran Popović (4)
  • Goran Slijepčević (1)
  • Goran Vasić (1)
  • Goran Vujasinović (1)
  • Gorana Golubovic Vuksanovic (1)
  • Goranka Radojčić (2)
  • Gordana Jankov (1)
  • Gostujuci autor (514)
  • Ilija Vujović (1)
  • Irina Zdravković (2)
  • Istok Pavlović (1)
  • Ivan Anđelković (1)
  • Ivan Bešker (1)
  • Ivan Ćirković (1)
  • Ivan Dačković (1)
  • Ivan Kostadinović (1)
  • Ivan Veselinović (3)
  • Ivan Đurić (1)
  • Ivana Dagović (1)
  • Ivana Jevtić (1)
  • Ivana Milić (1)
  • Ivana Popović (1)
  • Ivana Savović (1)
  • Ivana Višnjić (3)
  • Ivana Vlahović (1)
  • Jasenka Stekić (1)
  • Jelena Jovanović (1)
  • Jelena Lečić Mirčetić (1)
  • Jelena Radovanac (1)
  • Jelena Ristić (1)
  • Jelena Stojmenović (1)
  • Jelena Vučković (1)
  • Jovan Gligorijević (1)
  • Jovan Krstić (1)
  • Jovana Kondić (2)
  • Jovana Stanojčić (1)
  • Jovo Stokić (2)
  • Katarina Ćevriz (2)
  • Kristina Bojović (1)
  • Ksenija Karić (1)
  • Lazar Džamić (1)
  • Leo Pandžić (2)
  • Lidija Latinović (1)
  • Ljubomir Skupek (1)
  • Lucija Vesić (1)
  • Maja Mrkalj (1)
  • Maja Nikčević Rmandić (1)
  • Maja Petrović (1)
  • Maja Šobot (1)
  • Maja Verlašević (1)
  • Maja Zikic (1)
  • Mari Glavonjić (2)
  • Marija Đurović (1)
  • Marija Kostić (1)
  • Marija Rokvić (1)
  • Marija Švigir (32)
  • Marija Tatarević (3)
  • Marijana Krička (1)
  • Marina Mitić Jekić (1)
  • Mariora Andraš Tomić (1)
  • Marko Agatonović (2)
  • Marko Bekić (1)
  • Marko Devrnja (1)
  • Matjaž Fajfar (2)
  • Milan Listeš (2)
  • Milan Maglov (1)
  • Milan Manić (1)
  • Milan Marković (1)
  • Milan Milenković (1)
  • Milan Radivojevic (1)
  • Milan Simić (1)
  • Milan Zaletel (1)
  • Milan Đorđević (1)
  • Mile Mitrović (47)
  • Milena Janjić (3)
  • Milena Nikolov (1)
  • Milena Radosavljević Đorić (1)
  • Milena Rajić (1)
  • Milenko Dželetović (1)
  • Milica Altgelt (1)
  • Milica Ivic (1)
  • Milica Đorđević (1)
  • Miloš Cvetković (7)
  • Miloš Jauković (1)
  • Miloš Jeličić (2)
  • Miloš Nedeljković (1)
  • Miloš Pucarević (1)
  • Miloš Puzić (1)
  • Miloš Simić (1)
  • Miloš Vasić (1)
  • Miloš Zeković (1)
  • Miona Živkov-Ivanišević (4)
  • Mirjana Pašalić (2)
  • Jelena Jovanović (5)
  • Mladen Ranković (1)
  • Natalija Jegdić (1)
  • Natalija Mihajlović (1)
  • Natalija Pešić (2)
  • Natalija Popovic (1)
  • Nataša Kuzmanovski (1)
  • Nataša Stamenković (2)
  • Nataša Žikić Buha (1)
  • Nebojša Vlatković (1)
  • Neda Čičarević Tepić (1)
  • Neda Jovanović (1)
  • Nemanja Knežević (1)
  • Nemanja Nikolić (3)
  • Nenad Dlačić (1)
  • Nenad Kovačević (1)
  • Nenad Radunović (1)
  • Nenad Trajkovski (1)
  • Nevena Radovanović (1)
  • Nevena Vračar (1)
  • Nikola Avram (1)
  • Nikola Cvijanović (1)
  • Nikola Petreski (1)
  • Nikola Stokić (2)
  • Nikola Turkan (1)
  • Nikša Vušurović (1)
  • Olga Mirković (1)
  • Olivera Dostanić (1)
  • Olivera Krneta (1)
  • Olivera Nikodijević (1)
  • Petar Ćurčić (1)
  • Petar Popović (1)
  • Petar Živković (3)
  • Predrag Krasojevic (7)
  • Predrag Kudra (1)
  • Predrag Micić (1)
  • Predrag Petrović (5)
  • Rade Hajder (1)
  • Rade Radanović (2)
  • Rade Stojisavljević (1)
  • Radomir Petronijević (1)
  • Rajko Vasojević (1)
  • Roland Seeliger (1)
  • Sandra Rapo (1)
  • Sanja Jevđenijević (1)
  • Sanja Mrđanov (2)
  • Saša Stamenković (1)
  • Silvia Tomić (1)
  • Slavica Vučetić (1)
  • Slavica Vujičić (1)
  • Slaviša Lečić (2)
  • Slavko Vujnovic (7)
  • Slobodan Anić (2)
  • Slobodan Radoičić (1)
  • Slobodan Roksandić (1)
  • Slobodan Žepinić (1)
  • Snežana Glavonjić (1)
  • Snežana Trajkovski (1)
  • Snježana Pivaš (1)
  • Sonja Nenić Andreev (1)
  • Srdjan Grbić (1)
  • Srđan Grubić (1)
  • Srđan Pavlović (1)
  • Stefanija Georgieva (8)
  • Stevan Ćomić (1)
  • Svetlana Mirković Borčić (1)
  • Svetlana Pajić (1)
  • Svetlana Žikić (2)
  • Tamara Dragašević (1)
  • Tamara Lazić (3)
  • Tamara Matović (2)
  • Tatjana Bolpačić (22)
  • Tatjana Jovanović (1)
  • Tatjana Lukić (2)
  • Tijana Anđelić (1)
  • Tijana Drljević (1)
  • Tijana Rauš (1)
  • Tomislav Mimica (1)
  • Tomo Djekovic (1)
  • Vedran Babik (1)
  • Vedrana Božić (2)
  • Vedrana Vukša (1)
  • Velibor Ilić (1)
  • Veljko Stanojković (1)
  • Veljko Žarić (1)
  • Veroljub Zmijanac (1)
  • Vesna Stojanvić (1)
  • Violeta Kovačević (1)
  • Vladan Buha (1)
  • Vladan Matović (1)
  • Vladimir Petković (2)
  • Vladimir Popović (1)
  • Vladimir Stojković (1)
  • Yeghishe Avagyan (1)
  • Žaklina Teofilović (2)
  • Žarko Milovanović (1)
  • Žarko Savić (1)
  • Željko Ćulibrk (1)
  • Željko Vidojević (1)
  • Živka Mutlak (1)
  • Živorad Radovanović (1)
  • Zoran Blagojević (1)
  • Zoran Daljević (1)
  • Zorica Dinić (1)
  • Zorica Popović (1)
  • Đorđe Koprivica (2)
  • Đorđe Milinković (1)
  • Đorđe Živanović (1)
  • Najnoviji Broj Controlling Magazina

    Controlling magazin #12

    Tema:
    "SUPPLY CHAIN"

    Autori:
    Preko 60 autora: Actavis, Elektromreža Srbije, BASF, Uniqa osiguranje...

    Preuzmi elektronsko izdanje