Help in Editing Macros

[blue_izce8]

Hi - I would like to ask for your help in editing the macros on this file. Here are the things i would need to add on the file:

1. I need to add a "check box" next to the word "Triaged"
2. If the "check box" is ticked, D14 must have a drop down list wish is located in the "List" sheet M1 cell
3. On cell G14, the options for each dropdown list option (Direct, Indirect and Financial) will appear. Which can be found in "List" sheet under O1, Q1 and S1 respectively.

Somebody please help me resolve my problem because i need to present this today. The person who created this left already.

thank you


Sub RoundedRectangle1_Click()


ActiveCell.FormulaR1C1 = "=NOW()"
ActiveCell.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End Sub
Sub RoundedRectangle2_Click()
Dim i As Integer ' counters
Dim results As Integer


results = MsgBox("Are you sure you want to save this?", vbYesNo, "")


If results = vbYes And Worksheets("Tracker").Range("D18") = "Complete" Then
i = 1

' Finds a blank row to insert data on each worksheet
Do While Worksheets("Raw Data").Range("A" & i) <> ""
i = i + 1
Loop

' info
Worksheets("Raw Data").Range("a" & i) = Worksheets("Tracker").Range("g4")
Worksheets("Raw Data").Range("b" & i) = Worksheets("Tracker").Range("d8")
Worksheets("Raw Data").Range("c" & i) = Worksheets("Tracker").Range("g8")
Worksheets("Raw Data").Range("d" & i) = Worksheets("Tracker").Range("d10")
Worksheets("Raw Data").Range("e" & i) = Worksheets("Tracker").Range("g10")
Worksheets("Raw Data").Range("f" & i) = Worksheets("Tracker").Range("d12")
Worksheets("Raw Data").Range("g" & i) = Worksheets("Tracker").Range("g12")
Worksheets("Raw Data").Range("h" & i) = Worksheets("Tracker").Range("d20")

Range("D8:D16,G8:G16,D20").Select


ActiveWorkbook.Save


End If
End Sub


Sub RoundedRectangle3_Click()
results = MsgBox("This will clear unsaved monitor data, Proceed?", vbYesNo, "")


If results = vbYes Then
Sheets("Tracker").Select
Range("D10,G10").Select
Selection.ClearContents

End If
End Sub

 

[blue_izce8]

I forgot to inform everyone that i'm not knowledgeable in VBA ...and the Triaged and the checkbox must be on the same cell if possible.

 

[blue_izce8]

hi all - if it is not possible to add the checkbox... could you please tell me how i can add the Triaged option so it will appear in the Raw Data Sheet? TIA