Страницы: 1
RSS
UserForm и APPCRASH
 
Доброго времени суток. Пишу макрос для автозаполнения шаблона. И добавил UserForm для замены некоторых изначальных данных
Код
Private Sub UserForm_Activate()

TextBox2.Text = Workbooks("Шаблон").Worksheets("Данные").Cells(2, 2).Value
TextBox3.Text = Workbooks("Шаблон").Worksheets("Данные").Cells(3, 2).Value
TextBox4.Text = Workbooks("Шаблон").Worksheets("Данные").Cells(3, 3).Value
TextBox5.Text = Workbooks("Шаблон").Worksheets("Данные").Cells(3, 4).Value
TextBox6.Text = Workbooks("Шаблон").Worksheets("Данные").Cells(4, 2).Value
TextBox7.Text = Workbooks("Шаблон").Worksheets("Данные").Cells(4, 3).Value
TextBox8.Text = Workbooks("Шаблон").Worksheets("Данные").Cells(5, 2).Value
TextBox9.Text = Workbooks("Шаблон").Worksheets("Данные").Cells(5, 3).Value
End Sub
Private Sub CommandButton1_Click()

Workbooks("Шаблон").Worksheets("Данные").Cells(2, 2).Value = TextBox2.Text
Workbooks("Шаблон").Worksheets("Данные").Cells(3, 2).Value = TextBox3.Text
Workbooks("Шаблон").Worksheets("Данные").Cells(3, 3).Value = TextBox4.Text
Workbooks("Шаблон").Worksheets("Данные").Cells(3, 4).Value = TextBox5.Text
Workbooks("Шаблон").Worksheets("Данные").Cells(4, 2).Value = TextBox6.Text
Workbooks("Шаблон").Worksheets("Данные").Cells(4, 3).Value = TextBox7.Text
Workbooks("Шаблон").Worksheets("Данные").Cells(5, 2).Value = TextBox8.Text
Workbooks("Шаблон").Worksheets("Данные").Cells(5, 3).Value = TextBox9.Text
Заполнение
End Sub

при активации форма считывает данные, при нажатии на единственную кнопку- меняет значения этих же данных. После чего запускается другой макрос. Выполняется он прекрасно. Пока форма открыта- можно поменять данные в textbox и заполнить еще сколько угодно раз. Но вот в чем вся проблема- при закрытии userform любым способом( крестиком, с помощью hide) - вылетает appcrash и excel закрывается. Прикреплю рабочие файлы. Перед запуском макроса нужно в книге 12.71, в листе "Отгрузка" встать на любую из ячеек с текстом типа "ТН №??? от ???".

Добавлено: И нужно в каталоге с файлом 12.71 иметь папку "Отгрузки"

Файлы удалены - превышен максимально допустимый размер.

Изменено: MMapuo - 02.03.2017 21:44:32
 
Так же выяснил, что если отвязять от формы запуск макроса- она нормально работает, меняет данные сколько угодно раз и нормально закрывается.
Страницы: 1
Наверх