Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Сброс счётчика по условию
 
имеется счётчик. Хочу запускать макрос создания back up по определённому условию - по достижению 100 нажатий, например. Макрос создания резервной копии имеется, а вот как сбросить счётчик на 0, не могу разобраться. Помогите, пожалуйста, написать простой макрос по замене значения в ячейке A1, когда значение равно С2ю Файл во вложении
Удаление строк, если в ячейках находится функция
 
Спасибо большое! Действительно всё работает. потестирую. Надеюсь, когда база данных станет большой, файл не будет тормозить.
Удаление строк, если в ячейках находится функция
 
Во вложении файл с рабочим макросом. строки действительно пустые.
И такой же файл с макросом, но в пустых строках находится функция. соответственно макрос не работает.
если выбрать строку, нажать Delete и снова запустить макрос, он удалит эту строку, потому что функции там уже не будет
Удаление строк, если в ячейках находится функция
 
Здравствуйте, после копирования данных из одной таблице в другую, имеются пустые строки. На самом деле строки не пустые, а с функцией. Они получены после применения функции ЕСЛИ (вставляем "" при использовании если)
имеется следующий макрос, который отлично работает, если в строках нет функции:
Код
Sub DeleteEmptyRowsInRange()

Range("Table1").Select

    Dim r As Long, rng As Range
    For r = 1 To Selection.Rows.Count
        If Application.CountA(Selection.Rows(r)) = 0 Then
            If rng Is Nothing Then
                Set rng = Selection.Rows(r)
            Else
                Set rng = Union(rng, Selection.Rows(r))
            End If
        End If
    Next r
    If Not rng Is Nothing Then rng.delete
End Sub

Как изменить данный макрос, чтобы можно было удалять такие строки.
Или может быть в функции ЕСЛИ заменить "" на определённое значение и удалять строку, если там будет находиться определённое значение или слово?

Спасибо большое
Страницы: 1
Наверх