Hey Joel,

It's not working. It is copying all the tests with the to cell("B9") not
just the last 4.
also, maybe I should have told you this before (I didn't think it made a
difference, sorry). I am starting the copy from row 27 on sheets("test
database") and starting the paste from row 9 on sheets("Last 4").

Can we do anything different? Eric


"Joel" wrote:


Sheets("Tests Database").Columns("B:B").AutoFilter
Sheets("Tests Database").Columns("B:B").AutoFilter Field:=1, _
Criteria1:=Sheets("main menu").Range("B9")

Sheets("Tests Database").Rows.SpecialCells(xlCellTypeVisible).Co py
Sheets("Last 4").Rows(1).PasteSpecial
"Eric" wrote:

Helo all,

On sheets("Test Database") I have 2,000 tests spanning from column A to AD.
these tests are of different mix types. In Column B is the mix type.

On sheets("main menu") in cell ("B9") I have a mix number 4064 which is
choosen from a drop down box consisting of 28 different number (4052-4079).

What I need to do is when sheets("main menu") range("B9") has a number I
need the last 4 tests from sheets("Tests Database") that match sheets("main
menu") range("B9") to copy all the rows (A-AD) over to another sheet called
sheet("Last 4").

ie:
sheets("main menu").Range("B9")=4064

sheets("test database") looks like this:
A B C D.......
4064
4064~~~ This row would post on to sheets("Last 4")
4052
4052
4064~~~ This row would post on to sheets("Last 4")
4052
4064~~~ This row would post on to sheets("Last 4")
4064~~~ This row would post on to sheets("last 4")

Column "A" is the date the test was run......

Does this make any sense? Any help would be appreciated.......Eric