Enhancing current VB code

[rfinnegan]

Hi All:

Last year someone was kind enough to provide the following code which allows me to click on any name in any cell, and have that name appear in a certain cell (D22).

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target(1).Address <> "$d$22" Then Range("d22").Value = "" & Target(1).Formula
End Sub

I'd like to take this a step further, and select one of 3 cells in column 'I' and have the data in the correcponding cells J and K populate cells e3 and g3.

For example, I click on cell i4, and the data in cells j4 and k4 magically appear in e3 and g3. If I selected cell i5, the data in cells j5 and k5 appear in e3 and g3. Or, if I seleted i3, j3 and k3 would populate e3 and g3.

Thanks in adavance.

 

[Peter_SSs]

Try this. Not sure if you want the 'Else' part but you can just remove that if you don't want it.

<font face=Courier New><br><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Worksheet_SelectionChange(<SPAN style="color:#00007F">ByVal</SPAN> Target <SPAN style="color:#00007F">As</SPAN> Range)<br>    <SPAN style="color:#00007F">If</SPAN> <SPAN style="color:#00007F">Not</SPAN> Intersect(ActiveCell, Range("I3:I5")) <SPAN style="color:#00007F">Is</SPAN> <SPAN style="color:#00007F">Nothing</SPAN> <SPAN style="color:#00007F">Then</SPAN><br>        Range("E3").Value = ActiveCell.Offset(, 1).Value<br>        Range("G3").Value = ActiveCell.Offset(, 2).Value<br>    <SPAN style="color:#00007F">Else</SPAN><br>        Range("E3,G3").ClearContents<br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

 

[rfinnegan]

Worked perfectly. A million thanks.