Решение / помощь, необходимая для ошибки несоответствия типов в пользовательской форме vba - PullRequest
0 голосов
/ 02 мая 2020

У меня есть этот код для запуска при нажатии опции в пользовательской форме:

Set wks = Sheets("Financial")

 If WorksheetFunction.CountA(Range("combolistname")) = 0 Then
        MsgBox "There are no names on the list.", vbOKonly, "No Name on List"
    Else

        wks.Range("combolistname").Select
        Selection.Copy
        wks.Range("T5").PasteSpecial xlPasteAll
        Application.CutCopyMode = False

        wks.Range("namelisttemp").Select
        Selection.Sort Key1:=Range("T5"), Header:=xNo
     End If

 'load names to combolist box

 CLName.List = Sheets("Financial").Range("namelisttemp").value

Командная кнопка для открытия пользовательской формы находится в листах («База данных»). Когда я нажимаю кнопку опции, я получаю ошибку «несоответствие типов» (ошибка 13). Выделено «set wks = sheet (« financial »). Я возиться с другими кодами (например, активировать финансовый лист перед запуском кодов), но безуспешно.

Любая помощь очень ценится.

Спасибо.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...