[vb:1:9fc63a25bf]Sub renklendir()
For a = 2 To [c65536].End(3).Row
deg1 = Left(Cells(a, "c"), 1)
deg2 = Left(Cells(a - 1, "c"), 1)
renk = 3
If deg1 <> deg2 Then c = c + 1
If c Mod 2 = 0 Then renk = 0
Cells(a, "c").Font.ColorIndex = renk
Next
End Sub
[/vb:1:9fc63a25bf]
sağolun teşekkürler.bu siteyi kuranlardan Allah razı olsun.
şimdi ben bu makroyu a sütununda çalıştırmak istersem nasıl değiştireceğim.bu makroyu yeni bir çalışma kitabına nasıl uyarlayacağım.
adım adım anlatabilirmisiniz.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.