Добрый день,
Есть файл с таблицей данных. В нем работает форма, через которую заносятся данные в эту таблицу. Также в данной форме данные можно откорректировать, если в начале указать № зарегистрированных данных (ищет строчку нужно) + Enter нажать. Т.о. данные подгружаются в форму из таблицы, если нужно откорректировать внесенную информацию. Проблема: данная форма работает, но поиск данных осуществляет не на всех компьютера, на некоторых работает, а на некоторых не подгрудает данные. В чем может быть дело? на всякий случай прилагаю код поиска и занесения данных из таблицы в форму (именно данный код не везде срабатывает).
Есть файл с таблицей данных. В нем работает форма, через которую заносятся данные в эту таблицу. Также в данной форме данные можно откорректировать, если в начале указать № зарегистрированных данных (ищет строчку нужно) + 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 |
Изменено: - 18.02.2015 13:17:41
