Selecting a range

[Suh Suk Ho]

Dear Colleagues;


I'm trying to find a value in a named range and, if the value I'm looking
for is found, then copy values in 4 cells right next to the cell and paste
it to a different location. As below;



For Each cell In Sheets("Specifications").Range("ModelName")

If cell.Value = frmModelSelect.lboxRight.List(i) Then
ActiveCell.Offset(0, 5) & "").Select

Selection.Copy

Sheets("Quotation").Range("A" & Cell_A25 & "").Select
ActiveSheet.Paste
Application.CutCopyMode = False

End If

Next

I thought the above Select method will do the work but it doesn't. How
should I do it? As you can see, I'm trying to select 4 cells in row right
next to the active cell. Please help!

Suh, Suk Ho

 

[Ecco]

Try without offset:

Sheets("Specifications").Range(cells
(cell.row,cell.column+1),cells
(cell.row,cell.column+5)).Select

-----Original Message-----
Dear Colleagues;


I'm trying to find a value in a named range and, if the value I'm looking
for is found, then copy values in 4 cells right next to the cell and paste
it to a different location. As below;



For Each cell In Sheets("Specifications").Range ("ModelName")

If cell.Value = frmModelSelect.lboxRight.List(i) Then

ActiveCell.Offset(0, 1) & ":" &

 

[Suh Suk Ho]

Dear Ecco;

I tried but it still doesn't work.

Thank you.

Anyone?

 

[Dave Peterson]

How about:

cell.offset(0,1).resize(1,4).copy

instead of the .select and the .copy lines.