copy selected cell
 

Hi

Seen similar sort of thing on forum, but now cant find it

I have large list of numbers. When i enter details of number in Ctrl+H to
find required number in column A, if found,it clicks on active cell. i then
want a macro to run automatically to copy the data in that cell to another
cell in the same row

Any idea's anyone

regards

--
bnt

Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200608/1

copy selected cell
 

Maybe something like this. This works on column A

Sub FindNumber()
Columns(1).Select
Cells(Rows.Count, 1).End(xlUp)(2).Activate
Application.Dialogs(xlDialogFormulaFind).Show
if selection.rows.count = 1 then
ActiveCell.Copy Cells(ActiveCell.Row, 5)
end if
End Sub

--
Regards,
Tom Ogilvy


"brian thompson3001 via OfficeKB.com" wrote:

Hi

Seen similar sort of thing on forum, but now cant find it

I have large list of numbers. When i enter details of number in Ctrl+H to
find required number in column A, if found,it clicks on active cell. i then
want a macro to run automatically to copy the data in that cell to another
cell in the same row

Any idea's anyone

regards

--
bnt

Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200608/1