Подправьте макрос. Просьба

[kzld]

Условие во вложенном файле

[EducatedFool]

Попробуйте такой вариант:

Sub НовыеБланки()
    Application.ScreenUpdating = False: Dim sh As Worksheet
    On Error Resume Next ' на случай, если встретятся 2 одинаковые даты
    ' ошибка вылетала как раз из-за того, что в книге не может быть
    ' двух листов с одинаковыми именами

    For i = 2 To Sheets("Данные").Cells(Rows.Count, 8).End(xlUp).Row
        ' Sheets("Данные").Cells(i, 1) = "x"
        Sheets("Бланк").Copy After:=Sheets("Бланк")
        Set sh = ActiveSheet    ' вновь созданный лист
        sh.UsedRange.Value = sh.UsedRange.Value    ' заменяем все формулы значениями

        sh.Name = Sheets("Данные").Cells(i, 7): sh.Tab.Color = vbGreen
        ' Sheets("Данные").Cells(i, 1).Value = ""
        
        sh.Range("t20") = Sheets("Данные").Cells(i, 2) ' копируем номер счёта
        sh.Range("CH20") = Sheets("Данные").Cells(i, 3) ' копируем номер акта
        ' и т.д.
    Next i

    Sheets("Данные").Activate: Application.ScreenUpdating = True
End Sub

Sub УдалитьБланки()
    Application.ScreenUpdating = False
    Dim sh As Worksheet: Application.DisplayAlerts = False
    For Each sh In ThisWorkbook.Worksheets
        If sh.Tab.Color = vbGreen Then sh.Delete
    Next sh
    Application.DisplayAlerts = True
End Sub

Почему в оригинальном файле (из которого я выдернул" макрос) два именованных диапазона и ссылаются оба диапазона
на одинаковую область. Нет ли здесь ошибки

Эти именованные диапазоны не имеют никакого отношения к макросу.

[kzld]

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

Попробуйте такой вариант:
вырезано

Очень похоже. Но почему то не меняется номер приходного кассового ордера, а также даты и суммы


Эти именованные диапазоны не имеют никакого отношения к макросу.

т.е. их можно удалить?

[kzld]

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

Попробуйте такой вариант:

А во втором варианте
Sample__04-08-2009__18-48-27.xls
кроме номера счёта и номера акта ничего не меняется.
В ячейках написано "Н\Д"

И можно ли избавиться от функции ВПР и соответственно от символа (значения) Х в первом столбце

[EducatedFool]

А во втором варианте
Sample__04-08-2009__18-48-27.xls
кроме номера счёта и номера акта ничего не меняется.
В ячейках написано "Н\Д"

А Вы не пытались повнимательнее изучить код?

 
        sh.Range("t20") = Sheets("Данные").Cells(i, 2) ' копируем номер счёта
        sh.Range("CH20") = Sheets("Данные").Cells(i, 3) ' копируем номер акта
        ' и т.д.
    Next i

Что, по-Вашему, означает выделенная красным строчка?

И можно ли избавиться от функции ВПР и соответственно от символа (значения) Х в первом столбце

Конечно, можно.
Попробуйте реализовать это самостоятельно.

[kzld]

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

А Вы не пытались повнимательнее изучить код?
Да, я начал разбираться.

Что, по-Вашему, означает выделенная красным строчка?

Конечно, можно.
Попробуйте реализовать это самостоятельно.

Добавляю строчки типа
sh.Range("Z20") = Sheets("Данные).Cells(i, 7) ' копируем дату
Начало получаться.
Споткнулся на следующем
В ячейке V66 стоит формула СУММ
При создании бланков макросом, она не хочет суммировать
Как можно побороть эту бяку