Приветствую, есть код:
В коде ЮзерФормы он выполняется без нареканий, но при попытке вынести его в отдельный модуль выскакивает ошибка 424. Вот не могу понять, что надо поменять, чтобы оно заработало.
| Код |
|---|
Sub Zakaz()
Dim ThisPos As Range, sTextToSearch As String
sTextToSearch = CB_Zakazchik.Value
With Range("A1:B25")
Set ThisPos = Cells.Find(sTextToSearch, LookAt:=xlWhole, MatchCase:=False, SearchFormat:=False)
If Not ThisPos Is Nothing Then
Cell_Split_R = Split(ThisPos.Address(ReferenceStyle:=xlR1C1), "R")
Cell_Split_C = Split(Cell_Split_R(1), "C")
Scol = Cell_Split_C(0)
Srow = Cell_Split_C(1) + 1
' MsgBox (Scol & ", " & Srow)
End If
End With
Zakazchik.Value = CB_Zakazchik.Value
Object.Value = Cells(Scol, Srow).Value
prot.Value = Cells(12, 28) + 1
End Sub |
В коде ЮзерФормы он выполняется без нареканий, но при попытке вынести его в отдельный модуль выскакивает ошибка 424. Вот не могу понять, что надо поменять, чтобы оно заработало.
Изменено: - 19.09.2024 12:15:55
