Поиск первой пустой ячейки в столбце

[SEA72]

Добрый день
есть необходимость поиска в столбце листа первой пустой ячейки

использую следующую команду

Код Выделить Развернуть

Sheets("Лист1").Select
    [C1:C65536].SpecialCells(xlCellTypeBlanks).Cells(1, 1).Select
но данная команда работает только до колонки "С"
при замене на колонку "D" выходит ошибка run-time error '1004'

подскажите что не правильно
За ранее

[vikttur]

Код Выделить Развернуть

Dim lRws As Long
lRws = .Cells(.Rows.Count, 4).End(xlUp).Row + 1
Последняя заполненная ячейка  в столбце 4. Следующая (+1) - пустая.

[SEA72]

Добрый день
подставил ваш код, выдаёт ошибку
invalid or unqualified reference

[ShAM]

Может, точки убрать

Код Выделить Развернуть

Dim lRws As Long
lRws = Cells(Rows.Count, 4).End(xlUp).Row + 1
Если не то, в файле покажите.

[SEA72]

Ошибка ушла , а как сделать чтобы пустая ячейка становилась активной?

не нужно цитировать ВСЕ! Да и вообще в данном случае не нужно [МОДЕРАТОР]

[vikttur]

Код Выделить Развернуть

Cells(lRws, 4).Select

[cheshiki1]

или так

Код Выделить Развернуть

Cells(Rows.Count, 4).End(xlUp).Offset(1, 0).Select
что будет дальше с активированной ячейкой? может вам активировать ячейку и не нужно вовсе.

[zs]

условное_форматирование
Формула:=И(СЧИТАТЬПУСТОТЫ($A$1:A1)=1;A1=0)
Применяется к:=$A$1:$A$106
ZS5)

[Dr_Lex]

Есть ещё один вариант (взято из книги и чуть переделано под ваши нужды)

Код Выделить Развернуть

Sub выд_пуст_яч()
LastRow = Cells(Rows.Count, 1).Row
For i = 1 To LastRow
    If IsEmpty(Cells(i, 1)) Then
        Cells(i, 1).Select
        Exit For
    End If
Next i
End Sub
Оформляйте код (кнопка "#" на панели) [МОДЕРАТОР]