Удаление строк по условию

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление строк по условию (Макросы/Sub)

Kioto

Дата: Вторник, 04.04.2017, 18:38 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 36

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Здравствуйте, подскажите, можно ли макросом сделать такое. В ячейке B стоит дата, если на листе больше, чем одна строка датой, то макрос стирает все эти строки, кроме первой. Если забита дата, но в строке имеется хоть одна заполненная ячейка, то строка не удаляется.
Только макрос должен действовать автоматически.
Заранее спасибо большое.

К сообщению приложен файл: 0867607.xls (28.0 Kb)

Сообщение отредактировал Kioto - Вторник, 04.04.2017, 18:39

Ответить

Gustav

Дата: Вторник, 04.04.2017, 19:08 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2748

Репутация: 1137 ±

Замечаний: 0% ±

начинал с Excel 4.0, видел 2.1

Цитата Kioto, 04.04.2017 в 18:38, в сообщении № 1 ()

Только макрос должен действовать автоматически.

По какому событию?

МОИ: Ник, Tip box: 41001663842605

Ответить

Kioto

Дата: Вторник, 04.04.2017, 19:15 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 36

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Gustav, как только на листе появляется несколько дат, так сразу и удаляет, например, если скопировать несколько ячеек с данными или растянуть даты, так сразу и должен срабатывать.

Ответить

Kioto

Дата: Среда, 05.04.2017, 04:46 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 36

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Если не трудно, подскажите, пожалуйста. как указать, что если в столбце C есть слово "дебет", то строка не удаляется?
пишу так, но не помогает

[vba]

Код

If Not Cells(3) = "дебет" Then

[/vba]

[vba]

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim strOk As Long
strOk = Evaluate("=LOOKUP(2,1/(LEN(A:A)+LEN(B:B)),ROW(A:A))")
If Target.Row > strOk Then
Rows((strOk + 1) & ":" & Target.Row).Delete Shift:=xlUp
End If
End Sub

[/vba]

К сообщению приложен файл: 0909431.xls (31.5 Kb)

Сообщение отредактировал Kioto - Среда, 05.04.2017, 04:52

Ответить

KuklP

Дата: Среда, 05.04.2017, 08:27 | Сообщение № 5

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Кросс:
http://www.planetaexcel.ru/forum....dannykh

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление строк по условию (Макросы/Sub)

Страница 1 из 1
1