Ввод данных при введении первых значений

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

Ввод данных при введении первых значений (Макросы/Sub)

baaur

Дата: Воскресенье, 25.02.2018, 00:21 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 70

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

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

Excel 2010

Доброго времени суток, уважаемые гуру excel.
Долго искал в интернете решения как можно было бы практически сразу вводить данные нажатием enter при вводе первых символов, и ура нашел на сайте (не помню на каком готовый файл с решением) все идеально подходит.
Но при тестировании вылазит ошибка и макрос дальше не работает, суть ошибки в том что, когда при прокрутки списка пытаться прокрутить вниз макрос выдает ошибку.
Может кто сможет устранить ошибку, и в дальнейшем может кому и понадобится данный макрос.

Заранее спасибо за помощь!

К сообщению приложен файл: v1.8_SearchVali.xlsm (48.7 Kb)

Ответить

fan-vba

Дата: Воскресенье, 25.02.2018, 06:15 | Сообщение № 2

Группа: Пользователи

Ранг: Новичок

Сообщений: 24

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

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

Excel 2007

может просто отключить ошибки в этом месте кода, добавив строку On Error Resume Next
[vba]

Код

Sub DropDown_click()
On Error Resume Next
    SetVariables
    Range(TextBox.LinkedCell) = DropDown.List(DropDown.Value)
    DeleteElements
End Sub

[/vba]

Ответить

baaur

Дата: Воскресенье, 25.02.2018, 07:44 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 70

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

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

Excel 2010

Цитата fan-vba, 25.02.2018 в 06:15, в сообщении № 2 ()

On Error Resume Next

Нет пробывал, не работает этот вариант.

Ответить

Pelena

Дата: Воскресенье, 25.02.2018, 08:07 | Сообщение № 4

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

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

Сообщений: 19603

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

Замечаний: ±

Excel 365 & Mac Excel

Посмотрите здесь была похожая тема с решениями

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

Ответить

nilem

Дата: Воскресенье, 25.02.2018, 08:28 | Сообщение № 5

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

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

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

Excel 2013, 2016

попробуйте 2 строчки добавить (со звездочками)
[vba]

Код

Sub DropDown_click()
SetVariables
If DropDown.Value > 0 Then '***
Range(TextBox.LinkedCell) = DropDown.List(DropDown.Value)
DeleteElements
End If '***
End Sub

[/vba]

Яндекс.Деньги 4100159601573

Ответить

baaur

Дата: Воскресенье, 25.02.2018, 08:47 | Сообщение № 6

Группа: Пользователи

Ранг: Участник

Сообщений: 70

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

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

Excel 2010

Цитата nilem, 25.02.2018 в 08:28, в сообщении № 5 ()

попробуйте 2 строчки добавить (со звездочками)

nilem большое Вам спасибо, работает!!!

Ответить

Ввод данных при введении первых значений (Макросы/Sub)

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