Добрый день, Есть файл с таблицей данных. В нем работает форма, через которую заносятся данные в эту таблицу. Также в данной форме данные можно откорректировать, если в начале указать № зарегистрированных данных (ищет строчку нужно) + Enter нажать. Т.о. данные подгружаются в форму из таблицы, если нужно откорректировать внесенную информацию. Проблема: данная форма работает, но поиск данных осуществляет не на всех компьютера, на некоторых работает, а на некоторых не подгрудает данные. В чем может быть дело? на всякий случай прилагаю код поиска и занесения данных из таблицы в форму (именно данный код не везде срабатывает).
Код
Private Sub Порядок_Exit(ByVal Cancel As MSForms.ReturnBoolean)
ПоискНомера
End Sub
Код
Sub ПоискНомера()
Dim nomer As Variant
nomer = Me.Порядок: On Error Resume Next
Workbooks("List" .Activate
Sheets(1).Unprotect ("2" )
Dim ro As Range: Set ro = Sheets(1).Range("A:A" ) .Find(nomer, , , xlWhole).EntireRow
If Err Then Exit Sub
Me.Порядок = ro.Cells(1)
Me.Номер = ro.Cells(2)
Me.Клиент = ro.Cells(3)
Sheets(1).Protect "2", DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowFormattingColumns:=True, AllowFormattingRows:=True, _
AllowSorting:=True, AllowFiltering:=True
End Sub
Если при выполнении кода после этой строки возникнет ошибка, Вы ее не заметите. Ошибкой может быть: неправильное имя книги "List", неправильный пароль первого листа...
имя книги немного другое. На части комьютеров поиск осуществляется, на других нет. Может ли данная проблема быть основанной на личных настройках Excel?
Я не предлагал убрать проверку. Строка позволяет исключать (не учитывать) ошибки, если это нужно по логике работы кода. Error 9 Subscript out of range - нет такого диапазона, ошибка. Посмотрите, на какой строке возникает. Активация книги? имя не то, книга находится не там, книга закрыта паролем...