Solved: Single click on cell should store value in another cell

[rajesh nag]

Hi,

I Please find the attacched file can any one help me to store value in "F6" by single click on provide value in "f14,f15,i14,i15) this is an example but in orignal file range is (G14:F30)

Regards,
Rajesh

[Bob Phillips]

[vba]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Const WS_RANGE As String = "F12,F13,I12,I13" '<== change to suit

If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then

Me.Range("E8").Value = Target.Value
End If

End Sub
[/vba]

This is worksheet event code, which means that it needs to be
placed in the appropriate worksheet code module, not a standard
code module. To do this, right-click on the sheet tab, select
the View Code option from the menu, and paste the code in.

[rajesh nag]

Thanks so much for your help

[Aussiebear]

Hi rajesh,

If this issue is to your satisfaction, please use the Thread Tools to mark this as "Solved"