Excel таблица

[Aleksandra]

Добрый день.
Нужна помощь в создании таблицы в Экселе.
Действо-свиноферма. Таблица-учёт передвижения свинок по корпусам.
Таблица:
1-ый столбик - номер свинки. 2-ой - номер корпуса. Как автоматизировать таблицу, чтоб не искать в ручную свинку по номеру, а потом стирать и вводить номер корпуса по новой.
Есть желание сделать команду, чтоб нажав кнопочку и в табличке написав номер свинки и новый корпус - в списке он менялся бы автоматически (и желательно в трейтем столбце была бы дата изменения записи по этой свинке).
Примерно так.
Буду благодарна за совет. (В программировании - я чайник)

[Naeel Maqsudov]

А зачем вообще что-то стирать?
Раз это таблица *учёта передвижения*, то просто дописывайте в конце таблицы новую строчку: Дата | Свинка | Корпус
Вот и получится Учёт с большой буквы. По этим данным можно будет сказать не только кто где сейчас, но и кто где когда был!

[Aleksandra]

Дело в том, что потом надо отфильтровать по корпусам и распечатать отдельные списки (по тем же корпусам). Да и если срочно надо посмотреть где свинка в данный момент-будет не удобно искать, когда один и тот же номер будет повторяться несколько раз в столбце.

[karpov2713]

Распакуйте файл и нажмите на кнопку "Хрюша приехал!!!"

[Aleksandra]

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

[karpov2713]

Добрый день.
Исправил. Автоматически вставляется дата внесения изменений.

[Aleksandra]

Добрый день.
Исправил. Автоматически вставляется дата внесения изменений.

ОГРОМНОЕ СПАСИБО
Но выплыла ещё одна проблемка.
У нас номера корпусов: 1/1, 1/2, ..... 7/10/1, 7/10/2, 7/10/3 и т.д. В данный момент - если я ввожу такой номер - в таблице номер не отображается.

[karpov2713]

Предлагаю поступить, как в известном фильме "... огласите весь список пжалста..."
Может еще какие пожелания будут, пишите сразу?
По поводу корпусов: в каком формате надо сохранять данные?
Действительно есть корпус "7/10/3"? Можете написать какие есть варианты?

[Aleksandra]

Спасибо за помощь большое. Пожеланий больше нет. Всё ок. Только вот с корпусами не выходит внести.
Корпуса у нас: 0, 1/1, 1/2, 2/1, 2/2, 3/1, 3/2, 4/1, 4/2, 4/3,6/1, 6/2, 7/1, 7/2, 7/3, ....., 7/10/1, 7/10/2 (эти корпуса ещё пополам поделили, поэтому и номер такой), 8/1, 8/2, ... , 8/11, 8/12.

[Hugo121]

Нужно всего лишь убрать CLng() у номера фермы:

Код: Выделить всё

Cells(i, 2) = NomerFermy

И вручную (или в коде) задать текстовый формат этому столбцу (иначе будет дата )
А вообще, раз известны все фермы, то можно и выбор из списка сделать - не будет ошибок.
И вообще - делать как ранее сказали - пишем все передвижения. Ну а для распечатки делаем свою процедуру, отбирающую только последние адреса.