Доброго времени суток, уважаемые форумчане.
Прошу помощи в прописании проверочных условий при запуске макросов.
Есть 2 кнопки - Записать и Создать заказ
Кнопка Записать добавляет новые расчеты по клиентах - нужно добавить условие - проверять есть ли копируемое значение (название клиента) в диапазоне А7 : А20 , если есть - работает по стандарту, если нет : 1) выдает сообщение - Создайте заказ и больше ничего не добавляет. Например, если добавить еще один расчет по клиенту Сергей - тогда должно выдать сообщение - Создайте заказ, а если снова Андрей - тогда добавлять.
Кнопка Создать заказ - копирует все расчеты по клиенту в лист Заказ. Нужно добавить условие - если заказ уже создан - выдавать сообщение - Заказ уже создан, создать новый - Да - Нет, если да-"затирает" уже созданный заказ, если нет - ничего не делает
Кнопка Записать:
Кнопка Создать заказ:
Прошу помощи в прописании проверочных условий при запуске макросов.
Есть 2 кнопки - Записать и Создать заказ
Кнопка Записать добавляет новые расчеты по клиентах - нужно добавить условие - проверять есть ли копируемое значение (название клиента) в диапазоне А7 : А20 , если есть - работает по стандарту, если нет : 1) выдает сообщение - Создайте заказ и больше ничего не добавляет. Например, если добавить еще один расчет по клиенту Сергей - тогда должно выдать сообщение - Создайте заказ, а если снова Андрей - тогда добавлять.
Кнопка Создать заказ - копирует все расчеты по клиенту в лист Заказ. Нужно добавить условие - если заказ уже создан - выдавать сообщение - Заказ уже создан, создать новый - Да - Нет, если да-"затирает" уже созданный заказ, если нет - ничего не делает
Кнопка Записать:
Код |
---|
Sub Записать() Range("B2:B6").Select Selection.Copy Sheets("форма").Select NextRow = Range("A65536").End(xlUp).Row + 1 Cells(NextRow, 1).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Range("B2:B6").Select Application.CutCopyMode = False Selection.ClearContents Range("B1").Select End Sub |
Код |
---|
Sub Сохранить_заказ() Range("A8").Select Selection.Copy Sheets("заказ").Select Range("C3").Select ActiveSheet.Paste Sheets("форма").Select Range("B8:E19").Select Application.CutCopyMode = False Selection.Copy Sheets("заказ").Select Range("C5").Select ActiveSheet.Paste Range("C5").Select Sheets("форма").Select Range("A8:E9").Select Application.CutCopyMode = False Selection.ClearContents Range("B1").Select End Sub |