Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Очистка строк по условию, добавить в макрос дополнительное условие
 
#1
16.12.2016 11:04:59
Здравствуйте, уважаемые форумчане!
Макрос очищает от формул и значений  строки таблицы, в которых  ячейка 6 столбца не содержит данных.
Требуется добавить условие: удалять данные кроме данных находящихся в ячейке 4 (“D”) столбца
вот собственно сам макрос, в который требуется добавить озвученное условие:  
Код
[/CODE]Sub clear_r ()
Dim x&, i&, j&, s$, ii&, a
    x = Cells(Rows.Count, 6).End(xlUp).Row - 9
For i = x To 5 Step -1
        If Cells(i, 6) = Empty Then
          Rows(i).ClearContents
        End If
     Next
End Sub  [CODE]
 
 
 
#2
16.12.2016 11:06:32
А сколько всего столбцов зайдействовано в таблице?
 
 
 
#3
16.12.2016 11:08:40
может быть разное от 7 до 15
 
 
 
#4
16.12.2016 11:10:17
Лариса, попробуйте
Код
Sub clear_r()
Dim x&, i&, j&, s$, ii&, a
  x = Cells(Rows.Count, 6).End(xlUp).Row - 9
  For i = x To 5 Step -1
    If Cells(i, 6) = Empty Then
      s = Cells(i, "D").Formula
      Rows(i).ClearContents
      Cells(i, "D").Formula = s
    End If
  Next
End Sub
 
 
 
#5
16.12.2016 11:13:19
Код
Sub clear_r()
Dim x&, i&
    x = Cells(Rows.Count, 6).End(xlUp).Row - 9
    For i = x To 5 Step -1
        If Cells(i, 6) = Empty Then
'          Rows(i).ClearContents
          Union(Range(Cells(i, 1), Cells(i, 3)), Range(Cells(i, 5), Cells(i, 15))).ClearContents
        End If
    Next
End Sub
 
 
 
#6
16.12.2016 11:13:28
Казанский, спасибо! Работает!
 
 
 
#7
16.12.2016 11:16:24
Юрий и Ваш вариант супер!
 
 
 
#8
16.12.2016 13:07:36
Странная закономерность в макросах
Перестает очищать данные при малом количестве строк...
Или , что то у меня не так с таблицами? Ребята, посмотрите пожалуйста.
Листы 1-2  - абсолютно одинаковые таблицы но с разным кол-вом строк. На листе 2 (с большим коич.строк) макросы работают , а листе 1 нет.
А на листе 3 почему то вообще макросы не занимаются своим делом...
в чем дело никак не пойму...
 
 
 
#9
16.12.2016 13:17:26
Начнём с того, что у Вас последняя строка = минус 4. Строки с таким номером не может быть по определению.
Почему пытаетесь определить номер последней строки по столбцу 6, если там возможно отсутствие данных?
Определяйте по первому столбцу и не вычитайте 9.
Код
x = Cells(Rows.Count, 1).End(xlUp).Row
 
 
 
#10
16.12.2016 13:34:42
ясно, спасибо! вечером займусь
 
 
 
Страницы: 1
Наверх