Obracunski List Gradevinske Knjige Excel | High-Quality Overview |

m²,m³,kom,kg,t,dan, sat Save the file as:

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 obracunski list gradevinske knjige excel

Sub DodajNoviRed() ' Adds a new empty row above the totals Rows("101:101").Insert Shift:=xlDown Range("A101").Value = Application.WorksheetFunction.Max(Range("A:A")) + 1 Range("B101").Select MsgBox "Novi red dodat. Unesite datum i podatke." End Sub Sub IspisiObračun() ' Sets print area and prints ActiveSheet.PageSetup.PrintArea = "$A$1:$I$100" ActiveSheet.PageSetup.Orientation = xlLandscape ActiveSheet.PrintOut End Sub Unesite datum i podatke

This is a specialized request for a (translation: obračunski list građevinske knjige ) in Excel. vbYesNo + vbQuestion

Close VBA editor. Go to Developer Tab → Insert → Form Controls → Button.