Оставить существующее значение в ячейке с фомулой

[PetyaVova]

Существует итоговый файл в который ежемесячно копируется на новый лист
итоговая информация по контрагентам. На первом листе книги ведётся динамика изменений.
контрагенты прибавляются и отваливаются, соответственно
при копировании нового листа в итоговый файл они добавляются, но в динамике не участвуют.
в копируемом листе ячейка с ИНН контрагента выделена цветом.
С добавлением новых контрагентов общими усилиями разобрались.
И как присвоить ноль ячейке с отсутствующими данными.
Остался один вопрос, как оставить предыдущее значение (название фирмы) в ячейке если в
скопированном листе этой фирмы уже нет.
в ячейках со значениями, отсутствующим данным присваивается значение "0" и оно не мешает
проведению вычислений.

=ЕслиОшибка(.......;0)

но в одной ячейке надо оставить существующее значение "Название фирмы".
скорее всего проверить макросом отсутствие ИНН в новом файле и при копировании
заменить формулу отвечающую за подтягивание названия на статическое название.
"Лично я так думаю", но могут быть и другие мнения.
Файлик тот же.

[Aleksandr H.]

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

скорее всего проверить макросом отсутствие ИНН в новом файле и при копировании
заменить формулу отвечающую за подтягивание названия на статическое название.

скорее всего в начале кода прописать что-то типа

With sh1
        rCOunt = .Cells(.Rows.Count, 1).End(xlUp).Row
        Set myCell = .Range("A3:B" & rCOunt - 2)
        myCell.Value = myCell.Value
    End With

а формулу для поля "Фирма" генерировать в конце, после переноса новых значений ИНН. хинт:

Range("Addr_Here").FormulaR1C1 = "=Formula_Body"

[PetyaVova]

Сообщение от Aleksandr H.

а формулу для поля "Фирма" генерировать в конце, после переноса новых значений ИНН

Сообщение от Aleksandr H.

скорее всего в начале кода прописать что-то типа

With sh1
        rCOunt = .Cells(.Rows.Count, 1).End(xlUp).Row
        Set myCell = .Range("A3:B" & rCOunt - 2)
        myCell.Value = myCell.Value
    End With

а формулу для поля "Фирма" генерировать в конце, после переноса новых значений ИНН. хинт:

Range("Addr_Here").FormulaR1C1 = "=Formula_Body"

Как генерировать если в новом листе его уже нет?

[Aleksandr H.]

Чем не решение?

Sub AddNewINN()
    Dim sh As Worksheet
    Dim sh1 As Worksheet
    Dim rCOunt As Long
    Dim i
    Dim myColor
    Dim myCell
    Dim newCell
    Dim lastrow As Long

    Set sh = Sheets(2)
    Set sh1 = Sheets(1)
    With sh
        rCOunt = .Cells(.Rows.Count, 1).End(xlUp).Row
        myColor = sh.Range("D9").Interior.Color
        For i = 26 To rCOunt
            If .Cells(i, "D").Interior.Color = myColor Then
                Set myCell = sh1.Range("B:B").Find(.Cells(i, "D"))
                If myCell Is Nothing Then Set newCell = (.Cells(i, "D"))

                If newCell = (.Cells(i, "D")) Then
                    lastrow = sh1.Range("A65536").End(xlUp).Row - 1
                    sh1.Rows(lastrow - 1).Copy
                    sh1.Rows(lastrow).Insert xlDown, xlFormatFromLeftOrAbove
                    sh1.Range("B" & lastrow).Value = newCell.Value
                    sh1.Range("A" & lastrow).Value = newCell.Offset(-1, 0).Value
                    Application.CutCopyMode = 0
                End If
            End If
        Next i
    End With
    Set sh = Nothing
    Set sh1 = Nothing

End Sub

[PetyaVova]

Сообщение от Aleksandr H.

скорее всего в начале кода прописать что-то типа

With sh1
        rCOunt = .Cells(.Rows.Count, 1).End(xlUp).Row
        Set myCell = .Range("A3:B" & rCOunt - 2)
        myCell.Value = myCell.Value
    End With

а формулу для поля "Фирма" генерировать в конце, после переноса новых значений ИНН. хинт:

Range("Addr_Here").FormulaR1C1 = "=Formula_Body"

объясните пожалуйста это выражение, не могу понять что оно делает.
в скрипте ругается.
И во втором варианте что то не то, подтягивает вместо Фирмы значение из столбца "D"

[kuklp]

PetyaVova, можно не цитировать все подряд? Или считаете что Aleksandr H. не знает, что он написал ранее? Загадили всю тему бессмысленными цитатами.

[Aleksandr H.]

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

И во втором варианте что то не то, подтягивает вместо Фирмы значение из столбца "D"

sh1.Range("A" & lastrow).Value = newCell.Offset(0, -3).Value

[PetyaVova]

Извините, исправлюсь.

[PetyaVova]

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

[PetyaVova]

Я думаю сделать так.

    With sh1
    Dim oldCod
    Dim OldCell
        rCOunt = .Cells(.Rows.Count, 1).End(xlUp).Row
        For i = 3 To rCOunt
            'If .Cells(i, "A") Is Nothing Then
             OldCell = Cells(i, "A").Text
             If OldCell = "#Н/Д" Then
              Set oldCod = sh1.Range("B" & i)
              ' sh1.Range("A" & i).Text = sh3.Range("A:A").Find(sh1.Range("B" & i))
              Set OldCell = sh3.Range("A:A").Find(.Cells(i, "B"))
              End If
        Next i
    End With

только не получается вставить.
не подставляется значение из столбца А
подскажите ошибку?