Вставка данных после последней заполненной ячейки.

[IgorGO]

Леша,
там, видимо, опечатка (как и положено при таких обьемах копи-паста):
КудаВставить26.Value = TB_LV13.Value
КудаВставить27.Value = TB_LV13.Value

и результат:

Private Sub CB_LvSave1_Click()
  Dim NextRow As Long, i As Long
  With Worksheets("Локальная вибрация2")
    NextRow = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
    For i = 1 To 14
      .Cells(NextRow, i + 2).Value = Controls("TB_LV" & i).Value
      Controls("TB_LV" & i + 13).Value = " "
    Next
  End With
'UF_LV.Hide
End Sub

[Petrov210217]

Поясню понятнее. Я через форму ввода ввожу данные в таблицу. НО! перед таблицей и после нее есть текст с формулами. Нужно, чтобы данные записывались в таблицу, а не в конец листа и формулы под таблицей не менялись. Как я понимаю нужно создать строку в конце таблицы и в нее записать данные, создать еще строку в таблице и еще записать данные. Но мне не понятно как сохранить формулы ниже таблицы, так как величина таблицы меняется.

[Petrov210217]

Так может кто помочь с решением?

[IgorGO]

пока не известны условия задачи - помочь с решением может только опытный экстрасенс

[Petrov210217]

Так вроде понятно изложил и даже файл прикладывал и даже на русском языке написал....

[IgorGO]

если все понятно написано - о чем переживать, скоро кто-то ответит
ну... а не понятно - нужно-таки ждать когда подтянутся экстрасенсы, что-то понимающие в Excel
пока запасайтесь терпением

[Serge_Bliznykov]

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

Так вроде понятно изложил и даже файл прикладывал и даже на русском языке написал....

Вы не обижайтесь, но я, например, тоже не понял, что у Вас дано и что Вы хотите получить. Если Вас не понимают, то можно обидеться и уйти, а можно попытаться объяснить конкретно, что дано, что надо сделать и что не получается.

Да, файл Вы выложили. но там тоже ничего не понятно. (я не говорю про других. вот лично мне не понятно).

попробуйте ещё раз выложить два файла.
один файл. до того, как Вы вносите данные, второй, как должно получится.
Желательно объяснить, что не получается.
Потому как, если вставляются строчки в таблицу, то Excel сам изменяет формулы с учётом вставленных строк. Если это не происходит, покажите пример.

ну и последнее.

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

Я через форму ввода ввожу данные в таблицу.

я не увидел форму ввода в вашем файле.

[Petrov210217]

Добавляю файл с таблицей и пояснениями. Спасибо за совет!

[Serge_Bliznykov]

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

Добавляю файл с таблицей и пояснениями.

понятней не стало.

1) кнопка "Ввести данные" у Вас пустая, к ней макрос не назначен, она ничего не делает. Формы ввода нет.

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

Было:
excel_1.jpg

Стало:
Excel_2.jpg

[Petrov210217]

Не понимаю почему не сохранилась форма ввода. Я ее специально делал для примера и кнопка работала. Привожу код кнопки сохранения данных в таблицу:

' сохранить и добавить (форма ввода данных)
Private Sub CB_LVOF_Click()
Dim NextRow As Long
Dim КудаВставить1 As Range
Dim КудаВставить2 As Range
Dim КудаВставить3 As Range
Dim КудаВставить4 As Range
Dim КудаВставить5 As Range

NextRow = Worksheets("Лист2").Cells(Rows.Coun t, 2).End(xlUp).Row + 1
Set КудаВставить1 = Worksheets("Лист2").Range("C" & NextRow)
Set КудаВставить2 = Worksheets("Лист2").Range("D" & NextRow)
Set КудаВставить3 = Worksheets("Лист2").Range("E" & NextRow)
Set КудаВставить4 = Worksheets("Лист2").Range("G" & NextRow)
Set КудаВставить5 = Worksheets("Лист2").Range("H" & NextRow)

КудаВставить1.Value = TB_LV1.Value
КудаВставить2.Value = TB_LV2.Value
КудаВставить3.Value = TB_LV3.Value
КудаВставить4.Value = TB_LV4.Value
КудаВставить5.Value = TB_LV5.Value

'очистить форму от текста
TB_LV1.Value = " "
TB_LV2.Value = " "
TB_LV3.Value = " "
TB_LV4.Value = " "
TB_LV5.Value = " "

'закрыть окно
UF_LV.Hide
End Sub

Но этот код добавляет данные не в таблицу на лист 2 , а в другое место(на скрине видны цифры 1;2;3;4;5 в строке 2, эти цифры я добавил через форму ввода с этим кодом)