Скопировать строку, содержащую активную ячейку.

[Pavel55]

1) Пожалуйста, когда выкладываете свой код на форуме, берите его в теги [.code] ВАШ КОД [./code] (только без точек внутри квадратных скобок). Тогда ваш код будет более читабельным для других людей.
2) А зачем вы второй раз выделяете лист Price RSI?
т.е Вы сперва выделяете этот лист, ищите слово "принтеры", а потом ещё раз его же выделяете?
3) а зачем вы ищите пустое место на этом же листе? я имею ввиду код Cells.Find(What:="", .....

[pashulka]

Iren, А вот, собственно говоря, и почти весь код, надеюсь не нужно говорить, что рабочие книги с указанными именами должны быть открыты, в них должны наличествовать рабочие листы с указанными именами, а столбец, 'смещение' и т.п. каждый желающий может указать свои.

With Workbooks("PriceRSI.xls").Worksheets("Price RSI")
     Dim iCell As Range
     Set iCell = .Columns("F").Find(What:="принтеры", LookIn:=xlValues, LookAt:=xlPart)
     If Not iCell Is Nothing Then
        .Range(iCell(2, 6), iCell(2, 6).End(xlDown)).EntireRow.Copy _
         Destination:=Workbooks("Прайс_СТ.xls").Worksheets("Принтеры").Rows(2)
     End If
End With

[Iren]

Сообщение от Pavel55

1) Пожалуйста, когда выкладываете свой код на форуме, берите его в теги [.code] ВАШ КОД [./code] (только без точек внутри квадратных скобок). Тогда ваш код будет более читабельным для других людей.
2) А зачем вы второй раз выделяете лист Price RSI?
т.е Вы сперва выделяете этот лист, ищите слово "принтеры", а потом ещё раз его же выделяете?
3) а зачем вы ищите пустое место на этом же листе? я имею ввиду код Cells.Find(What:="", .....

1.исправила
2. непоняла вопрос. т.е вместо Sheets("Price RSI").Select надо было сделат Sheets("Price RSI").Activate ?
3. пустой ячейкой разграничиваются группы. т.е после принтеров идет другая группа, а мне надо только одну группу скопировать. в общем так надо.

[Pavel55]

Я имел ввиду, что надо по возможности вообще отказываться от методов Select и Activate в своём коде и стараться делать это, как делает Pashulka в своём коде (см. выше).

[Iren]

Сообщение от Pavel55

Я имел ввиду, что надо по возможности вообще отказываться от методов Select и Activate в своём коде и стараться делать это, как делает Pashulka в своём коде (см. выше).

Я понимаю что громоздкие и некорректные коды не должны быть......но миль прадон.. макросами я занимаюсь всего неделю, и вообще с трудом понимаю какпие команды где используются... я вообще бухгалтер
поэтому мне надо чтобы хотябы работало... а уж качество неважно....
спасибо за советы!!!!!!!!!