Форма ввода данных в таблицу

[Скрипт]

and150382, для начала сделайте следующее:
дайте элементам управления, из которых берутся данные на лист Excel, одно и то же имя и порядковые номера в соответствии с тем, как расположены данные на листе Excel:
myColumn2, myColumn3 и так до myColumn17.

Частицу "my" я добавляю, чтобы имя элемента управления не совпало с каким-нибудь уже зарезервированным словом.

Протестируйте код, чтобы он работал, и выложите снова на Форуме.

[and150382]

Хорошо, сейчас попробую

[and150382]

Ничего не изменилось. Также при добавлении данных в существующую строку, затирает предыдущие данные

[Скрипт]

and150382, ничего и не должно было измениться. Я попросил вас изменить имена элементов управления, чтобы внести изменения в код.

Сейчас попробую внести изменения в ваш код.

[Скрипт]

and150382, измените в коде, чтобы порядковые номера столбцов листа Excel и элементов управления совпадали:

                    .Cells(iFoundRng.Row, 2) = Me.myColumn2
                    .Cells(iFoundRng.Row, 3) = Me.myColumn3
                    .Cells(iFoundRng.Row, 4) = Me.myColumn4
                    .Cells(iFoundRng.Row, 5) = Me.myColumn5
                    .Cells(iFoundRng.Row, 6) = Me.myColumn6
                    .Cells(iFoundRng.Row, 7) = Me.myColumn7
                    .Cells(iFoundRng.Row, 14) = Me.myColumn8
                    .Cells(iFoundRng.Row, 15) = Me.myColumn9
                    .Cells(iFoundRng.Row, 8) = Me.myColumn10
                    .Cells(iFoundRng.Row, 9) = Me.myColumn11
                    .Cells(iFoundRng.Row, 10) = Me.myColumn12
                    .Cells(iFoundRng.Row, 11) = Me.myColumn13
                    .Cells(iFoundRng.Row, 12) = Me.myColumn14
                    .Cells(iFoundRng.Row, 13) = Me.myColumn15
                    .Cells(iFoundRng.Row, 16) = Me.myColumn16
                    .Cells(iFoundRng.Row, 17) = Me.myColumn17

[and150382]

Теперь у меня форма не запускается.
Пишет

Sub Макрос1()
UserForm1.Show vbModeless
End Sub

Выделяет UserForm1.Show vbModeless

[and150382]

С формой разобрался. не поменял одно значение.

Всё осталось на своих местах. Так же затирает

[Скрипт]

and150382, я внёс изменения в код.

Код работает так:
если в элементе управления что-то есть, то данные заносятся на лист Excel. Если нет, то ничего не заносится.

Код я не тестировал и не запускал. Могут быть ошибки в коде.

[and150382]

Большое спасибо Скрипт!!!!

Я немного исправил, это мой косячок был.

Всё работает!

[and150382]

Может кому-то понадобится как пример