Поиск при изменении optionbutton

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

Поиск при изменении optionbutton (Макросы/Sub)

AVI

Дата: Вторник, 17.07.2018, 11:42 | Сообщение № 1

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

Ранг: Ветеран

Сообщений: 523

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

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

Excel 2016

Добрый день!
Еще вопрос
Каким-то чудом на главной форме, на странице "Выдать со склада" у меня получилось при выборе медикамента отобразить количество на складе (Таблица "Медикаменты"). Но никак не получается заставить форму отобразить количество медикаментов в дневном стационаре из таблицы "Стационар_tb", если меняется галка.
То есть при смене галки со "склад" на "дневной стационар" в окошке "Остаток на складе" значение должно меняться и наоборот.
Я пытался через else сделать, но оно почему-то не работает…

Я делаю так потому как мне относительно понятно что из чего получается.

Может есть как-то более удобный способ учитывать два условия при поиске.

AVI

К сообщению приложен файл: 1178557.xlsb (96.1 Kb)

Ответить

СообщениеДобрый день!
Еще вопрос
Каким-то чудом на главной форме, на странице "Выдать со склада" у меня получилось при выборе медикамента отобразить количество на складе (Таблица "Медикаменты"). Но никак не получается заставить форму отобразить количество медикаментов в дневном стационаре из таблицы "Стационар_tb", если меняется галка.
То есть при смене галки со "склад" на "дневной стационар" в окошке "Остаток на складе" значение должно меняться и наоборот.
Я пытался через else сделать, но оно почему-то не работает…

Я делаю так потому как мне относительно понятно что из чего получается.

Может есть как-то более удобный способ учитывать два условия при поиске.

Автор - AVI
Дата добавления - 17.07.2018 в 11:42

sboy

Дата: Вторник, 17.07.2018, 12:32 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2566

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

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

Excel 2010

Добрый день в таблице "Стационар_tb" у вас ссылки, поэтому в метод Find надо добавить параметр LookIn:=xlValues
и Cell это у Вас одна ячейка, надо тут поменять
[vba]

Код

UF_Main.txb_RestStock.Value = Cell.Offset(0, 12)

[/vba]
весь код будет таким
[vba]

Код

Sub SearchCountStock() ' поиск количества медикаментов на складе

    Dim Cell As Range

        If UF_Main.cbx_MainNameMedic.Value = "" Then
            UF_Main.txb_RestStock.Value = ""
            UF_Main.txb_OperCount.Value = ""
            UF_Main.cbx_OperRecipient.Value = ""
            Exit Sub 'далее работа не нужна
        End If

        Set ShUF_Main = ThisWorkbook.Worksheets("Расчет")
        Set UF_MainListObj = IIf(UF_Main.opb_sklad.Value, ShUF_Main.ListObjects("Медикаменты"), ShUF_Main.ListObjects("Стационар_tb"))
        Set Cell = UF_MainListObj.ListColumns.Item(1).Range.Find(UF_Main.cbx_MainNameMedic.Value, LookIn:=xlValues, LookAt:=xlWhole)
        If Not Cell Is Nothing Then
            UF_Main.txb_RestStock.Value = Cell.Offset(0, 12)
        End If
End Sub

[/vba]