Здравствуйте! В очередной раз вынужден просить помощи( Нужно сделать так чтобы удалялись не заполненные строки с таблиц в листах "Расходная" и "Счет" Думаю идея будет понятна взглянув на файл... Сам пробовал решить, но не получается( [vba]
Код
Sub deleteEmptyRows() Dim x, i&, delRa As Range x = Range("C12:C61" & [a65535].End(xlUp).Row).Value For i = 1 To UBound(x) If x(i, 1) = "0" Then If delRa Is Nothing Then Set delRa = Cells(i, 1) Else Set delRa = Union(Cells(i, 1), delRa) End If End If Next If Not delRa Is Nothing Then delRa.EntireRow.Delete End Sub
[/vba]
Здравствуйте! В очередной раз вынужден просить помощи( Нужно сделать так чтобы удалялись не заполненные строки с таблиц в листах "Расходная" и "Счет" Думаю идея будет понятна взглянув на файл... Сам пробовал решить, но не получается( [vba]
Код
Sub deleteEmptyRows() Dim x, i&, delRa As Range x = Range("C12:C61" & [a65535].End(xlUp).Row).Value For i = 1 To UBound(x) If x(i, 1) = "0" Then If delRa Is Nothing Then Set delRa = Cells(i, 1) Else Set delRa = Union(Cells(i, 1), delRa) End If End If Next If Not delRa Is Nothing Then delRa.EntireRow.Delete End Sub
Sub DelEmptyRows() Application.ScreenUpdating = False Call Del(Worksheets("Расходная")) Call Del(Worksheets("Счет")) Application.ScreenUpdating = True End Sub
Private Sub Del(sh As Worksheet) Dim x, i&, delRa As Range x = sh.Range("C1:C61").Value For i = 12 To UBound(x) If x(i, 1) = "0" Then If delRa Is Nothing Then Set delRa = sh.Cells(i, 1) Else Set delRa = Union(sh.Cells(i, 1), delRa) End If End If Next If Not delRa Is Nothing Then delRa.EntireRow.Delete End Sub
[/vba]
[vba]
Код
Sub DelEmptyRows() Application.ScreenUpdating = False Call Del(Worksheets("Расходная")) Call Del(Worksheets("Счет")) Application.ScreenUpdating = True End Sub
Private Sub Del(sh As Worksheet) Dim x, i&, delRa As Range x = sh.Range("C1:C61").Value For i = 12 To UBound(x) If x(i, 1) = "0" Then If delRa Is Nothing Then Set delRa = sh.Cells(i, 1) Else Set delRa = Union(sh.Cells(i, 1), delRa) End If End If Next If Not delRa Is Nothing Then delRa.EntireRow.Delete End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
