Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » MMapuo
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
UserForm и APPCRASH
 
#
02.03.2017 21:35:48
Так же выяснил, что если отвязять от формы запуск макроса- она нормально работает, меняет данные сколько угодно раз и нормально закрывается.
 
Перейти    
UserForm и APPCRASH
 
#
02.03.2017 21:31:10
Доброго времени суток. Пишу макрос для автозаполнения шаблона. И добавил 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
 
Перейти    
Помогите с кодом поиска открытой книги
 
#
14.02.2017 23:02:29
Спасибо за ценный совет) Дописал)
 
Перейти    
Помогите с кодом поиска открытой книги
 
#
14.02.2017 21:01:18
Разобрался, спасибо. Все таки через Like
Изменено: MMapuo - 14.02.2017 21:03:07
 
Перейти    
Помогите с кодом поиска открытой книги
 
#
14.02.2017 19:45:12
Понимаю, что не должно быть ничего сложного, но оказалось для меня проблематично. Есть у меня несколько  открытых книг, и названия у них просто ужасные. Вообщем мне из книги "2 акт №105 от 10.02.17" нужно перенести данные в книгу "Заказ 12.50 от ?бла-бла-бла?". Номера актов, заказов и даты естественно меняются постоянно. чтобы не заморачиваться с поиском второй книги я просто макрос активирую из нее, а вот первую книгу пытаюсь найти.
Код
Sub Отгрузки_В_Объемы()

    x = ActiveCell.Column
    akt = InputBox("Номер акта")
    If akt = Empty Then
    End
    End If
    Dim book As Workbook
    For Each book In Workbooks
    If book.Name = "*" & akt & "*" Then
    book.Activate
        End If
    Next
 End Sub
в инпут ввожу например "105", но не находит ничего. Надеюсь на ваши подсказки(
Изменено: MMapuo - 14.02.2017 20:36:53
 
Перейти    
Не работает GetValue
 
#
01.02.2017 00:54:00
Понимаю, что не по теме, но может кто нибудь подсказать, как организовать поиск в массиве по частичному совпадению значений?
 
Перейти    
Не работает GetValue
 
#
01.02.2017 00:52:33
Hugo,Правда в том, что "все мои файлы"- это рабочие файлы, которые готовят менеджеры по шаблону. И эта проблема оказалась во всех моих рабочих файлах, которые были созданы недавно по этому самому шаблону.  
Изменено: MMapuo - 01.02.2017 00:54:15
 
Перейти    
Не работает GetValue
 
#
31.01.2017 23:38:54
Спасибо за внимание, и простите за потраченное время. Разобрался. Просто кто-то в рабочем файле в наименовании страницы добавил в конце пробел((( и в итоге не "Сборка" а "Сборка ". Только не пойму почему почему макрос не ругался на то, что такой страницы не существует.
 
Перейти    
Не работает GetValue
 
#
31.01.2017 23:27:03
Sanja, я бы с удовольствием, но файл весит больше, чем тут можно загружать
 
Перейти    
Не работает GetValue
 
#
31.01.2017 23:06:52
Доброго времени суток. Вопрос в следующем: Решил протестить функцию GetValue в своем макросе, но почему то из любого моего файла и из любой ячейки функция возвращает 0.
Никаких наворотов в коде, все стандартно
Код
Private Function GetValue(path, file, sheet, ref)
    Dim arg As String
    If Right(path, 1) <> "\" Then path = path & "\"
    If Dir(path & file) = "" Then
    GetValue = "Файл не найден"
    Exit Function
    End If
    arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
           Range(ref).Range("A1").Address(, , xlR1C1)
    GetValue = ExecuteExcel4Macro(arg)
    If IsError(GetValue) Then GetValue = "<Ошибка>"
    End Function

MsgBox GetValue("C:\Users\Виталька\Desktop\Заказы", "12.35.xls", "Сборка", Cells(60, 4).Address)

Надеюсь на решение проблемы.
 
Перейти    
Страницы: 1
Наверх