Prepare v3

costing-tool-module-1.vbs

@@ -1,16 +1,14 @@
-Sub R_More_50()
+Sub MECR_35()
 '
 ' R_More_50 Macro
 '
     Range("G2").Select
-    ActiveCell.FormulaR1C1 = "0.10"
-    Range("I2").Select
     ActiveCell.FormulaR1C1 = "0.35"
     ' MsgBox Application.Caller - use this to check what the option button is called
 
 
 End Sub
-Sub R_Less_50()
+Sub MECR_50()
 '
 ' R_Less_50 Macro
 
@@ -24,8 +22,6 @@ Sub R_Less_50()
 
     If X = False Then
         Range("G2").Select
-        ActiveCell.FormulaR1C1 = "0.25"
-        Range("I2").Select
         ActiveCell.FormulaR1C1 = "0.50"
     Else
         MsgBox "The worksheet is protected please unlock worksheet to select this option." & vbNewLine & "Please see the WRL Manager Mr Grantley Smith"
@@ -52,6 +48,9 @@ Sub copytemp()
     Sheets("Salary Information").Visible = False
     Sheets("RPU Budget_Template").Visible = True
 
+
+    'creates a copy of the "project template" with the project name to start pasting information
+
     Sheets("RPU Budget_Template").Select
     Sheets("RPU Budget_Template").Copy After:=Sheets(3)
     Sheets("RPU Budget_Template (2)").Select
@@ -97,7 +96,7 @@ Sub copytemp()
     Range("D12:M12").Select
     Selection.Copy
     Sheets(projectname).Select
-    Range("Q21").Select
+    Range("T21").Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=True
     Application.CutCopyMode = False
@@ -111,28 +110,6 @@ Sub copytemp()
     Range("G21").Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=True
- ' copy mark up percentage
-    Sheets("Project Information").Select
-    Range("I2").Select
-    Selection.Copy
-    Sheets(projectname).Select
-    Range("S21").Select
-    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
-        :=False, Transpose:=False
-    Range("H8").Select
-    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
-        :=False, Transpose:=False
-
-    Sheets("Project Information").Select
-    Range("G2").Select
-    Selection.Copy
-    Sheets(projectname).Select
-    Range("S35").Select
-    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
-        :=False, Transpose:=False
-        Range("S43").Select
-    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
-        :=False, Transpose:=False
 
    'Copy subcontractors
     Sheets("Project Information").Select
@@ -208,21 +185,22 @@ Sub copytemp()
 
     Sheets(projectname).Select
     Range("A1").Select
+
+   ' hides sheets
+    Sheets("StaffDetails").Visible = False
+    Sheets("Salary Information").Visible = False
+    Sheets("RPU Budget_Template").Visible = False
+
     'ProtectSheet
     ActiveSheet.Protect AllowInsertingColumns:=False, _
     AllowInsertingRows:=False, _
     AllowDeletingColumns:=False, _
     AllowDeletingRows:=False
 
-
     Sheets("Project Information").Select
     Range("A1").Select
-
-
- ' hides sheets
-    Sheets("StaffDetails").Visible = False
-    Sheets("Salary Information").Visible = False
-    Sheets("RPU Budget_Template").Visible = False
+    Sheets(projectname).Select
+    Application.Goto Reference:=Range("a1"), Scroll:=True
 
 
 End Sub