select entire row from a lookup

J

JR

I need to allow users to make a selection from a dropdown then I want code to
select the entire row (in this instance A throuhg J), copy the row and paste
it into a customizable list.

Can anyone tell me how to select an entire row in that manner?

Thanks.
 
T

The Code Cage Team

Depending on your dropdown cell something like:

Dim oCell As String
oCell = Sheets("Sheet1").Range("A1").Value 'change to suit the
dropdown
'assuming dropdown has Cell addresses
Range(Cells(Range(oCell).Row, 1), Cells(Range(oCell).Row, 10)).Copy _
Destination:=Sheets("Sheet2").Range("A" &
Rows.Count).End(xlUp).Offset(1, 0)

The above code copies the data from columns A - J for the specified
row, so if the value of A1 was AZ22 the code will copy A22:J22 to the
next available row on sheet 2.


--
The Code Cage Team

Regards,
The Code Cage Team
www.thecodecage.com
 
R

Rick Rothstein

What is in the dropdown? Your subject line mentioned "lookup"... are you
trying to lookup what the user picked? Is so, where did you want to look
at... a column, a row, a range of cells? You mention that you want to select
and then copy... odds are you do not have to select to do your copy, but to
know for sure, you need to tell us about your "customizable list". Where
and/or what is it... an array in memory, a String variable, a range of
cells, something else? The more details you tells us, the better answer one
of us will be able to provide for you.
 
J

JR

Rick Rothstein said:
What is in the dropdown?
Click to expand...

it is a dropdown from a list
Your subject line mentioned "lookup"... are you
trying to lookup what the user picked? Is so, where did you want to look
at... a column, a row, a range of cells?
Click to expand...

The list is "looking" at a column.
You mention that you want to select
and then copy... odds are you do not have to select to do your copy, but to
know for sure, you need to tell us about your "customizable list". Where
and/or what is it... an array in memory, a String variable,
Click to expand...

a range of cells, >>> the row of which the lookup column selected cell is
located
 
C

Cesar

Hello JR,

I have the same problem and I'm still looking for the best way to do this,
did you find a way to do it? does that code from thecodecage work? Please
reply
 
T

The Code Cage Team

The said:
Depending on your dropdown cell something like:

Dim oCell As String
oCell = Sheets("Sheet1").Range("A1").Value 'change to suit the
dropdown
'assuming dropdown has Cell addresses
Range(Cells(Range(oCell).Row, 1), Cells(Range(oCell).Row, 10)).Copy _
Destination:=Sheets("Sheet2").Range("A" &
Rows.Count).End(xlUp).Offset(1, 0)

The above code copies the data from columns A - J for the specified
row, so if the value of A1 was AZ22 the code will copy A22:J22 to the
next available row on sheet 2.
Click to expand...
Did this not work for you?


--
The Code Cage Team

Regards,
The Code Cage Team
'The Code Cage' (http://www.thecodecage.com)
 
Top