проверить столбец на пустоту

[Blame]

Добрый день)
Подскажите, пожалуйста, как записать условие на проверку пустоты 2ух столбцов одновременно по всем строкам.
Дан столбец A и столбец D. Если оба эти столбца пусты, начиная со 2ой строки, то сделать то-то..
По поиску не нашла

Спасибо!

[Blame]

Сделала пока вот так:

Private Sub CommandButton1_Click()
If IsEmpty(Range("A2:A")) = True And IsEmpty(Range("D2:D")) = True Then
MsgBox "empty"
Else
MsgBox "not empty"
End If
End Sub

пока не работает, но, надеюсь, идея правильная.
Ругаеся на Range("A2:A")

[Hugo121]

Идея хорошая, но так не работает...
Я бы сделал так:

Sub tt()
    If Range("A2:A" & Rows.Count).Text = "" Then
        If Range("D2:D" & Rows.Count).Text = "" Then
            MsgBox "All is empty"
        Else
            MsgBox "D not empty"
        End If
    Else
        MsgBox "A not empty"
    End If
End Sub

Есть замечание - если заполнены и A, и D, то покажет только A, но это можно побороть усложнением кода, если нужно.
Зато если занято A - то D уже не проверяем, ресурсы берегём.

Правда так проверяет на видимое значечение - т.е. формула, выводящая пустоту, будет принята за пустоту.

[IgorGO]

=счетз(A:A;D:D)=2
для VBA
worksheetfunction.counta(A:A;D:D)=2

[Blame]

Спасибо большое за подсказки!!!

А мне пришел в голову после того, как я спросила, такой вариант:
Вначале удалить по фильтру все пустые ячейки по столбцу A, потом проверить на пустоту столбец D....)))
Наверное, не самое рациональное решение, но оно моё скромное и оно работает)))))