Dashboard Create a button to increase Monthly count

[dlafko1]

HI,
I working on trying to make a dashboard for our fire company. 1 item is a chart that shows our monthly calls. (Dont love this look) I would like to have a button on the dashboard so that when we come back from a call you push add call and it knows that the month we are in is August and it increases Augusts number by 1

Question 2.
I have the data in 2 columns in the worksheet and would like that to be on the dashboard as view only (so like a chart) just 2 columns vs the bar graph kind of stuff. Any ideas.

2 images 1st one is the dashboard i'm trying to make
2nd one is the data entry sheet i have.

Open to ideas suggests and such.. Ultimatley want to make this as easy for the end user to use as possible. Other areas Like Air Pack Batteries auto add 30 days to the date to change when they put in the date changed.



Thanks

 

[sxhall]

Hi dlafko1,

Code below will add a call to the current month for you. You will need to change the sheet name ("sheet1") below to the name of the sheet your table is stored on. Also I've assumed that you months are in column 'A' so used cell range 'A5:A17', change if required.

Sub AddCall()

Dim NowMonth As String
Dim rng As Range

NowMonth = Format(Now(), "MMM")
Set rng = Sheets("Sheet1").[A5:A17].Find(NowMonth)

    rng.Offset(, 1).Value = rng.Offset(, 1).Value + 1
    
End Sub

For the second part of the question you could add in data table to the graph. Will show the values and will update as th button is pressed.

Click on the chart and then go to 'Chart Design'> 'Add Chart Element'> 'Data Table' and select an option...