Добрый день, помогите пожалуйста разобрать и сделать макрос.
Макрос и профиль в 2д ниже. Макрос был скачан и изменен.
1 ошибка я так понимаю в Private Sub UserForm_Activate() - он не должен повторяться
2 курьез это в Part.ClearSelection2 True Part.DeleteAllRelations
Т.е. каждый раз он удаляет все значения всех переменных, возможно ли обойти это как то при помощи Part.Recordset... или как то иначе
3. стоит ли задавать саму переменную к примеру Dim D As String?
Сам макрос:
Dim swApp As Object Dim Part As Object Dim boolstatus As Boolean Dim longstatus As Long,