The Code Cage Team;23733 Wrote:
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.
Did this not work for you?
--
The Code Cage Team
Regards,
The Code Cage Team
'The Code Cage' (
http://www.thecodecage.com)
------------------------------------------------------------------------
The Code Cage Team's Profile:
http://www.thecodecage.com/forumz/member.php?userid=2
View this thread:
http://www.thecodecage.com/forumz/showthread.php?t=7117