Multi Select Cells
 

Hi all

Please help, I have 2 Sheets. 1 of Which is the database.

What I would like to do is to select diferent cells (only 1 cell from a
row) from the database (may be via a inputbox) and the cells Ive
selceted, the entire row is coppied (only values) to the other sheet.


Many thanks

Dave

Multi Select Cells
 

Hi David

Seee
http://www.rondebruin.nl/copy1.htm

You can try it with this

smallrng.EntireRow.Copy


--
Regards Ron de Bruin
http://www.rondebruin.nl



"David" wrote in message . uk...
Hi all

Please help, I have 2 Sheets. 1 of Which is the database.

What I would like to do is to select diferent cells (only 1 cell from a row) from the database (may be via a inputbox) and the
cells Ive selceted, the entire row is coppied (only values) to the other sheet.


Many thanks

Dave

Multi Select Cells
 

Sub CopyRange()
Dim rng as Range
Dim rng1 as Range
On error resume Next
set rng = Application.Inputbox("Select single cell for row to copy", _
type:=8)
ON error goto 0
if rng is nothing then exit sub

On Error Resume Next
set rng = Application.InputBox("Select destination cell", _
type:=8)
On Errog goto 0
if rng1 is nothing then exit sub
rng.EntireRow.copy Destination:=
rng1.offset(0,-(rng1(1).Column-1))

End Sub

--
Regards,
Tom Ogilvy


"David" wrote in message
. uk...
Hi all

Please help, I have 2 Sheets. 1 of Which is the database.

What I would like to do is to select diferent cells (only 1 cell from a
row) from the database (may be via a inputbox) and the cells Ive
selceted, the entire row is coppied (only values) to the other sheet.


Many thanks

Dave