Поиск значения в умной таблице

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Поиск значения в умной таблице - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Поиск значения в умной таблице (Макросы/Sub)

Поиск значения в умной таблице

Sashagor1982

Дата: Воскресенье, 03.10.2021, 11:59 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 287

Репутация: -6 ±

Замечаний: 0% ±

Excel 2007

Добрый день, подскажите в чем ошибка
[vba]

Код

Private Sub InputComboFP(ByVal objectConbo As Control, ByRef inputConbo As Control)
        Dim znachen As Range
        Dim element As Variant
        inputConbo.Clear

    If (ComboBox_Pol.Value = "мужской") Then
        Set znachen = ThisWorkbook.Worksheets("HelpList").ListObjects("tblFP").ListColumns(objectConbo.Value).DataBodyRange
    Else
        Set znachen = ThisWorkbook.Worksheets("HelpList").ListObjects("tblFPwomen").ListColumns(objectConbo.Value).DataBodyRange
    End If
End Sub

[/vba]
При значении ComboBox_Pol.Value = "женский" возникает ошибка Subscript out of range, хотя с мужским все работает корректно

К сообщению приложен файл: program.xlsm (94.5 Kb)

Сообщение отредактировал Sashagor1982 - Воскресенье, 03.10.2021, 12:04

Ответить

Pelena

Дата: Воскресенье, 03.10.2021, 13:36 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19401

Репутация: 4549 ±

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
У Вас в таблице tblFPwomen в шапке вместо обычных пробелов использованы неразрывные (символ с кодом 160). Перенаберите вручную № 2, № 41 и т.д. с обычным пробелом

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Поиск значения в умной таблице (Макросы/Sub)

Страница 1 из 1
1