Последовательное заполнение таблицы Excell

[man_of_virtue]

Доброго всем времени суток! Надеюсь, что не сильно озадачу достопочтеннейших обитателей форума, если попрошу подсказать мне - как возможно обеспечить последовательное заполнение строк (и столбцов) таблицы Excell при вводе данных через соответствующие TextBox_ы, размещенные на форме, по нажатию CommB? Сразу выражаю благодарность всем кто откликнется.

[IgorGO]

сюда посмотрите: http://programmersforum.ru/showthread.php?t=165671

[man_of_virtue]

Спасибо, что откликнулись и дали ссылку.... Но ИМХО Вы немного меня не поняли. Форма есть. Готова. Оформлена. Как вносить данные из текстбоксов в Cell, Range я знаю (и с этим проблем нет), но дело вот в чем: пользователь набирает в три текстбокса данные (первый ТБ - город_1, второй ТБ - город_2, третий - цена билета). Далее эти данные заносятся в сроки таблицы: "от ст. " & текстбокс_1 & " до ст." & текстбокс_2 'это одна строка одного столбца; Текстбокс_3 (цена билета) - та же строка, но другой столбец. Но пользователь может совершить несколько переездов. Для этого я "приладил" к форме коммандбаттон "Добавить маршрут", при нажатии которой данные из текстбоксов_1_2_3 очищаются (но остаются в таблице (это тоже не проблема)), система переходит в исходное состояние. После того как пользователь вновь введет следующий маршрут и опять кликнет коммандбаттон - данные вносятся сточкой ниже и т.д. Так вот эти последующие "клики-маршруты-записи_строчкой ниже" я и не могу обработать...
Извините за пространные объяснения. Заранее жму руку помощи.

[JuniorProger]

Брось код и на нем скажи где и чего не получается, что и куда должно переноситься.
P.S. Может, конечно, только я не понимаю, но хотелось бы посмотреть

[JuniorProger]

"...Для этого я "приладил" к форме коммандбаттон "Добавить маршрут", при нажатии которой данные из текстбоксов_1_2_3 очищаются (но остаются в таблице (это тоже не проблема)), система переходит в исходное состояние.После того как пользователь вновь введет следующий маршрут и опять кликнет коммандбаттон - данные вносятся сточкой ниже и т.д. Так вот эти последующие "клики-маршруты-записи_строчкой ниже" я и не могу обработать... "

Появилась мысль: может система и не переходит в исходное состояние

[man_of_virtue]

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

Брось код и на нем скажи где и чего не получается, что и куда должно переноситься.
P.S. Может, конечно, только я не понимаю, но хотелось бы посмотреть

В том-то и дело, что кода нет... с собой нет. Остался на работе. Теперь только в понедельник. Сброшу всю задумку (читай проект) целиком, только чур не смеяться на примитивностью кода (весь мой стаж в VBA) часов 40...

[Hugo121]

Вообще-то такие вопросы без файла-примера не решаются. Потому что ответов может быть много - и в зависимости от ситуации ответы разные.
Можно использовать
iLastRow = Cells(Rows.Count, n).End(xlUp).Row
можно увеличивать переменную на каждом заполнении, можно тупо определять Max нумерации заполненных строк и ориентироваться по этому значению, можно завести public переменную, где хранить информацию по количеству заполненных строк.
Но обычно хватает Cells(Rows.Count, n).End(xlUp).Row - где n - это номер анализируемого столбца.
Ну или как в примере по ссылке выше:
.Cells(5, 1).End(xlDown).Row

[man_of_virtue]

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

Вообще-то такие вопросы без файла-примера не решаются. Потому что ответов может быть много - и в зависимости от ситуации ответы разные.
Можно использовать
iLastRow = Cells(Rows.Count, n).End(xlUp).Row
можно увеличивать переменную на каждом заполнении, можно тупо определять Max нумерации заполненных строк и ориентироваться по этому значению, можно завести public переменную, где хранить информацию по количеству заполненных строк.
Но обычно хватает Cells(Rows.Count, n).End(xlUp).Row - где n - это номер анализируемого столбца.
Ну или как в примере по ссылке выше:
.Cells(5, 1).End(xlDown).Row

Да! Вы правы! Пример будет в понедельник. Обещаю! (звучит торжественно, Вы не находите?). ...может я слишком "накрутил" в своих объяснениях, но все, что я хочу понять, это - как заставить код изменить значение (координаты, положение) заполненной строки на +1, что бы вписать туда еще один блок данных (знаю, что это не сложно, но все мои тырканья не привели к боле-менее нужному результату).
Ув. форумчане, спасибо Вам за живые отклики на мою проблему, но как справедливо заметил комрад Hugo - без примера туго. В понедельник не примините: зайдите, гляньте - будет пример.

[JuniorProger]

А таблица каким компонентом представлена?

[Hugo121]

Ещё вариант:
сперва, в самом начале:
Set r = [a1]
затем, после занесения в r данных:
Set r = r.Offset(1)
ну и можно провериться:
r.Select