Help in Editing Macros

blue_izce8

New Member
Joined
May 6, 2013
Messages
19
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
 

Some videos you may like

Excel Facts

Copy a format multiple times
Select a formatted range. Double-click the Format Painter (left side of Home tab). You can paste formatting multiple times. Esc to stop

blue_izce8

New Member
Joined
May 6, 2013
Messages
19
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

New Member
Joined
May 6, 2013
Messages
19
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
 

Watch MrExcel Video

Forum statistics

Threads
1,122,841
Messages
5,598,390
Members
414,234
Latest member
grlevesq

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top