Podešavanje osnovnih obrazaca za završni obračun

Radi se o dva Excel-fajla – jedan je za preduzeća a drugi je za udruženja.

U krajnjem oni treba da imaju za npr. godinu 2017. nazive “ZO_PRED_2017.xlsm” i “ZO_UDR_2017.xlsm” i treba da budu smješteni u direktorij (folder) “c:\bosap\zavrsni\default”.

Što se tiče prilagođavanja unutar fajla treba uraditi sljedeće:

• konta koja počinju sa 0 tj. iz klase 0 treba izmijeniti tako da počinju slovom O umjesto cifrom 0 (nula). Ovo se odnosi na kartice (sheets) “UnosPod” i “PretGod”
• dodati karticu “BOSAP” kopiranjem iz obrađenog obrasca za prethodnu godinu
• za oba obrasca (tj. i za preduzeća i za udruženja) treba dodati sljedeći makro (pod Developer/Visual basic/Modules/Module1) uz eventualnu prilagodbu za domen ćelija za svaku od 3 kartice koje se obrađuju:

Sub tekst_u_broj()
 Worksheets("BOSAP").Activate
 Range("A1:C4").Select
 For Each xCell In Selection
  If xCell.Errors.Item(xlNumberAsText).Value = True Then
   xCell.Value = CDec(xCell.Value)
  End If
 Next xCell
 Worksheets("PretGod").Activate
 Range("A1:M495").Select
 For Each xCell In Selection
  If xCell.Errors.Item(xlNumberAsText).Value = True Then
   xCell.Value = CDec(xCell.Value)
  End If
 Next xCell
 Worksheets("UnosPod").Activate
 Range("A1:BH1430").Select
 For Each xCell In Selection
  If xCell.Errors.Item(xlNumberAsText).Value = True Then
   xCell.Value = CDec(xCell.Value)
  End If
 Next xCell
End Sub

Taj makro je potreban da bi se izbjegle greške koje su uzrokovane interpretacijom numeričke ćelije kao tekstualne.