VBA/Macro For adding 1 to Cell Value Based on 2 Drop Downs (Row&Column)

[leighton367]

Hi to whomever could help me,

I am trying to create a Recognition progam in excel for my employees, and make it user friendly for others. I have created one sheet (Data) that has all the information stored Names and what we are recognizing them for. Then I have the User friendly sheet (YYD) that has One drop down for the name of the employee(Rows in column A on data sheet), and another drop down for the recognition card they recieved (Columns B,C,D,E on Data Sheet). Lastly, there is a button on the User friendly sheet (YYD) and I am trying to get the macro to add 1 to the cell of the row and column they selected on the drop downs, when they click the button.

Drop Down Cells on YYD Sheet- F12 (Names) and F17 (Recognition)

Button (Submit) to add 1 - Sub Submit()

Sample of Data sheet:
[TABLE="width: 500"]
<TBODY>[TR]
[TD]Name[/TD]
[TD]People[/TD]
[TD]Service[/TD]
[TD]Sales[/TD]
[TD]Credit[/TD]
[/TR]
[TR]
[TD]Bob[/TD]
[TD]4[/TD]
[TD]1[/TD]
[TD][/TD]
[TD]3[/TD]
[/TR]
[TR]
[TD]Dana[/TD]
[TD]2[/TD]
[TD]3[/TD]
[TD][/TD]
[TD]1[/TD]
[/TR]
[TR]
[TD]Eric[/TD]
[TD]3[/TD]
[TD]1[/TD]
[TD]2[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Scott[/TD]
[TD]2[/TD]
[TD]1[/TD]
[TD]1[/TD]
[TD]1[/TD]
[/TR]
</TBODY>[/TABLE]

 

[onlyadrafter]

Hello,

something like this?

Sub ADD_RECOGNITION()
    MY_NAME = Sheets("YYD").Range("F12").Value
    Select Case Sheets("YYD").Range("F17").Value
        Case "People"
            MY_OFFSET = 1
        Case "Service"
            MY_OFFSET = 2
        Case "Sales"
            MY_OFFSET = 3
        Case "Credit"
            MY_OFFSET = 4
    End Select
    Sheets("Data").Select
    Cells.Find(What:=MY_NAME, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False).Activate
    ActiveCell.Offset(0, MY_OFFSET).Value = ActiveCell.Offset(0, MY_OFFSET).Value + 1
End Sub

This doesn't have any error checking though.