Hi Guys, Wahat i want to do is find a value in a cell in col d, go back to col A, find anoher value in COL A and copy all the cells from them first value to the second one. eg if the first vale is found in d3 then look in col A for the second on, then copy all row from A3 dow to the cell that contains the second value.
the code i have to find the first value is
Columns("d:d").Select
Selection.Find(What:=Sheet3.Range("t13").Value, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlUp, _
MatchCase:=False).Activate
ActiveCell.Offset(0, -3).Select
once the first value is found select the same row but in col A. look down the next 30 rows until you find the second value, i thought this might work,
Range(ActiveCell, ActiveCell.Offset(30, 0)).Select
Selection.Find(What:=Sheet3.Range("t14").Value, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlDown, _
MatchCase:=False).Select
but i cant select all rows in between.
Many thanks for any help you can give...
the code i have to find the first value is
Columns("d:d").Select
Selection.Find(What:=Sheet3.Range("t13").Value, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlUp, _
MatchCase:=False).Activate
ActiveCell.Offset(0, -3).Select
once the first value is found select the same row but in col A. look down the next 30 rows until you find the second value, i thought this might work,
Range(ActiveCell, ActiveCell.Offset(30, 0)).Select
Selection.Find(What:=Sheet3.Range("t14").Value, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlDown, _
MatchCase:=False).Select
but i cant select all rows in between.
Many thanks for any help you can give...