Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Приминение одного макроса сразу для целого каталога книг
 
Уважаемый Казанский..  
Все проверил, все работает...  
Извините за мучения и СПАСИБО Вам человеческое, Вы ОЧЕНЬ меня выручили...без нариканий...  
Напишите мне на почту КАК Вас отблагодарить..  
krajnikovm@mail.ru
Приминение одного макроса сразу для целого каталога книг
 
Скажите, пожалуйста, этот код возможно переписать для csv файлов?
Приминение одного макроса сразу для целого каталога книг
 
Все проверил, работает, но обрабатывает только папки, в кот файлы формата xls..  
Папки, в кот файлы формата csv не обрабатывает....  
А таких большинство...  
Возможно ли их обработать тоже?
Приминение одного макроса сразу для целого каталога книг
 
Уважаемые специалисты.  
Вы меня извините за неведение и незнание в области VBA... и не судите строго...  
Уделите, пожалуйста, чуточку больше внимания моему вопросу...  
Скажите, какую информацию надо мне Вам дать, чтобы Вы разобрались, какой код мне нужен...  
Конечно, я в долгу не останусь.. скажите только куда надо перевести...(не сочтите за бестактность)  
И могли бы Вы пошагово мне "незнающему" написать как и где запустить этот макрос..  
Если нужно я могу на почту отправить Вам свой каталог с файлами, в сокращенном варианте..  
Очень надеюсь на понимание..
Приминение одного макроса сразу для целого каталога книг
 
Скажите я правильно сделал:  
Создал новую книгу, в редакторе VBA в новом модуле скопировал текст кода, заменил "C:\temp\" на "C:\Users\Михаил\Desktop\Исходники(очищенные)"  
и запустил этот макрос..  
Он некоторое время их обрабатывал, но строки не удалил..
Приминение одного макроса сразу для целого каталога книг
 
Огромное спасибо,    
но не могли бы вы мне подробнее описать что мне делать, желательно пошаговую инструкцию...  
Буду очень признателен..
Приминение одного макроса сразу для целого каталога книг
 
Уважаемый Казанский, простите за настойчивость мне есть смысл ждать?
Приминение одного макроса сразу для целого каталога книг
 
Обработать всю папку без сообщений...
Приминение одного макроса сразу для целого каталога книг
 
Ответы:  
1. Обрабатывать надо все листы.  
2. Да, нужно в каждом листе удалить пустые строки.  
Только эти строки не полностью пустые, мне нужно чтобы выполнялось условие:  
Если в 14-ом столбце ничего нет, тогда эту строку удалить...  
Ниже этот макрос написан
Приминение одного макроса сразу для целого каталога книг
 
Понимаю, что Вы слышали не раз, но это правда очень важно и нужно...
Приминение одного макроса сразу для целого каталога книг
 
Уважаемый Юрий М...  
1. Есть директория C:\Users\Михаил\Desktop\Исходники(очищенные) (каталог, содержащий подкаталоги, содержащие много однотипных excel-книг)  
2. Есть макрос, кот удаляет ненужные строки в одной книге  
3. Необходимо этотим макросом обработать все файлы в каталоге сразу, т к их очень много и запускать каждый раз макрос в отдельно открытом файле долго....  
Помогите пожалуйста, переделать этот макрос, чтобы он работал для всего каталога.... читал на этом форуме не получилось разобраться...
Приминение одного макроса сразу для целого каталога книг
 
Честно искал долго и упорно, но к моей задаче решения не нашел...  
Пожалуйста посмотрите еще раз
Приминение одного макроса сразу для целого каталога книг
 
Подскажите, пожалуйста, как одним макросом обработать сразу все эксель-книги из конкретного каталога(включая вложенные каталоги),  не открывая каждый раз книгу?  
Вот сам макрос:  
Sub DeleteEmptyRows()  
 
If MsgBox("Удалить все пустые строки на листе?", vbOKCancel Or vbQuestion Or vbDefaultButton1, "Удалить пустые строки?") = vbCancel Then Exit Sub  
Dim lLastRow As Long, i As Long  
lLastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count  
Application.ScreenUpdating = False  
For i = lLastRow To 1 Step -1  
If Cells(i,14).Text = "" Then Rows(i).Delete  
Next  
Application.ScreenUpdating = True  
End Sub
Удаление пустых строк
 
С удалением разобрался, спасибо.  
Подскажите еще пожалуйста, как одним макросом обработать все эксель-книги из конкретного каталога(включая вложенные каталоги)?
Удаление пустых строк
 
Если столбец N "Число сделок" пустой, то удалить строчку нужно..  
И может ли макрос автоматически выполняться при открытии файла..?
Удаление пустых строк
 
Ок, спасибо, ща буду разбираться!!!!
Удаление пустых строк
 
А например в этом файле, должны остаться эти строчки 1 75 287 354..  
Соответственно, есть таких файлов 1500..  
Ребят, подскажите, можно ли этот процесс как то автоматизировать?  
Заранее благодарен...
Удаление пустых строк
 
Дружище!!  
Не кипятись!!)))  
Файл я приложил..  
После выполнения макроса строки 1 343 461 708 736 839 932  у меня должны остаться...
Удаление пустых строк
 
Еще одна попытка
Удаление пустых строк
 
Если это возможно уберите синий треугольник пожалуйста..  
Файл в приложении..
Удаление пустых строк
 
1.Тема диплома отношения к Excel не имеет, но связан он с фондовым рынком (формирование портфеля), специальность финансы и кредит  
2. Треугольник... виноват..  
3. Я изучил страницу Приемы.. Этот код мне не подходит, так как он удаляет ПУСТЫЕ строчки, а мне нужно удалять, строчки, в кот некоторые столбцы заполненны..
Удаление пустых строк
 
Доброго Всем дня!!!!  
При работе над дипломом возникла следующая проблема:  
Имеется порядка 1500 исходных экселек с данными...  
Необходимо в каждом файле удалить пустые строки(а точнее строки не совсем пустые, а с заполненными некоторыми столбцами)  
Пробовал записать макрос  
Sub Макрос4()  
'  
' Макрос4 Макрос  
'  
' Сочетание клавиш: Ctrl+ъ  
'  
   Selection.SpecialCells(xlCellTypeBlanks).Select  
   Selection.EntireRow.Delete  
End Sub  
При открытии нового файла макрос не работает...  
Выдает ошибку 1004:Данная команда не применима для перекрывающихся диапазонов  
пример экселевского файла в приложении...  
Я был бы очень признателен, если бы умы форума сего откликнулись и помогли разобраться...
Страницы: 1
Наверх