как перенести опред. строки с одного листа...

[niydiyin]

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

нифига не понял.
пример сложно было сделать?

простите, вроде прикреплял.

[niydiyin]

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

Зачем первой строкой макроса затирать ВСЁ содержимое листа2 ???
Вручную пропишите формулы и всё такое, а Лист2.UsedRange.Clear уберите, - и макрос будет заполнять на втором листе только 11-ю строку

не знаю, я просто такой скрипт увидел и модифицировал его, а там было вот это затирание. я честно говоря не знаю, зачем и обновление экрана отключать

еще такой вопрос, iv1 - это просто столбец и строка, то есть правее iv формула работать не будет?

[niydiyin]

уважаемый, educatedfool, очень надеюсь на вашу помощь
в общем вот код

Sub forum()
Dim LastCol, diffCol, i, j As Integer, sum As Integer
    LastCol = Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column
    ActiveCell.Resize(1, LastCol - Selection.Column + 1).Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Range("c11").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
    sum = 0
    Sheets(Sheets.Count).Range("c10").Select
    For i = 3 To LastCol
    sum = i
    Sheets(Sheets.Count).Cells(10, i) = sum
    Next i
    Sheets(Sheets.Count).Range("c12").Select
    For j = 3 To LastCol
    Sheets(Sheets.Count).Cells(12, j).FormulaLocal = "=ЕСЛИ(ВПР($A12;Лист1!$A$1:$O$15;C$10;ЛОЖЬ)<>"";ВПР($A12;Лист1!$A$1:$O$15;C$10;ЛОЖЬ);ЛОЖЬ())"
    Next j
End Sub

я пример прикрепил.
что мне нужно: этот код постоянно создает новый лист, а мне надо чтобы он всю инофрмацию копировал на второй лист, где уже в клеточках будет какая-то информация.
а второй вопрос с формулой. я знаю только один способ вписывать формулу, как я написал выше. но проблема в том, что параметры в этой формуле должны меняться. во-первых диапазон поиска постоянно разный, во вторых меняется параметр поиска в зависимости от столбика. то есть та формула, которая у меня в коде это для столбика С, а в следующей ячейке должна быть для D:
=ЕСЛИ(ВПР($A12;Sheet1!$A$1:$CX$123; D$10;ЛОЖЬ)<>"";ВПР($A12;Sheet1!$A$1 :$CX$123;D$10;ЛОЖЬ);ЛОЖЬ())
то есть должен быть какой-то цикл, но как это реализовать не знаю.

подскажите, пожалуйста