A question about code to write when clicked.

**Full_Circle256** · 07-23-2021, 11:00 AM

Hello! I have attached a visual to this message as an example of what I'm looking for. I'm having trouble finding VB code to plug in for this project I need to get done. Here is what I would like: when I click on "John" I want the next cell to be his name and then the red cells in his row filled in with specific numbers. Then, if I were to click on "Baker" it would do the same thing, it would fill Baker's row with his name and then specific numbers. I have about fifty names that need to have this same thing done to them. What would be the easiest way to do this? Thank you SO much for your help! EXAMPLE.png

**KOKOSEK** · 07-23-2021, 11:09 AM

Identifying row where you click and locate and fills cells is not big problem, my question is: where these 'specific numbers' to put in came from?

**Full_Circle256** · 07-23-2021, 11:14 AM

So the numbers may change once or twice a year, but not often. They come from a list that my job gives me. Currently, I am having to fill them in by hand, so I'd like to expedite the process by having code to just click the name and it fills it all out for me. I would hope that, down the line, when the numbers do change, I'd be able to just go back into the code and update the numbers to whatever they need to be. Thank you very much for the quick response! I'd really appreciate any tips you can give me

**KOKOSEK** · 07-26-2021, 04:42 AM

I've put it into double click not just click cell (select).
Go to VBA editor (Alt+F11) and into code of sheet put:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim MyNumbs() As Variant
Dim i As Integer
' numbers which have to appear in particular columns start with C. If cell have to be empty put ""
MyNumbs = Array(1130, 530, "", 100, 100, 10, 90, "", "", 90, 30)
If Not Intersect(Target, Range("A10:A" & ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row)) Is Nothing Then
    Target.Offset(0, 1).Value = Target.Value
    For i = 0 To UBound(MyNumbs)
        Target.Offset(0, 2 + i).Value = MyNumbs(i)
    Next i
End If
Cancel = True
End Sub

Check attached file.

**Full_Circle256** · 07-28-2021, 09:11 AM

Hey, I was out of the office for a few days so I am just seeing this now. You saved my butt! Thank you so much for taking the time to help me out. It works perfectly and in testing is doing exactly what I need it to do. Thank you again! :D :D :D