Makro yazımında hata

[yağızbaba]

Aşağıdaki kod da b6 dan sonraki hücrelerde 20 küçük olanların kırmızı olmasını istiyorum fakat b6 dan b15 e kadar değer verdiğim halde sadece b10 a kadar yapıyor diğer hücrelere hiç bir işlem yapmıyor neden?yardımcı olursanız sevinirim.tşk.

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Sub dolgu_rengi()
For i = 6 To Range("b65536").End(3).Row
If Cells(i, "b") < 20 Then
Cells(i, "b").Interior.ColorIndex = 3
End If
Next
Cells(i, "b") = "www.excel.web.tr"
End Sub

 

[yağızbaba]

Teşekkürler.İstediğim oldu fakat kod lar birbirine hiç benzemiyor.Anlamaya çalışıyom.


Range("e6").Select
Do While Not IsEmpty(ActiveCell)
If ActiveCell.Value < 20 Then
ActiveCell.Interior.ColorIndex = 3
Else
ActiveCell.Offset(1, 0).Select
End If
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Value = "korkmaz"
End Sub

"""---""""

Sub dolgu_rengi()
For i = 1 To Range("b65536").End(3).Row
If Cells(i, "b") < 20 Then
Cells(i, "b").Interior.ColorIndex = 3
End If
Next
Cells(i, "b") = "www.excel.web.tr"
End Sub