Satır atlayarak renklendirme

[ASLAN7410]

Merhaba arkadaşlar hayırlı akşamlar.

Excel sayfamda veri çok olduğu için satırın takibi zor oluyor.

Benim yapmak istediğim bir butona bağlayarak A2 satırından L500 satırına kadar bir atlayarak gri renk olarak satırları renklendirmek istiyorum.

Yardım edecek arkadaşlara şimdiden teşekkür ediyorum.

 

[ASLAN7410]

Örnek sayfa ekte gönderiyorum.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Renklendir()
    
    Dim i As Integer
    
    Range("A1:L500").Interior.ColorIndex = 0
    
    For i = 2 To 500 Step 2
        Cells(i, "A").Resize(1, 12).Interior.ColorIndex = 16
    Next i
  
    
End Sub

.

 

[ASLAN7410]

Ömer Bey ilginize çok teşekkür ediyorum, çok güzel oldu.

Renk kodu olarak 16 rakamı koyu gri rengi yapıyor, açık gri renginin kod numarasını bulamadım, açık gri renginin kodu kaç numara acaba?

 

[Ömer]

Rica ederim.

15 yazarak deneyin.

 

[ASLAN7410]

Çok teşekkür ediyorum, hayırlı geceler hayırlı bayramlar.

 

[Ömer BARAN]

Merhabalar ASLAN Bey.
Makro kullanmadan, koşullu biçimlendirme -> formül kullan seçeneğinde =TEKMİ(SATIR()) ya da aynı şekilde =ÇİFTMİ(SATIR()) formülleriyle istediğiniz renkleri ayarlayabilirsiniz.

 

[ASLAN7410]

Ömer Bey valla bu da süper oldu, ilginiz için çok teşekkür ediyorum hayırlı geceler hayırlı bayramlar.

 

[ASLAN7410]

Sayın Ömer Baran Bey küçük bir sorum olacak.

Listedeki veriler bazen çoğalıyor bazen azalıyor, görüntü kirliliği olmaması amacıyla listedeki en son dolu hücreye kadar birer atlayarak renklendirme koşullu biçimlendirmede nasıl bir formül uygulanması gerekir?

 

[Ömer BARAN]

A'dan L sütununa kadar sütunlar seçili iken koşullu biçimlendirme -> formül kullan kısmına aşağıdaki formülü uyulayıp, renk seçerek işlemi tamamlayın.

=VE($A1<>"";ÇİFTMİ(SATIR()))

Koşullu bizimlendirmeyi ayarladığınız ekranda "Uygulama hedefi" kısmında =$A:$Lyazdığını kontrol edin.

 

[ASLAN7410]

Ömer Bey valla süper oldu, Allah razı olsun, hayırlı geceler.

 

[Ömer BARAN]

Bilmukabele, sağlıcakla.