Urgent Please help me edit this macros

[blue_izce8]

Hi - I'm not knowledgeable in macros but unfortunately i need to edit this file because the person incharge already left.

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 "Triage" in the same cell in "Tracker" sheet (if possible)
2. If the "check box" is ticked, D14 must have a drop down list which is located in the "List" sheet M1 cell
3. Once D14 is filled, on cell G14, the options for each dropdown list should appear (Direct, Indirect and Financial). Which can be found in "List" sheet under O1, Q1 and S1 respectively.
4. Data in G14 must be added along with the other data in "Raw Data" sheet

Productivity Tracker V9.xlsm

Somebody please help me resolve my problem because i need to present this today.

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

[Mikey7121]

What is the password?

[protonLeah]

Unfortunately your post does not comply with Rule 2 of our Forum RULES. Do not post a question in the thread of another member -- start your own thread.

If you feel an existing thread is particularly relevant to your need, provide a link to the other thread in your new thread.

Old threads are often only monitored by the original participants. New threads not only open you up to all possible participants again, they typically get faster response, too.