Доброго времени суток. Пишу макрос для автозаполнения шаблона. И добавил 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