Ссылка на предыдущий лист в Excel

[Sweety]

Всем привет. Нужна помощь.
В Excel на Листе1 данные, из них мне нужны только те строки, которые отвечают условию, их надо перенести на Лист2.

For i = 9 To List.UsedRange.Rows.Count
If InStr(List.Cells(i, 2).Value, "Город") > 0 Then

End If
Next

Копированием не получается, так как в этих строчках формулы, после копирования остаются одни нули.

Получается надо через ссылку на Лист1. Как это можно сделать?

Заранее огромное спасибо!

[gacol]

Воспользуйся спец.вставкой (только значения), например вставить скопированную строку на 3-ю в Лист2
Sheets("Лист2").Rows("3:3").PasteSpecial Paste:=xlValues

[uhm]

Метод PasteSpecial - это не просто вставка из буфера, а специальная вставка. Если использовать параметр Paste:=xlPasteValues, то вставляются как раз только значения чисел, а форматы не меняются. Так что при таком копировании все ОК.

[Sweety]

Огромное спасибо.
Через специальную вставку все получилось

Единственное что, формат ячеек не сохраняется

[uhm]

А для того, чтобы форматы сохранялись, нужно после того, как вставились значения, выполнить еще раз PasteSpecial, но на этот раз с параметром Paste:=xlPasteFormats, тогда с предыдущего листа скопируются форматы ячеек. Если нужен только формат чисел, можно один раз сделать PasteSpecial с параметром Paste:=xlPasteValuesAndNumberFormats.

[gacol]

Паша К. спасибо. Я стал пользоваться твоим методом.