Новости:

Подпишитесь на рассылку новых сообщений форума через службу рассылок: Subscribe.ru

Главное меню

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

Автор SEA72, 13.01.2015, 09:26

« назад - далее »

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

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

ShAM

Может, точки убратьDim lRws As Long
lRws = Cells(Rows.Count, 4).End(xlUp).Row + 1

Если не то, в файле покажите.

SEA72

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

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

vikttur

#5
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

#8
Есть ещё один вариант (взято из книги и чуть переделано под ваши нужды)
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

Оформляйте код (кнопка "#" на панели) [МОДЕРАТОР]