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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление добавленных строк (Макросы/Sub)
Удаление добавленных строк
den45444 Дата: Суббота, 08.08.2015, 13:32 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 225
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здесь мне помогли с макросом на добавлением этапа.
Теперь мне нужно удалить добавленный этап.

Прикрепляю файл с макросом на добавление этапа.
К сообщению приложен файл: __.xlsm (20.0 Kb)
 
Ответить
СообщениеЗдесь мне помогли с макросом на добавлением этапа.
Теперь мне нужно удалить добавленный этап.

Прикрепляю файл с макросом на добавление этапа.
Автор - den45444
Дата добавления - 08.08.2015 в 13:32
ShAM Дата: Суббота, 08.08.2015, 13:43 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1347
Репутация: 249 ±
Замечаний: 0% ±

Excel 2010
Как-то так (попаразитировал на макросе от Марины).
[vba]
Код
Sub Del_Stage()
     Dim firstRow&, lastRow&
     firstRow = 0: lastRow = 0
     lSt = Columns("A:A").Find(What:="Накладные расходы").Row
     lastRow = lSt - 1
     For i = lSt To 1 Step -1
         If InStr(Cells(i, 1), "Этап") Then firstRow = i: Exit For
     Next i
     If firstRow = 0 Then MsgBox "Этапов нет": Exit Sub
     If firstRow = 5 Then MsgBox "Остался один этап": Exit Sub
     Rows(firstRow & ":" & lastRow).Delete
End Sub
[/vba]
К сообщению приложен файл: den45444.xlsm (21.5 Kb)
 
Ответить
СообщениеКак-то так (попаразитировал на макросе от Марины).
[vba]
Код
Sub Del_Stage()
     Dim firstRow&, lastRow&
     firstRow = 0: lastRow = 0
     lSt = Columns("A:A").Find(What:="Накладные расходы").Row
     lastRow = lSt - 1
     For i = lSt To 1 Step -1
         If InStr(Cells(i, 1), "Этап") Then firstRow = i: Exit For
     Next i
     If firstRow = 0 Then MsgBox "Этапов нет": Exit Sub
     If firstRow = 5 Then MsgBox "Остался один этап": Exit Sub
     Rows(firstRow & ":" & lastRow).Delete
End Sub
[/vba]
Автор - ShAM
Дата добавления - 08.08.2015 в 13:43
den45444 Дата: Суббота, 08.08.2015, 13:58 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 225
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
ShAM, Благодарю. Все работает.
 
Ответить
СообщениеShAM, Благодарю. Все работает.
Автор - den45444
Дата добавления - 08.08.2015 в 13:58
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление добавленных строк (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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