Moves with a single click !

ssjerauld · Apr 5th, 2002, 05:57 PM

Hello again from Upstate NY,

Could someone tell me (I'm sure many of you can) how I can send a number selected from H3:H32 to a single destination cell B2 with a single click on the selected cell ?

Everybody on this site has been great with all of the help, especially to this novice.

THANKS A LOT !!!

SCOTT

Tom Schreiner · Apr 5th, 2002, 06:09 PM

Hey there.
Place this in your worksheet code module...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If .Column = 8 Then and _
.Row > 2 And .Row < 34 Then _
Cells(2, 2) = Cells(.Row, 8)
End With
End Sub

Have a nice day!

Tom

[ This Message was edited by: TsTom on 2002-04-05 17:39 ]

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 5th, 2002, 05:57 PM	#1
ssjerauld New Member Join Date: Mar 2002 Location: Central NY(not the park) Posts: 14	Hello again from Upstate NY, Could someone tell me (I'm sure many of you can) how I can send a number selected from H3:H32 to a single destination cell B2 with a single click on the selected cell ? Everybody on this site has been great with all of the help, especially to this novice. THANKS A LOT !!! SCOTT

Apr 5th, 2002, 06:09 PM	#2
Tom Schreiner Board Regular Join Date: Mar 2002 Location: Cincinnati, Ohio, USA Posts: 6,824	Hey there. Place this in your worksheet code module... Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Target If .Column = 8 Then and _ .Row > 2 And .Row < 34 Then _ Cells(2, 2) = Cells(.Row, 8) End With End Sub Have a nice day! Tom [ This Message was edited by: TsTom on 2002-04-05 17:39 ]