=ПОИСКПОЗ(1;ПОИСК("*"&B3;$A$1:A3);)

    if ComboBox1.Text = Worksheets(2).Range("ADM") Then
        application.sendKeys "{esc}", 1
        doEvents
        UserForm1.Show
    endif

Option Explicit
Private Sub MoveUpButton_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox1.Text = "Произведен двойной щелчок"
    Cancel = False
    Call MoveUpButton_Click
End Sub
Private Sub MoveDownButton_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Cancel = False
    Call MoveDownButton_Click
End Sub

Private Sub MoveUpButton_Click()
    ShiftItem ListBox1, True
End Sub
Private Sub MoveDownButton_Click()
    ShiftItem ListBox1, False
End Sub

Private Sub ShiftItem(ByRef lb As MSForms.Control, bUp As Boolean)
    Dim i%, j%, l()
    With lb
        i = .ListIndex
        If i + bUp >= 0 And i + bUp < lb.ListCount - 1 Then
            l = .List
            For j = 0 To UBound(l, 2)
                swap l(i, j), l(i + (1 Or bUp), j):
            Next
            .List = l
        End If        
    End With
End Sub
Private Sub swap(ByRef a, ByRef b)
    Dim c: c = a: a = b: b = c
End Sub

Private Sub UserForm_Initialize()
    With ListBox1
        .List = [transpose(proper(text(row(r1:r12)*30,"[$-419]mmmm")))]
        .ListIndex = 0
    End With
End Sub

Private Sub OKButton_Click()
    Unload Me
End Sub

Sub ShowDialog()
    UserForm1.Show
End Sub

With .CmbDD1
.List = [transpose(text(row(r1:r31),"dd"))] 'Заполнение данными дата CmbDD1
.ListIndex = Day(Date) - 1 'Вывод текущей даты в поле просмотра
.additem"",0
End With

=СУММПРОИЗВ((МУМНОЖ(--(Лист1!$B$2:$C$26=$A2:$B2);{1:1})=2)*(ГПР(Ч(ИНДЕКС(+Лист1!$E$2:$E$26;));Лист2!$B$1:$E$1;1)=C$1)*Лист1!$D$2:$D$26)

[[дата]:[дата]]

=СУММПРОИЗВ((Таблица17[@[Фамилия]:[Фамилия]]=Таблица18[[Фамилия]:[Фамилия]])*(Таблица17[[#Заголовки];[2018 ноябрь]]=Таблица18[[дата]:[дата]])*Таблица18[[сумма, руб]:[сумма, руб]])