Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Удаление незаполненных строк с таблицы - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление незаполненных строк с таблицы (Макросы/Sub)
Удаление незаполненных строк с таблицы
-=Dj=- Дата: Понедельник, 12.06.2017, 14:36 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Здравствуйте!
В очередной раз вынужден просить помощи(
Нужно сделать так чтобы удалялись не заполненные строки с таблиц в листах "Расходная" и "Счет"
Думаю идея будет понятна взглянув на файл...
Сам пробовал решить, но не получается(
[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]
К сообщению приложен файл: 3542379.xlsm (55.7 Kb)


Сообщение отредактировал -=Dj=- - Понедельник, 12.06.2017, 14:37
 
Ответить
СообщениеЗдравствуйте!
В очередной раз вынужден просить помощи(
Нужно сделать так чтобы удалялись не заполненные строки с таблиц в листах "Расходная" и "Счет"
Думаю идея будет понятна взглянув на файл...
Сам пробовал решить, но не получается(
[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]

Автор - -=Dj=-
Дата добавления - 12.06.2017 в 14:36
Karataev Дата: Понедельник, 12.06.2017, 14:44 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1334
Репутация: 533 ±
Замечаний: 0% ±

Excel
 
Ответить
Сообщение

Автор - Karataev
Дата добавления - 12.06.2017 в 14:44
-=Dj=- Дата: Понедельник, 12.06.2017, 15:14 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Karataev, Спасибо! все работает.
 
Ответить
СообщениеKarataev, Спасибо! все работает.

Автор - -=Dj=-
Дата добавления - 12.06.2017 в 15:14
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление незаполненных строк с таблицы (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!