Определить,занята ли ячейка

[kzld]

Прошу помощи, надо определить занята ли ячейка D17 ?
Если занята,перейти и проверить D18,
если и она занята , перейти и проверить D19.
Короче найти первую пустую ячейку в столбце D, начиная с D17

[Hugo121]

MsgBox Range("D17").End(xlDown)(2).Address

[kzld]

Сообщение от Hugo121

MsgBox Range("D17").End(xlDown)(2).Address

Спасибо за ответ. Наверное я неправильно сформулировал вопрос\задачу.
Надо проверить занята ли ячейка D17, если занята (D18 ... D )переместить курсор на первую свободную ячейку в cтолбце D

[kuklp]

Разжевать?
[D16].End(xlDown)(2).select

[kzld]

Сообщение от kuklp

Разжевать?
[D16].End(xlDown)(2).select

ДА-а-а-а
Желательно "на пальцах"

[Hugo121]

Вообще кажется не всё так просто, на практике обрастает (или я просто не нашёл пути прямее, т.к. я сам на практике всегда иду другим путём. Вообще другим.):

Sub tttt()
    If Not IsEmpty(Range("D17")) Then
        If Not IsEmpty(Range("D18")) Then
            Range("D17").End(xlDown)(2).Select
        Else
            Range("D16").End(xlDown)(2).Select
        End If
    End If
End Sub

[kzld]

Сообщение от Hugo121

Вообще кажется не всё так просто, на практике обрастает (или я просто не нашёл пути прямее, т.к. я сам на практике всегда иду другим путём. Вообще другим.):

Sub tttt()
    If Not IsEmpty(Range("D17")) Then
        If Not IsEmpty(Range("D18")) Then
            Range("D17").End(xlDown)(2).Select
        Else
            Range("D16").End(xlDown)(2).Select
        End If
    End If
End Sub

Спасибо, работает. Но только если курсор стоит в ячейке D17
Как в начале макроса "передвинуть\поставить" курсор на ячейку D17

[Hugo121]

Показывайте файл. У меня работает всегда независимо от того, где курсор. Только что ещё раз проверил - создал новый файл, записал символ в D17, активировал ячейку где-то выше-правее, выполнил код - всё ОК.

Т.е. поставить курсор нет проблем (запишите рекордером) - но зачем?

[DiemonStar]

Можно и одной строкой:

Range([D17], [D17].Offset(Rows.Count - 17)).SpecialCells(xlCellTypeBlanks).Cells(1, 1).Select

[Скрипт]

Вариант 1

Sub Макрос1()

    Dim i As Long
    
    'Задаём номер строки, с которой нужно работать.
    i = 17
    
    Do
    
        If IsEmpty(Cells(i, "D")) = True Then
        
            Cells(i, "D").Activate
            
            Exit Do
            
        End If
    
        i = i + 1
        
    Loop
    
End Sub

Вариант 2:

Sub Макрос2()

    Dim rFind As Excel.Range
    
    'Параметры команды "Find" получены с помощью макрорекордера.
    
    'Range("A17:A50") - здесь указываем диапазон ячеек, где ищем.
    'After:=Range("A50") - указываем последнюю ячейку в диапазоне,
    'в котором ищем, потому что поиск начинается со следующей ячейки.
    Set rFind = Range("A17:A50").Find(What:="", After:=Range("A50"), LookIn:=xlValues, _
        LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
        
    'Если найдено, то переменная "rFind" представляет собой ячейку,
    'в которой было найдено.
    If Not rFind Is Nothing Then
        rFind.Activate
    End If
    
End Sub