Доброго времени суток, уважаемые форумчане.
Прошу помощи в прописании дополнительных условий при запуске макросов.
Есть 2 кнопки - Записать и Создать заказ
Кнопка Записать добавляет новые расчеты по клиентах - нужно добавить условие - проверять есть ли копируемое значение (название клиента) в диапазоне А7 : А20 , если есть - работает по стандарту, если нет : 1) выдает сообщение - Создайте заказ и больше ничего не добавляет. Например, если добавить еще один расчет по клиенту Сергей - тогда должно выдать сообщение - Создайте заказ, а если снова Андрей - тогда добавлять.
Кнопка Создать заказ - копирует все расчеты по клиенту в лист Заказ. Нужно добавить условие - если заказ уже создан - выдавать сообщение - Заказ уже создан, создать новый - Да - Нет, если да-"затирает" уже созданный заказ, если нет - ничего не делает
Коды кнопок и примеры добавляю.
Кнопка Записать:
Sub Кнопка1_Щелчок()
'
' Кнопка1_Щелчок Макрос
'
'
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 Кнопка2_Щелчок()
'
' Кнопка2_Щелчок Макрос
'
'
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
Прошу помощи в прописании дополнительных условий при запуске макросов.
Есть 2 кнопки - Записать и Создать заказ
Кнопка Записать добавляет новые расчеты по клиентах - нужно добавить условие - проверять есть ли копируемое значение (название клиента) в диапазоне А7 : А20 , если есть - работает по стандарту, если нет : 1) выдает сообщение - Создайте заказ и больше ничего не добавляет. Например, если добавить еще один расчет по клиенту Сергей - тогда должно выдать сообщение - Создайте заказ, а если снова Андрей - тогда добавлять.
Кнопка Создать заказ - копирует все расчеты по клиенту в лист Заказ. Нужно добавить условие - если заказ уже создан - выдавать сообщение - Заказ уже создан, создать новый - Да - Нет, если да-"затирает" уже созданный заказ, если нет - ничего не делает
Коды кнопок и примеры добавляю.
Кнопка Записать:
Sub Кнопка1_Щелчок()
'
' Кнопка1_Щелчок Макрос
'
'
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 Кнопка2_Щелчок()
'
' Кнопка2_Щелчок Макрос
'
'
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