Добрый день! Помогите, пожалуйста, решить задачу в приложении Excel.
В закрепленном файле, возможно ли при нажатии на командную кнопку расположенную в Е3: (если ячейка В3 не является пустой): > создается новая вкладка (рабочий лист) скопированный по образцу вкладки с названием "образец". Название вновь созданного рабочего листа берется из ячейки В3 ("Заказ1") > в ячейке F3 = появляется цифра "1"
Если рабочий лист с названием из В3 уже создавался (кромандная кнопка в Е3 уже нажималась) - ничего не происходит. > у вновь созданного рабочего листа "Заказ1" в ячейке A1 = это название заказа для которого он был создан - В3 в закладке "Список заказов" > самое последнее, в закладке "Список заказов" при нажатии на командную кнопку в G3, осуществляется навигация по вкладкам. Нажав кнопку в G3 - переходишь в закладку соответствующую названию заказа из B3.
Заранее сильно благодарен, если есть возможность помочь с подобным вопросом!
Private Sub CommandButton1_Click()
NewOrder CommandButton1.TopLeftCell
End Sub
Private Sub CommandButton4_Click()
GotoOrderSheet CommandButton1.TopLeftCell
End Sub
Private Sub NewOrder(ByRef Caller As Range)
Set sh = ActiveSheet
Set Order = Caller.Offset(, -3)
If Order <> "" Then
If Evaluate("isref('" & Order & "'!A1)") = False Then
Application.ScreenUpdating = False
Order.Offset(, 4) = 1
Sheets("îáðàçåö").Copy After:=Sheets(Sheets.Count)
With ActiveSheet
.Name = Order
.Range("a1") = Order
End With
End If
End If
sh.Activate
Application.ScreenUpdating = True
End Sub
Private Sub GotoOrderSheet(ByRef Caller As Range)
Set Order = Caller.Offset(, -3)
If Order <> "" Then
If Evaluate("isref('" & Order & "'!A1)") Then
Sheets(Order.Value).Activate
End If
End If
End Sub