Her bir satırı farklı renklerde renklendirme

[general_o]

arkadaşlar excelde her bir satırın rengini farklı farklı otomatik renklendirmek istiyorum nasıl yapabilirim.

 

[hamitcan]

Tablo olarak biçimlendirebilirsiniz yada bir kod yardımıyla yapabilirsiniz.

Sub test()
Dim j As Integer, k As Integer
j = Range("a1").End(xlDown).Row
'j is the last row
For k = 1 To j
If k Mod 2 = 0 Then
Cells(k, "a").EntireRow.Interior.ColorIndex = 3
End If
Next k
End Sub

Alıntıdır.
http://en.kioskea.net/forum/affich-152073-macro-for-fill-color-alternative-rows

 

[general_o]

Tablo olarak biçimlendirebilirsiniz yada bir kod yardımıyla yapabilirsiniz.

Sub test()
Dim j As Integer, k As Integer
j = Range("a1").End(xlDown).Row
'j is the last row
For k = 1 To j
If k Mod 2 = 0 Then
Cells(k, "a").EntireRow.Interior.ColorIndex = 3
End If
Next k
End Sub

Alıntıdır.
http://en.kioskea.net/forum/affich-152073-macro-for-fill-color-alternative-rows

verdiğiniz bu kodu nasıl yapmalıyım bu şekilde kodlamayı nasıl yapacağımı bilmiyorum

 

[uzmanamele]

Merhaba

Alternatif olsun.

Sub dolgu()
For i = 1 To Range("a65536").End(3).Row
Rows(i).EntireRow.Interior.ColorIndex = i
Next
End Sub

 

[hamitcan]

verdiğiniz bu kodu nasıl yapmalıyım bu şekilde kodlamayı nasıl yapacağımı bilmiyorum

Alt+F11 tuşlarına basınız. Insert menüsünden bir Module ekleyiniz, içine verdiğim kodu ekleyip F5 tuşuna basınız.

 

[general_o]

vakit ayırıp cevapverdiğin için teşekkürler hamitcan