Я новичок в этом деле, но уже создал свою программу (правда с вашей помощью) , понимаю что в нем есть много недостатков, но рад был бы услышать ваши советы,и исправление...
по моему не хватает проверки на заполнение основных полей. Например к-во, если не указано то зачем вписывать в список. JayBhagavan у меня данная ошибка не наблюдалась. Или я не все ваши действия повторил.
То что указал я - не влияет на функциональность, только на красоту. Даже может с find будет чуть дольше работать при таких условиях. Но вот проверки на ввод неверных данных нужно добавлять. И на то, что ничего не введено.
If ComboBox2.Value = "9,5" Then b = 5
If ComboBox2.Value = "10,5" Then b = 6
If ComboBox2.Value = "TH-1" Then b = 7
If ComboBox2.Value = "TH-2" Then b = 8
If ComboBox2.Value = "TH-3" Then b = 9
If ComboBox2.Value = "TH-4" Then b = 10
If ComboBox2.Value = "TH-5" Then b = 11
If ComboBox2.Value = "TM-1" Then b = 12
If ComboBox2.Value = "TM-2" Then b = 13
If ComboBox2.Value = "TM-3" Then b = 14
If ComboBox2.Value = "TM-6" Then b = 15
If ComboBox2.Value = "X-10" Then b = 16
If ComboBox2.Value = "X-12" Then b = 17
If ComboBox2.Value = "X-19" Then b = 18
If ComboBox2.Value = "KERIK" Then b = 19
все это заменяется одной строчкой
b = Range("E3:S3").Find(ComboBox2.Value).Column
Select Case ComboBox2.Value
Case "9,5": b = 5
Case "10,5": b = 6
Case "TH-1": b = 7
Case "TH-2": b = 8
Case "TH-3": b = 9
Case "TH-4": b = 10
Case "TH-5": b = 11
Case "TM-1": b = 12
Case "TM-2": b = 13
Case "TM-3": b = 14
Case "TM-6": b = 15
Case "X-10": b = 16
Case "X-12": b = 17
Case "X-19": b = 18
Case "KERIK": b = 19
End Select
+ желательно явно указывать принадлежность контрола
badamyangor, подсветка, имхо, - лишнее. Она, как бы сказать, медленная, не успевает перерисовываться, если в разные места быстро мышью курсор передвигать.
Формула массива (ФМ) вводится Ctrl+Shift+Enter Memento mori
badamyangor, да, для начинающего у Вас всё замечательно получилось и без подсветки, Вы прикладывали усилия и достигли результата. Желаю Вам успешного развития - не останавливаться на достигнутом. Успеха.
Формула массива (ФМ) вводится Ctrl+Shift+Enter Memento mori
Ребят еще один вопрос, бывает что например один покупатель в один день покупает 2 или 3 товара, как делать так чтобы все эти трое приписивались в 5 строке. Может с If получиться, тоесть если дата, номер и покупатель не меняються то прописать в том же строке...
Искать дату, покупателя и номер (?), если они уже есть, то в ту же строку под соответствующим товаром приплюсовать кол-во. Это теория. Как на практике я не знаю.
Формула массива (ФМ) вводится Ctrl+Shift+Enter Memento mori
Для выполнение задачи необходимо: 1. правильно организовать структуру хранения данных. 2. Продумать бизнес логику выполнения тех или иных задач. 3. Только потом уже приниматься за написание кода. К сожалению с первым у Вас все плохо.