Private Sub ComboBox2101_Change() Dim Rng As Range, Nomer As String Me.TextBox2103 = "" Nomer = Me.ComboBox2101 With Sheets("ИБ_Выдача") Set Rng = .Columns(21).Find(what:=Nomer, LookIn:=xlValues, lookAt:=xlWhole) If Not Rng Is Nothing Then Me.TextBox2103 = Rng.Offset(0, -1) End With End Sub
[/vba] Но у меня этот 21 столбец скрыт на листе. В результате этого, моя форма корректно не работает. Пробовал делать ширину столбца равной нулю, но это не сработало. Можно как-то в .Columns(21) не 21 написать, а непосредственно номер столбца, чтобы ссылка напрямую на этот столбец вела? У меня как-то тоже не получилось
Есть выше указанный кусочек кода: [vba]
Код
Private Sub ComboBox2101_Change() Dim Rng As Range, Nomer As String Me.TextBox2103 = "" Nomer = Me.ComboBox2101 With Sheets("ИБ_Выдача") Set Rng = .Columns(21).Find(what:=Nomer, LookIn:=xlValues, lookAt:=xlWhole) If Not Rng Is Nothing Then Me.TextBox2103 = Rng.Offset(0, -1) End With End Sub
[/vba] Но у меня этот 21 столбец скрыт на листе. В результате этого, моя форма корректно не работает. Пробовал делать ширину столбца равной нулю, но это не сработало. Можно как-то в .Columns(21) не 21 написать, а непосредственно номер столбца, чтобы ссылка напрямую на этот столбец вела? У меня как-то тоже не получилосьПаштет
3. Кратко, но ёмко опишите задачу в теле поста. ВСЕГДА прикладывайте файл-пример, кроме тех случаев, когда вопрос носит общий характер и не касается конкретно Вашего файла. Темы касающиеся конкретного файла, но без приложенного примера, будут закрываться или удаляться.
Старайтесь прилагать файлы в версии Excel 2003-го офиса(xls), так как эти файлы могут открыть пользователи с любой версией Excel, в отличие от файлов версий Excel 2007/2010/2013 (xlsх).
Правила:
Цитата
3. Кратко, но ёмко опишите задачу в теле поста. ВСЕГДА прикладывайте файл-пример, кроме тех случаев, когда вопрос носит общий характер и не касается конкретно Вашего файла. Темы касающиеся конкретного файла, но без приложенного примера, будут закрываться или удаляться.
Старайтесь прилагать файлы в версии Excel 2003-го офиса(xls), так как эти файлы могут открыть пользователи с любой версией Excel, в отличие от файлов версий Excel 2007/2010/2013 (xlsх).
Не подцепляет значение в TextBox2103, в соответствии со значением в ComboBox2101. TextBox2103 остается пустым.
В прикрепленном файле при запуске формы, выберете по вкладкам: "Изолятор брака: выдача", в списке наименование необходимо выбрать УГСП, а в окне "В ожидании решения" должно появится "2". Идея в том, что каждый раз при сдачи продукции на склад, ее остатки можно было бы просмотреть на выдаче, выбрав соответствующее наименование. Код получился огромный, боюсь запутаетесь. Ссылка удалена. Нарушение Правил форума
Не подцепляет значение в TextBox2103, в соответствии со значением в ComboBox2101. TextBox2103 остается пустым.
В прикрепленном файле при запуске формы, выберете по вкладкам: "Изолятор брака: выдача", в списке наименование необходимо выбрать УГСП, а в окне "В ожидании решения" должно появится "2". Идея в том, что каждый раз при сдачи продукции на склад, ее остатки можно было бы просмотреть на выдаче, выбрав соответствующее наименование. Код получился огромный, боюсь запутаетесь. Ссылка удалена. Нарушение Правил форумаПаштет
Сообщение отредактировал Pelena - Вторник, 15.08.2017, 22:29
- Максимальный размер файла ограничен размером в 100 Кб - Запрещается выкладывать ссылки на файлы, выложенные на сторонних ресурсах - Запрещается выкладывать файлы нераспознаваемых Excel форматов, вместо файлов Excel
Правила:
Цитата
- Максимальный размер файла ограничен размером в 100 Кб - Запрещается выкладывать ссылки на файлы, выложенные на сторонних ресурсах - Запрещается выкладывать файлы нераспознаваемых Excel форматов, вместо файлов Excel
Поскольку у вас эта табличка (столбцы N:U листа ИБ_Выдача) никак не связана с основной таблицей на на этом листе - вы можете просто эту "табличку" поместить на отдельный лист, и скрыть этот лист. Тогда Find Будет работать. Более того, вам необходимо так сделать - очень нежелательно размещать две несвязанных таблицы так, что они имеют общие строки или столбцы листа. Вот представьте себе, что вы стали фильтровать ИБ_Выдача, или удалять/вставлять в середину строки...
Поскольку у вас эта табличка (столбцы N:U листа ИБ_Выдача) никак не связана с основной таблицей на на этом листе - вы можете просто эту "табличку" поместить на отдельный лист, и скрыть этот лист. Тогда Find Будет работать. Более того, вам необходимо так сделать - очень нежелательно размещать две несвязанных таблицы так, что они имеют общие строки или столбцы листа. Вот представьте себе, что вы стали фильтровать ИБ_Выдача, или удалять/вставлять в середину строки...AndreTM