Данные не туда заносятся... - Microsoft Office Excel

panuta · 05.06.2010, 19:03

Уважаемые программисты, помогите разобраться...

Не могу понять, почему в моем примере при нажатии на кнопку "ОК" на userform3 данные на лист "Заказ клиента" заносятся не в первую пустую строчку, а в разноброс.... Вроде все правильно написано...

doober · 05.06.2010, 23:23

Код:

Private Sub CommandButton1_Click()
i = 3
While Cells(i, 1).Value <> ""
i = i + 1
Wend
i = 3
...........

aval · 05.06.2010, 23:32

Потому, что поиск пустой строки у Вас происходит не на листе "Заказ клиента", а на том листе откуда выбирается заказ. И если на листе выбора свеч первая пустая строка пятнадцатая, например, то и в "Заказе клиента" заполняется пятнадцатая...
Поставьте Worksheets("Заказ клиента").Select в начало кода и устраните несоответствие типов в 43-ей строке Worksheets("Заказ клиента").Cells(i, 7).Value = Val(Label10) - Cells(ComboBox2.ListIndex + 3, 4)

panuta · 06.06.2010, 05:19

Понятно! Спасибо! Буду исправлять!

05.06.2010, 23:23	#2
doober Старожил Регистрация: 02.05.2009 Сообщений: 3,907	Код: `Private Sub CommandButton1_Click() i = 3 While Cells(i, 1).Value <> "" i = i + 1 Wend i = 3 ...........` Анализ,обработка данных Недорого

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Не заносятся данные в Edit с первого раза	Shouldercannon	Общие вопросы Delphi	2	13.04.2010 21:07
Зацените кому не лень сайт и напишите что туда можна еще добавить	Антон112	Помощь студентам	8	27.03.2010 09:09
из Delphi Записать строку в Word полсе чего вставить туда картинку.	Maddy	Помощь студентам	4	29.01.2010 15:00
RichEdit. как можно вставлять картинку туда? как можно Скрол програмно вниз двигать?	Svop	Компоненты Delphi	7	28.11.2006 21:07

05.06.2010, 23:32	#3
aval Пользователь Регистрация: 08.06.2009 Сообщений: 68	Потому, что поиск пустой строки у Вас происходит не на листе "Заказ клиента", а на том листе откуда выбирается заказ. И если на листе выбора свеч первая пустая строка пятнадцатая, например, то и в "Заказе клиента" заполняется пятнадцатая... Поставьте Worksheets("Заказ клиента").Select в начало кода и устраните несоответствие типов в 43-ей строке Worksheets("Заказ клиента").Cells(i, 7).Value = Val(Label10) - Cells(ComboBox2.ListIndex + 3, 4)

06.06.2010, 05:19	#4
panuta Пользователь Регистрация: 13.05.2010 Сообщений: 39	Понятно! Спасибо! Буду исправлять!