PDA

View Full Version : Solved: Single click on cell should store value in another cell



rajesh nag
05-11-2008, 10:31 PM
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
05-12-2008, 12:23 AM
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


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
05-12-2008, 04:26 AM
Thanks so much for your help

Aussiebear
05-12-2008, 05:02 AM
Hi rajesh,

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