Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.11.2013, 10:26   #1
bagdad1984
Новичок
Джуниор
 
Регистрация: 05.11.2013
Сообщений: 2
По умолчанию VBA: Ввод данных и окно уведомления

Уважаемые профи своего дела!

Начал делать форму для своего отдела, остановился на таких моментах, которые никак не могу осилить:

1. на листе INT.TR.LOG FORM есть два блока, каждый по отдельности должны вноситься в список на странице INT.TR.LOG на определенных этапах, то есть второй блок - это последовательное продолжение первого, у меня получается каждый блок попадает в разные ряды, то есть второй блок ниже первого.

2. на том же лисет INT.TR.LOG FORM при нажатии кнопки "внести данные" при незаполненных полях на лист с таблицей попадает пустой ряд, надо чтоб при нажатии на кнопку "внести данные" при пустых полях появилось уведомление о том, что какое то поле не заполнено.

Спасибо заранее за любую помощь.
Вложения
Тип файла: rar TRANLSATIONS LOG.rar (45.5 Кб, 13 просмотров)
bagdad1984 вне форума Ответить с цитированием
Старый 05.11.2013, 11:15   #2
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

по п.1
в
ENTERDATA1_Click
заменитете
Sheets("INT.TR.LOG").Cells(Row, 2).Value = Row - 2
на
Row = Row -1

по п.2.
перепоручите эту задачу кому-нибудь в отделе, кто хоть что-то слышал о программировании на ВБА. извините
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Последний раз редактировалось IgorGO; 05.11.2013 в 14:22.
IgorGO вне форума Ответить с цитированием
Старый 05.11.2013, 16:17   #3
bagdad1984
Новичок
Джуниор
 
Регистрация: 05.11.2013
Сообщений: 2
По умолчанию

Спасибо за ответ. Но проблему еще присутствиует, пример:

По первому блоку внесли данные скажем в 10 линий, теперь надо при вводе данные во второй блок, они попадали в те линии, которые отражены в ячейке "РЕГ.НОМЕР ДОКУМЕНТА", а не в самый низ, как получается в этом случае.
bagdad1984 вне форума Ответить с цитированием
Старый 05.11.2013, 16:37   #4
Watcher_1
Форумчанин
 
Аватар для Watcher_1
 
Регистрация: 22.06.2011
Сообщений: 325
По умолчанию

Вместо
Код:
    Row = 3
    Do While Sheets("INT.TR.LOG").Cells(Row, 2).Value <> 0
        Row = Row + 1
    Loop
Записать это
Код:
Set myF = Sheets("INT.TR.LOG").Columns(4).Find([M13].Value, , , xlWhole)
Row = myF.Row
Заказать макрос можно на сайте http://excel4you.ru/
Watcher_1 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как развернуть окно в Internet Explorer средствами VBA? Скрипт Microsoft Office Excel 4 12.09.2013 00:15
Как сделать ввод в окно Едит и вывод в лейбл? (простая прога на Delphi) Игрушка96 Помощь студентам 9 28.03.2012 09:52
Ввод данных VBA Бурундук Помощь студентам 0 04.06.2011 13:04
Подключение к сайту, ввод данных, отправка данных. Hichigo Общие вопросы C/C++ 0 20.07.2010 20:24