Obracunski List Gradevinske Knjige: Excel
Enter these headers in :
A106: "Potpis izvođača:" B106: (manual entry) Press ALT + F11 → Insert → Module → Paste this code: obracunski list gradevinske knjige excel
Close VBA editor. Go to Developer Tab → Insert → Form Controls → Button. Enter these headers in : A106: "Potpis izvođača:"
A102: "Ukupno bez PDV:" B102: =SUM(G:G) A103: "PDV (25%):" B103: =B102*0.25 vbYesNo + vbQuestion
Sub ResetirajList() ' Clears all data rows except headers and formulas Dim answer As VbMsgBoxResult answer = MsgBox("Obrisati sve podatke? (formule ostaju)", vbYesNo + vbQuestion, "Potvrda") If answer = vbYes Then Rows("3:100").ClearContents Range("A3").Select MsgBox "List je resetiran. Formule u stupcima G i I ostaju." End If End Sub
Enter these headers in :
A106: "Potpis izvođača:" B106: (manual entry) Press ALT + F11 → Insert → Module → Paste this code:
Close VBA editor. Go to Developer Tab → Insert → Form Controls → Button.
A102: "Ukupno bez PDV:" B102: =SUM(G:G) A103: "PDV (25%):" B103: =B102*0.25
Sub ResetirajList() ' Clears all data rows except headers and formulas Dim answer As VbMsgBoxResult answer = MsgBox("Obrisati sve podatke? (formule ostaju)", vbYesNo + vbQuestion, "Potvrda") If answer = vbYes Then Rows("3:100").ClearContents Range("A3").Select MsgBox "List je resetiran. Formule u stupcima G i I ostaju." End If End Sub