Макрос для форматирования

[waleryth]

Т.е. в моем случае это

 If Range("J" & i) = Cells(Rows.Count, 10).End(xlUp).Row Then Exit Do

Я верно понял!?

[waleryth]

Спасибо!

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

Попробуйте так

Sub Pik()
Dim i As Integer
For i=2 to ActiveSheet.UsedRange.Rows.Count
If Range("J" & i) = "" Then Exit Do
If (Range("J" & i) - Range("J" & i - 1)) > (Range("J" & i - 1) / 100 * 50) Then Range("J" & i).Interior.Color = vbGreen
next
End Sub

Я сделал Так:

Sub Pik1()
Dim i As Integer
For i = 2 To ActiveSheet.UsedRange.Rows.Count
    i = i + 1
    If (Range("J" & i) - Range("J" & i - 1)) > (Range("J" & i - 1) / 100 * 50) Then Range("J" & i).Interior.Color = vbGreen
Next
End Sub

[Watcher_1]

Чот я тоже накосячил
Лучше уж так

Sub Pik1()
Dim i As Integer
For i = 2 To ActiveSheet.UsedRange.Rows.Count
   
    If (Range("J" & i) - Range("J" & i - 1)) > (Range("J" & i - 1) / 100 * 50) Then Range("J" & i).Interior.Color = vbGreen
Next
End Sub

[waleryth]

Да Вы правы

i=i+1

здесь лишнее! Спасибо за помошь!