Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Макрос для удаления строк в умной таблице
 
Помогите пожалуйста с макросом. На одном листе 2 умных таблицы. В одной из них(верхней) нужно удалить строки, оставив 2 верхние и итоговую(чтобы всего осталось 3 строки). Пробовала и с поиском первой пустой ячейки, и с последней заполненной... ничего не помогает - оно не удаляет, пишет ошибка,  а если что то и удаляет, то захватывает и вторую таблицу...
В примере на Лист 2 показано как есть и как должно быть. я в примере неправильно указала какие удалять с А5 по А17


Допустим,как указать условие, что если значение в первой колонке А будет больше 1, то строки удалить.
Что нужно дописать в этом коде?
Код
Sub очистка()
Dim TBL As ListObject
Set TBL = ActiveSheet.ListObjects("ремонты")
ActiveSheet.ListObjects("ремонты").ListColumns(1).DataBodyRange.Select
  If TBL.ListRows.Count > 1 Then
  TBL.DataBodyRange.Delete
  End If
End Sub
Изменено: Просто Ledi - 17 Фев 2017 18:16:10
 
Ребят, мне правда нужна ваша помощь!
 
Код
Sub www()
    Dim i&
    With ActiveSheet.ListObjects("ремонты")
        For i = 1 To .DataBodyRange.Rows.Count - 1
            .ListRows(2).Delete
        Next
    End With
End Sub
Я сам - дурнее всякого примера! ...
 
спасибо большое!
Страницы: 1
Читают тему (гостей: 1)
Наверх