veriyi bul reng değiştir.

[mrt]

Selamlar,

B2 hücresine girdiğim veriyi A1;A500

satırlarında bulun rengini değiştirmek istiyorum.

Ekli kodları yazdım fakat end if satırında hata veriyor, kodlar çalışmıyor.


Dim i As Range
For Each i In Range("A1:A500")
If i.Value = Cells("B2") Then Exit For
i.Interior.ColorIndex = 8
End If
Next i

 

[Haluk]

[vb:1:7ebb45ef83] Dim i As Range
For Each i In Range("A1:A500")
If i = Range("B2") Then
i.Interior.ColorIndex = 8
Else
i.Interior.ColorIndex = 0
End If
Next i
[/vb:1:7ebb45ef83]

 

[mrt]

Teşekkürler

Ellerinize sağlık.