- Katılım
- 11 Mayıs 2005
- Mesajlar
- 167
- Excel Vers. ve Dili
-
office 2003 tr & eng.
office 2007 tr & eng.
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
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