Поиск
Автор: Ne4aevvs. Добрый день!
Помогите пожалуйста решить 2 проблемы, которые у меня не получается убрать в коде...
Код:
Sub Проверка_перемещений()
Dim MyString, i, j, lLastRow, v, JLastRow As String
lLastRow = Sheets("Лист перемещений").Cells(Rows.Count, 6).End(xlUp).Row
JLastRow = Sheets("Лист перемещений").Cells(Rows.Count, 2).End(xlUp).Row
i = lLastRow + 1
j = JLastRow
v = 6
f = Sheets("Form").Cells(o, ...
Изменен: 22.07.2016
Читать сообщение на форуме или сайте.Автор: Андрей Фетисов. Здравствуйте уважаемые форумчане,
Помогите, пожалуйста, дописать условие, если при переборе критериев для расширенного фильтра, данные есть, то тогда создавать лист:Sub Filter()
Worksheets.Add.Name = "раос_гп_291_4000" 'Создание нового листа
Worksheets("Ввод").Range("A5:O33").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Worksheets("Лист1").Range("S13:V14"), _
CopyToRange:=Worksheets("раос_гп_291_4000 ...
Изменен: 13.05.2016
Читать сообщение на форуме или сайте.Автор: eldiyas. Добрый день.
С vba работаю не так давно и не знаю даже основ оптимизации кода. Создал новую книгу, внес три формы и написал код. Все работает, но:
Файл весит 5,4 мб, что очень странно, ибо есть файлы с еще большим кодом и данными на листах, которые весят куда меньше.
Файл очень долго грузится.
А т.к. файл должен будет располагаться на сервере с общим доступом для 20+ человек на длительный период времени, он разбухнет в разы.
Просьба посмотреть на досуге и помочь в ...
Изменен: 13.04.2016
Читать сообщение на форуме или сайте.