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

Страницы: 1
Макрос выдает ошибку при работе с большим количеством данных
 
Подскажите возможные варианты решения вопроса! Пожалуйста.
Макрос выдает ошибку http://clip2net.com/s/3qaeaRk при работе с большим количеством данных. Файл представляет собой 30 различных услуг с ценами и временем работ http://clip2net.com/s/3qauYqX - Лист1. Лист2 - после обработке макросом http://clip2net.com/s/3qavXgz. Пока в файле 544 строки - 548 КБ. Будет больше.
При малом количестве - макрос отрабатывает.
Приложил файл только с одной строкой.
Изменено: martin_man - 11.11.2015 16:48:16
Удаление строк по условию, что в 3-ёх столбцах пусто
 
Добрый день.
Использую макрос
Код
Sub Del_Empty_Rows()
 Const lCol As Long = 6
        Const lFirstRow As Long = 2
        Dim li As Long, lLastRow As Long, lCalc As Long
    With Application
        .ScreenUpdating = 0: lCalc = .Calculation: .Calculation = xlManual
        For li = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1 To lFirstRow Step -1
        If Cells(li, lCol) = "" Then Rows(li).Delete
        Next li
        .ScreenUpdating = 1: .Calculation = lCalc
    End With
End Sub

Удаляет строки, когда в 6 столбце ячейка пустая. Подскажите пожалуйста, как изменить условие, чтоб строки удалялись, если в строке ячейки пустые в 6,7,8 столбцах.
Спасибо.
Преобразование одной таблицы в другую
 
Здравствуйте.
Буду рад помощи!
Стояла задача по наполнению одной таблицы на Лист1, формировать таблицу на Лист2, цены: Стоимость работ, Работы + ориг.запчасти, Работы+неоригин. запчасти - выводить для услуг в отдельную строчку, что было и реализовано. Сейчас задача видоизменена - для услуг, цены: Стоимость работ, Работы + ориг.запчасти, Работы+неоригин. запчасти - выводить в одну строку по столбцам, т.е., например, строка должна иметь вид: Toyota; Camry; 2.0 AT (148 л.с.) бензин; Плановое ТО 15000 км; 3000; 3500; 3200; 120.
Формирование таблицы из значений другой таблицы
 
Добрый день, уважаемые специалисты.
Помогите, пожалуйста, со следующей задачей: Если на Листе1 в ячейках столбцов Е, F, G есть числовое значение, допустим в ячейках: Е8 (равна 3000), F8 (равна 6000), G8 (равна 4000), Е16 (равна 3500), F16 (равна 7000), G16 (равна 4800), то на Листе2, необходимо, например для E8, вывести в строку значения ячеек А8, B8, C8, E1, E2, H2 в указанном порядке, т.е.: Toyota, Camry, 2.4 AT (167 л.с.) бензин, Плановое ТО 15000 км, Стоимость работ, 3000, 120. И так выводить строки с соответствующими значениями для всех имеющихся числовых значений в столбцах Е, F, G.
Вставка и удаление строк в защищенном листе
 
Помогите пожалуйста...
Есть макросы для вставки и удаления строк, которые почему-то не работают, помогите разобраться.
(лист "ЭОС" защищен - 123)
Большое спасибо заранее.
Невозможно внести изменения в ячейке Microsoft Excel
 
Невозможно внести изменения в ячейке Microsoft Excel 2007.
при выборе ячейки и ее редактировании всплывает окно с текстом: ячейка или диаграмма защищена от изменения.
чтобы изменить защищенную ячейку или диаграмму, снимите защиту при помощи "Снять защиту листа" и т.д....
А сама кнопка "снять защиту листа " не активна.
Страницы: 1
Наверх