Macro to put value into cell when click another cell

[smiley3141]

Hello.

I am using Excel 2007 and I have a small chart with column and row headings. I would like to create a macro that inputs data into other cells depending on what cell in the chart I click. I would also like to clear the names when I select another cell.

My data's column headings are in cells B6:K6 and they are collectively named "People_Owed". The row headers are in cells A7:A16 and they are collectively named "People_Paid." The cells are B7:K16 make up the rest of the chart and those cells are collectively named "Money_Owed". I would like to be able to click a cell in the "Money_Owed" section and have the Person paid put into Cell A1 and the Person owed put into cell A2.

Also, I would like to be able to click in cell A6 and have the values in cell A1 and A2 be cleared.

Is there some way to do this?

I appreciate any help you can give me.

 

[Marcelo Branco]

Maybe this

Right-click on the sheet tab, pick View code and paste the code below in the right-panel

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    If Not Intersect(Target, Range("B7:K16")) Is Nothing Then
        Range("A1") = Cells(Target.Row, 1)
        Range("A2") = Cells(6, Target.Column)
    End If
    
    If Not Intersect(Target, Range("A6")) Is Nothing Then
        Range("A1") = ""
        Range("A2") = ""
    End If
    
End Sub

M.

 

[smiley3141]

Thank you Marcelo Branco.

That works beautifully.