Приветствую специалисты! Прошу подсказать новичку как в ниже указанном макросе сделать, чтобы окно формы VBA открывалось после окончания работы диалогового окна (сейчас все открывается с точность до наоборот - сначала открывается форма и только потом диалоговое окно).
спасибо всем, кто откликнется.
Если важно, то форма вызывается отдельным макросом.
спасибо всем, кто откликнется.
Код |
---|
Private Sub ф_Добавить_Комментарий_Initialize() CommandButton1_Click End Sub Private Sub CommandButton1_Click() Dim komment flag = False komment = ф_Добавить_Комментарий.TextBox1.Text Unload ф_Добавить_Комментарий With Sheets("Ассортимент") Set selectRange = Application.InputBox("Выберите клиента", "Номер Позиции", Type:=8) '''''''''Речь про этот диалог n_1 = Cells(selectRange.Row, 1).Text ' номер менеджера n_2 = Cells(selectRange.Row, 2).Text ' номер клиента End With With Sheets("База клиентов") Set bk_act = .Cells.Find("Акты", , xlFormulas, xlWhole) ' ячейка с комментарием Set bk_n_1 = .Cells.Find("№1", , xlFormulas, xlWhole) ' ячейка с №1 Set bk_n_2 = .Cells.Find("№2", , xlFormulas, xlWhole) ' ячейка с №2 Set bk_find = bk_n_2.EntireColumn.Find(n_2, LookIn:=xlValues) If Not bk_find Is Nothing Then firstAddress = bk_find.Address Do If .Cells(bk_find.Row, bk_n_1.Column).Text = n_1 Then flag = True .Cells(bk_find.Row, bk_act.Column).Value = .Cells(bk_find.Row, bk_act.Column).Text + " " + komment If OptionButton2 = True Then .Cells(bk_find.Row, bk_act.Column).Interior.Color = RGB(255, 0, 0) End If MsgBox "Комментарий добавлен!" Else Set bk_find = bk_n_2.EntireColumn.FindNext(bk_find) End If Loop While Not bk_find Is Nothing And bk_find.Address <> firstAddress And flag = False End If If flag = False Then MsgBox "Клиент не найден в базе клиентов или активен фильтр" End If End With End Sub |
Код |
---|
Sub Добавить_Комментарий() ф_Добавить_Комментарий.Show vbModeless End Sub |