ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Copy from one sheet paste to another (https://www.excelbanter.com/excel-programming/406434-copy-one-sheet-paste-another.html)

Eric

Copy from one sheet paste to another
 
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

joel

Copy from one sheet paste to another
 
Sheets("Test Database").Columns("B:B").AutoFilter
Sheets("Test Database").Cells.AutoFilter Field:=1, _
Criteria1:=Sheets("main menu").Range("B9")
Sheets("Test 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



All times are GMT +1. The time now is 05:06 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com