Selecting a range

  • Thread starter Thread starter Suh Suk Ho
  • Start date Start date
S

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
 
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
Click to expand...
ActiveCell.Offset(0, 1) & ":" &
 
Back
Top