макрос поиск последней незаполненной строки

[Uralmaster]

Нужен макрос который в диапазоне C4:K500 находит последнюю незаполненную строку и выделяет ее цветом
Найденная строка в диапазоне желательно быть выделена
ActiveSheet.Range(Cells(.....), Cells(.......)).Select
Как то так ...

[IgorGO]

что вкладывается в понятие 1-я незаполненная строка?
нет значения в колонке С, D, E, F, G, H, I, J, K или это превая строка в которой незаполнены все эти ячейки?
а после 500-й строки снова могут быть значения?

[Uralmaster]

это первая строка в которой незаполнены все эти ячейки

те С4 D4 - заполнены а Е4:K4 незаполнены тогда С4:K4 выделяются

после 500 не значений не будет

[IgorGO]

однако...
читайте внимательно свой последний пост.
строка 4 - это не

первая строка в которой незаполнены все эти ячейки

она не попадает под это определение в ней

С4 D4 - заполнены

повторю вопрос:
что вкладывается в понятие 1-я незаполненная строка?
нет значения в колонке С, D, E, F, G, H, I, J, K или это превая строка в которой незаполнены все эти ячейки?

Вы, видимо, как и я - военный? поэтому говорить надо все медленно и два раза?
удивительно, но на второй вопрос ответ четкий и однозначный, как устав внуренней службы.

[Uralmaster]

нет значения в колонке С, D, E, F, G, H, I, J, K

поправил

[SAS888]

Я так и не понял, а Вы так и не определились, что вам нужно. Ну, да ладно...
Для того, чтобы Выделить 1-ю свободную строку в диапазоне "C4:K500", можно использовать код:

Sub Main()
    Dim i As Long, x As Range
    For i = 4 To 500
        If Intersect([C:K], Rows(i)).Text = "" Then
            Rows(i).Select: Exit Sub
    End If: Next
End Sub

Для того, чтобы определить следующую, после последней заполненной строкой, можно использовать код:

Sub Main1()
    Dim i As Long
        For i = 500 To 4 Step -1
            If Intersect([C:K], Rows(i)).Text = "" Then
            Else: Rows(i + 1).Select: Exit Sub
    End If: Next
End Sub

[IgorGO]

или вот такая функция

Function FirstEmptyC_K() As Long
  Dim r As Long
  FirstEmptyC_K = 0
  For r = 4 To 500
    If Range(Cells(r, 3), Cells(r, 11)).Text = "" Then FirstEmptyC_K = r: Exit Function
  Next
End Function

[Uralmaster]

вот так завел сейчас
правда для другого диапазона но смысл тотже

Sub Main()
    Sub Main()
    Dim i As Long, x As Range
    For i = 8 To 500
        If Intersect([B:G], Rows(i)).Text = "" Then
            Range(Cells(i - 1, 2), Cells(i - 1, 7)).Select: Exit Sub
    End If: Next
End Sub

или так

Sub Main1()
    Dim i As Long
        For i = 500 To 8 Step -1
            If Intersect([B:G], Rows(i)).Text = "" Then
            Else: Range(Cells(i, 2), Cells(i, 7)).Select: Exit Sub
    End If: Next
End Sub

работает

но понял что задачу поставил неправильно
нужно выделять первую частично заполненную строку а не последнюю как сейчас ..
и еще - (может быть и такое при заполнении) как только строка полностью заполнена а под ней ничего нет тогда выделяется 1 полностью пустая строка
сейчас в этом случае выделяется строка заполненная
выкладываю 2 скрина как дб

1 случай:пользователь заполняет таблицу - если заполнил так - то выделяется 1-я незаполненная строка

2 случай - если получилось что пользователь заполнил так - то выделяется 1 полностью пустая строка


те в процессе заполнения мб и 1-е и 2-е - один макрос должен выполнять оба условия

[alex77755]

А то, что в предыдущей строке заполнены не все ячейки?
Если это правильно, то сколько ячеек в предыдущей строке может быть не заполнено?
Просто если не заполнено 5 ячеек, то последняя строка перерождается в предпоследнюю.
Вопрос и пример поставлены некорректно!

[Uralmaster]

сорри сейчас скрин поменяю - торопился