Aşağıdaki kodu dosyanızın kod sayfasına yapıştırın veya ekte gönderdiğim örnek dosyayı kullanın.
[vb:1:dafd7af86b]Sub Makro1()
Columns("A:A").Select
Selection.Interior.ColorIndex = xlNone
a = [a1].Value+1
Range("A2:A" & a).Select
With Selection.Interior
.ColorIndex = 3
End With
End Sub[/vb:1:dafd7af86b]
leventm not:tarafımdan kodda ve ekli dosyada gerekli düzeltmeler yapılmıştır.
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.