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

[R Dmitry]

If WorksheetFunction.CountA(Range(Cell s(i, 1), Cells(i, 4))) < 4 Then
Range(Cells(i, 1), Cells(i, 4)).Select
Exit For
End If

вот вам подсказка

[Uralmaster]

Sub Main3()
Dim i As Long
For i = 500 To 8 Step -1
If WorksheetFunction.CountA(Range(Cells(i, 2), Cells(i, 8))) > 0 Then
Range(Cells(i, 2), Cells(i, 7)).Select
Exit For
End If
Next
End Sub

условие 1 выполняется а как завести условие 2 ?...

[Uralmaster]

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

Sub Main3()
Dim i As Long
For i = 500 To 8 Step -1
If WorksheetFunction.CountA(Range(Cells(i, 2), Cells(i, 8))) > 0 Then
Range(Cells(i, 2), Cells(i, 7)).Select
If WorksheetFunction.CountA(Range(Cells(i, 2), Cells(i, 8))) = 6 Then
Range(Cells(i + 1, 2), Cells(i + 1, 7)).Select
Exit For
End If
Next
End Sub

[Uralmaster]

так работает как надо - только еще одна проблемка

Sub Main3()
Dim i As Long
For i = 500 To 8 Step -1
If WorksheetFunction.CountA(Range(Cells(i, 2), Cells(i, 8))) = 6 Then
Range(Cells(i + 1, 2), Cells(i + 1, 7)).Select
With Selection.Interior
        .ColorIndex = 35
        .Pattern = xlSolid
    End With
Exit For
End If
Next
End Sub

если строка полностью заполнена то выделяется последующий незаполненный диапазон и делается цвет незаполненного диапазона

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

[R Dmitry]

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
For i = 2 To 500
 If WorksheetFunction.CountA(Range(Cells(i, 1), Cells(i, 6))) < 6 Then
 Range(Cells(i, 1), Cells(i, 6)).Interior.Color = 49407
 Exit For
 Else
 Range(Cells(i, 1), Cells(i, 6)).Interior.Color = xlNone
 End If
Next
Application.EnableEvents = True
End Sub

проверяйте, вставьте в модуль листа

[IgorGO]

Вы не с Урала случайно? специально так задачи ставите?

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

с С по К это колонки с 3 по 11 (всего 9 шт).
потом на рисунке у Вас явно просматривается 6 колонок, в которых поверяются данные.
и наконец Вы пишете код

If WorksheetFunction.CountA(Range(Cell s(i, 2), Cells(i, 8))) > 0 Then

,который проверяет 7 колонок с В по Н.

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

дополню:
яркий пример постом выше. Дима проверяет колонки с А по F. Вам Это надо?

[R Dmitry]

Не ужели не помогло ?

[IgorGO]

Дима, как оно поможет?
самый первый пост гласил "проверяем диапазон с С4:К500".
Для начала - стоило начать цикл с 4-й строки. Если в А2 пусто, то на этом Ваша процедура и остановится и окажется совершенно бесполезной, как и время потраченное на ее написание. Вы знаете что в А2, Вы видели данные?

[Uralmaster]

R Dmitry

переделал под свой диапазон
Диапазон B8:G500

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
For i = 8 To 500
 If WorksheetFunction.CountA(Range(Cells(i, 2), Cells(i, 7))) < 6 Then
 Range(Cells(i, 2), Cells(i, 7)).Interior.Color = 49407
 Exit For
 Else
 Range(Cells(i, 2), Cells(i, 7)).Interior.Color = xlNone
 End If
Next
Application.EnableEvents = True
End Sub

Работает только вместо xlNone синим заливает почему то

[Uralmaster]

IgorGO
Игорь не ругайся - я действительно с Урала
А диапазон поменял потому что скриншоты выложил с этим диапазоном