Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Помогите удалить строки в таблице.
 
#1
11.04.2015 23:49:46
Один макрос выполняет удаление строк (активных) в таблице, а другой удаляет все строки в таблиц (-ах) на листе. Не получается у меня. Вторая задача у меня на половину получилась с циклом, но ошибку выдает, когда все строки удаляются. Подскажите, как решить?
 
 
 
#2
12.04.2015 00:27:48
Как-то так.
Код
Private Sub CommandButton2_Click()
Dim Rng
Set Rng = Range("Таблица1")
Rng.Offset(1, 0).Resize(Rng.Rows.Count - 1).EntireRow.Delete
End Sub

Если Вы под первой строкой имеете в виду заголовок, а не первую строку именно таблицы, то пишите просто
Код
Rng.EntireRow.Delete
 
 
 
#3
12.04.2015 00:30:09
Обамка, Вы не отписались в последней своей теме, а уже новую создали...
 
 
 
#4
12.04.2015 01:35:31
Юрий М, я отписался, поблагодарил всех, у меня все нормально по той теме.

МВТ, ваш код не работает. Выдает ошибку. Смотрите, если вы выделите диапазон, любой, например: "B15:C15" и нажмете на кнопку, удалится вся строка таблица этого диапазона, выделите другой, нажмете "удалить", удалится другая. Это первая задача. Вторая задача: при нажатии на (другую) кнопку удаляются все строки таблицы за исключением заголовков и первой строки.

И еще важный момент, наверное. Таблица самоувеличивающаяся, ее диапазон не фиксированный.
Изменено: Обамка - 12.04.2015 10:30:46
 
 
 
#5
12.04.2015 01:42:11
Вы утверждали, что мой код не работает - я показал файл, где всё работает. Но дело Ваше...
 
 
 
#6
12.04.2015 02:18:11
Метод Delete из класса Range завершен неверно.  
 
 
 
#7
12.04.2015 12:00:31
У меня ошибка возникает только при попытке применить макрос на таблице в которой всего одна строка, проблема решилась вот таким изменением
Код
Sub DD()
Dim Rng
Set Rng = Range("Таблица1")
With Rng
    If .Rows.Count > 1 Then .Offset(1, 0).Resize(.Rows.Count - 1).EntireRow.Delete
End With
End Sub

В остальном, могу предположить, что либо Вы куда-то не туда вставили код, либо Ваша таблица называется как-то по-другому. Примерно, как в Вашей дискуссии с Юрий М
 
 
 
Страницы: 1
Наверх