KOJE NOSIŠ “TIKE”? DARKO VLAJKOVIĆ, KONSULTANT MENADŽMENT CENTAR BEOGRAD

KOJE NOSIŠ “TIKE”? DARKO VLAJKOVIĆ, KONSULTANT MENADŽMENT CENTAR BEOGRAD

Darko-VlakovicĚ--Copy

Svaka veća kompanija danas koristi neki od ERP-ova (SAP, Microsoft, Upis, M&I…) Međutim, koliko god oni bili napredni, Excel je i dalje alat broj jedan za analiziranje i izveštavanje. Prema istraživanju koje je sproveo Menadžment Centar Beograd, čak 92% controllera koristi Excel za izveštavanje i budžetiranje. Problem koji se javlja u praksi je u tome koliko god da znamo sve moguće prečice i napredne funkcije, neke operacije su repetativne i izuzetno dosadne. Takve operacije nam oduzimaju puno vremena i one nemaju dodatnu vrednost, ponavljaju se iz meseca u mesec i onemogućavaju nas da se posvetimo analizi podataka koja bi nam omogućila donošenje boljih i kvalitetnijih odluka.

Darko Vlaković - Copy

Darko Vlajković, Konsultant, Menadžment Centar Beograd

Postavlja se pitanje kako automatizovati takve operacije? Dobar primer toga sam našao u jednoj trgovinskoj kompaniji koja je imala problem sa sabiranjem količina. Oni su prebacivali podatke iz ERP-a u Excel podatke o robi. U pitanju su bile patike. U podacima, između ostalog, su bile i oznake za veličine (SIZE) i količine (QUANTITY). Ovde se javlja problem što ne postoji zbir količina svake grupe patika. Da bi controller izračunao količinu za svaku grupu patika morao je kod svakog međuzbira u koloni „F“ ručno da unosi formulu za zbir =SUM(….) Na primer, u ćeliji F2 treba da napiše formulu =SUM(F3:F8), u ćeliji F9 treba da se napiše formulu =SUM(F10:F13) i tako dalje. Razlog za ručno unošenje je taj što je broj redova ispod svakog međuzbira različit i oblast za sabiranje se menja. S obzirom da ova tabela ima preko 10.000 redova, ovo controlleru oduzima skoro jedan dan posla – a takvih situacija ima 5 puta mesečno. Ukratko, 5 dana potrošenog vremena!

Screen Shot 2016-03-02 at 18.16.19 copy

Rešenje koje sam pronašao je VBA programiranje! VBA u Excelu upravo služi da se automatizuju ovakve operacije koje oduzimaju puno vremena i koje se relativno redovno ponavljaju. Sada će već mnogi odustati u čitanju ovog članka i pomisliti kako je to u pitanju neki kilometarski kod. Međutim, situacija je baš suprotna, i čitav kod staje u svega dvadesetak redova.

Prvo, otvorite tab Developer u vašem Ribbonu a zatim idite na VBA editor, otvorite novi modul i unesite sledeći kod:

’Odmah na početku definišemo varijable

Sub sabiranje()

Dim kraj As Long

Dim red1, red2 As Integer

’Zatim aktiviramo sheet u kome hoćemo da izvršimo operaciju

Sheet1.Activate

’Pošto ćemo raditi Do While petlju moramo da nađemo poslednji red u tabeli do kog će petlja vrteti. Zato koristimo  sledeće 3 linije koda.

Range(“D100000″).Select

Selection.End(xlUp).Select

kraj = Selection.Row

’ Do while petlju sam radio u koloni „D“ zato što su za svaku grupu patika svi redovi za sve veličine popunjeni izuzev subtotala.

Range(“D2″).Select

Selection.End(xlDown).Select

’Stavio sam da petlja radi do poslednjeg reda u tabeli

Do While red2 < kraj

’ Definisao sam početak i kraj oblasti tj Range-a za svaku grupu patika

        red1 = Selection.Row

        Selection.End(xlDown).Select

        red2 = Selection.Row

’Zatim sam sabrao ćelije u tom Range-u ali iz kolone F jer se tu nalaze količine tj kvantiteti i rezultat sam ubacio u kolonu F u sivu ćeliju koja se nalazi na vrhu

        Cells(red1 – 1, 12) = WorksheetFunction.Sum(Range(Cells(red1, 12), Cells(red2, 12)))

’Prebacio sam se u koloni „D“ na sledeću grupu patika

        ActiveCell.Offset(2, 0).Select

    Loop

’Kada sve završi, da se vrati u ćeliju A1

    Range(“A1″).Select

End Sub

Kada startujemo makro, on će u ćeliju F2 da upiše rezultat 48, u ćeliju F9 rezultat 7 i tako dalje. Konačan rezultat izgledaće kao na sledećoj slici:

Screen Shot 2016-03-02 at 18.16.03 copy

Za ovaj kod mi je bilo potrebno dva sata da ga osmislim tako da može da završi posao u 10.000 redova za četiri sekunde. Sa druge strane, controlleru je bilo potrebno preko pet dana mukotrpnog rada.

Dobar cost-benefit, zar ne?

Autor teksta je Darko Vlajković, Konsultant, Menadžment Centar Beograd.

Tekst je preuzet iz Controlling magazina 07.

Autor

Darko  Vlajkovic

Konsultant i trener

MCB Menadžment centar Beograd

Controlling


4 Komentara

  1. Milos :
    24.06.2016 u 12:06|Permalink

    A zašto ovo ne bi moglo sa subtotalima?

  2. Almir :
    27.06.2016 u 13:31|Permalink

    Slažem se, subtotali ili pivot tabela su lakše rješenje. Ipak, namjera autora je bila da se pokaže mogućnost VBA u automatizaciji koraka koji se često ponavljaju.

  3. Almir :
    27.06.2016 u 13:34|Permalink

    Ipak je u pitanju 10.000 redova za četiri sekunde.

  4. Darko :
    29.06.2016 u 13:04|Permalink

    Što kaže Almir, poenta je bila prikazivanje mogućnosti VBA programiranja :) ovaj slučaj bi moglo da se uradi pomoću pivot tabela, Power Query-ja…U excelu sve može da se uradi na više načina :)

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 (20)
  • 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ć (517)
  • 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)
  • 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 Dokmanović (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)
  • 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)
  • Trenutno nema magazina