1 satır aralıkla satır renklendirme

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
43,011
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Merhaba,

Siz grup olarak renklendirmek istiyorsunuz. Aşağıdaki kodu kullanarak yapabilirsiniz.

-4142 (Dolgu rengi yok) Bunu değiştirip farklı bir renk yapabilirsiniz.

Kod:
Sub Renklendir()
    Dim X As Long, Renk As Integer
    
    Renk = 37
    Range("A2:O" & Rows.Count).Interior.ColorIndex = xlNone
    
    For X = 2 To Cells(Rows.Count, "D").End(3).Row
        If X = 2 Then
            Range("A" & X & ":O" & X).Interior.ColorIndex = Renk
        ElseIf Cells(X, "D") = Cells(X - 1, "D") Then
            Range("A" & X & ":O" & X).Interior.ColorIndex = Cells(X - 1, "D").Interior.ColorIndex
        Else
            If Renk = 37 Then
                Renk = -4142
            Else
                Renk = 37
            End If
            Range("A" & X & ":O" & X).Interior.ColorIndex = Renk
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
 
Katılım
17 Aralık 2013
Mesajlar
10
Excel Vers. ve Dili
2010
Merhabalar yine ben bi problem çıkmaya başladı ama anlamadım düzeltemedimde yardımlarınızı bekliyorum.

Makro içerebilen Excel çalışma kitabı olarak kayıtlı.

 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
43,011
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Bunlar makro kodlarıdır. Dosyanızın açılışında formül çubuğu bölümünde "içeriği etkinleştir" şeklinde uyarı mesajları çıkacaktır. Bunları onaylayarak dosyanızı açmanız gerekiyor. Yoksa kodlar çalışmaz.
 
Katılım
25 Aralık 2012
Mesajlar
29
Excel Vers. ve Dili
2016 TR
Nasıl olmuoyor.
Peki benim bu yaptığım nedir?:cool:
Dosya ekte.:cool:
=EĞER(MOD(SATIR(A1);2)=0;1;0)
EĞER=IF
SATIR=ROW
tam da bu kodu arıyordum...

Bütün hücreler seçili iken;
Koşullu Biçimlendirme/Yeni Kural.../Kural Türü Seçin:/Biçimlendirilecek hücreleri belirlemek için formül kullan...
kısmına üstteki formülü yapıştırdım...

Önizleme:/Biçimlendir.../Dolgu kulakçığından da açık gri rengi seçtim...

tam istediğim gibi oldu... :bravo:

@Orion1'e teşekkür ederim...
 
Katılım
17 Şubat 2017
Mesajlar
6
Excel Vers. ve Dili
Excel 2016
Altın Üyelik Bitiş Tarihi
17/02/2018
tam da bu kodu arıyordum...

Bütün hücreler seçili iken;
Koşullu Biçimlendirme/Yeni Kural.../Kural Türü Seçin:/Biçimlendirilecek hücreleri belirlemek için formül kullan...
kısmına üstteki formülü yapıştırdım...

Önizleme:/Biçimlendir.../Dolgu kulakçığından da açık gri rengi seçtim...

tam istediğim gibi oldu... :bravo:

@Orion1'e teşekkür ederim...


Merhaba,

Bende satır renkelndirmesi yapmak istiyorum ancak; bu formülü excel 2010 sürümüne yapıştırdığımda sorunsuz çalışırken excel 2016 ya uyguladığımda hata veriyor.

Yardımcı olabilir misiniz arkadaşlar....
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
43,011
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Örnek dosyanızı eklerseniz yardımcı olabiliriz.
 

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
12,997
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
Merhaba,

Bende satır renkelndirmesi yapmak istiyorum ancak; bu formülü excel 2010 sürümüne yapıştırdığımda sorunsuz çalışırken excel 2016 ya uyguladığımda hata veriyor.

Yardımcı olabilir misiniz arkadaşlar....
Merhaba.

Örnek dosya olmadığından net cevap verilemiyor.
İşlemi formül kullanarak gerçekleştirmek istiyorsanız aşağıda açıkladığım şekilde sonuç alabilirsiniz.

Koşullu biçimlendirme => formül kullan kısmında =TEKMİ(SATIR()) ve/veya =ÇİFTMİ(SATIR()) gibi bir formül de kullanılabilir.

Bu işlevleri kullanarak denemeler yaparsanız, kendiniz sonuca ulaşabilirsiniz diye düşünüyorum.
Neticede koşullu biçimlendirme işleminde kullanılan formüllerin 0/1 veya YANLIŞ/DOĞRU sonuçlarını vermesi gerekir ve
sonuç 1 veya DOĞRU olduğunda biçimlendirme gerçekleşir.
.
 
Katılım
17 Şubat 2017
Mesajlar
6
Excel Vers. ve Dili
Excel 2016
Altın Üyelik Bitiş Tarihi
17/02/2018
c
Merhaba.

Örnek dosya olmadığından net cevap verilemiyor.
İşlemi formül kullanarak gerçekleştirmek istiyorsanız aşağıda açıkladığım şekilde sonuç alabilirsiniz.

Koşullu biçimlendirme => formül kullan kısmında =TEKMİ(SATIR()) ve/veya =ÇİFTMİ(SATIR()) gibi bir formül de kullanılabilir.

Bu işlevleri kullanarak denemeler yaparsanız, kendiniz sonuca ulaşabilirsiniz diye düşünüyorum.
Neticede koşullu biçimlendirme işleminde kullanılan formüllerin 0/1 veya YANLIŞ/DOĞRU sonuçlarını vermesi gerekir ve
sonuç 1 veya DOĞRU olduğunda biçimlendirme gerçekleşir.
.

Merhaba,

Excel 2010 tr versiyonda aynı formül çalışırken, 2016 tr versiyonunda bu hatayı veriyor.

 

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
12,997
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
Merhaba.

Koşullu biçimlenecek alanı (A3:K1001) seçip, dolgu rengi menüsünden DOLGU YOKu tıkladıktan sonra;
-- A sütununda veri olsa da olmasa da biçimlendirme yapılması için=> =ÇİFTMİ(SATIR())
formülünü uygulayıp renk belirleyerek işlemi onaylayın.
-- A sütununda veri varsa biçimlenme yapılsın istiyorsanız => =VE($A3<>"";ÇİFTMİ(SATIR()))
formülünü uygulayap renk belirleyerek işlemi onaylayın.
.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
43,011
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Merhaba,

Ömer bey sağ olsun nasıl yapacağınızı tarif etmiş.

Ben bir hatırlatma yapma ihtiyacı duydum.

Benim bu başlıktaki ikinci mesajda önerdiğim formül yeni kayıt girdikçe biçimlendirme yapmaktadır. Bu sebeple boş bir sayfada benim önerimi uygularsanız sonuç alamazsınız. "B" sütununa veri girdikçe satır renklendirmesi gerçekleşecektir.

Buna ek olarak Ömer beyin önerdiği;

Kod:
=TEKMİ(SATIR())
=ÇİFTMİ(SATIR())
Fonksiyonları yeni excel versiyonlarında çalışmaktadır.

Eski versiyonlar için aşağıdaki fonksiyonu kullanabilirler.

Tek satır numaralarının renklenmesi için;
Kod:
=MOD(SATIR();2)=1
Ya da;

Çift satır numaralarının renklenmesi için;
Kod:
=MOD(SATIR();2)=0
 

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
12,997
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
Sayın AYHAN'ın TEKMİ ve ÇİFTMİ işlevlerinin eski Ms.Excel versiyonlarında çalışmadığına dair hatırlatması için teşekkürler.

Soruyu soran üyenin profilinde versiyon bilgisi 2016 ve eklenen örnek belge uzantısı da ..xlsx olunca o şekilde cevap vermiştim.
.
 
Katılım
17 Şubat 2017
Mesajlar
6
Excel Vers. ve Dili
Excel 2016
Altın Üyelik Bitiş Tarihi
17/02/2018
Merhaba.

Koşullu biçimlenecek alanı (A3:K1001) seçip, dolgu rengi menüsünden DOLGU YOKu tıkladıktan sonra;
-- A sütununda veri olsa da olmasa da biçimlendirme yapılması için=> =ÇİFTMİ(SATIR())
formülünü uygulayıp renk belirleyerek işlemi onaylayın.
-- A sütununda veri varsa biçimlenme yapılsın istiyorsanız => =VE($A3<>"";ÇİFTMİ(SATIR()))
formülünü uygulayap renk belirleyerek işlemi onaylayın.
.

Çok teşekkür ederim... İşim çok kolaylaştı :)
 
Katılım
17 Şubat 2017
Mesajlar
6
Excel Vers. ve Dili
Excel 2016
Altın Üyelik Bitiş Tarihi
17/02/2018
Merhaba,

Ömer bey sağ olsun nasıl yapacağınızı tarif etmiş.

Ben bir hatırlatma yapma ihtiyacı duydum.

Benim bu başlıktaki ikinci mesajda önerdiğim formül yeni kayıt girdikçe biçimlendirme yapmaktadır. Bu sebeple boş bir sayfada benim önerimi uygularsanız sonuç alamazsınız. "B" sütununa veri girdikçe satır renklendirmesi gerçekleşecektir.

Buna ek olarak Ömer beyin önerdiği;

Kod:
=TEKMİ(SATIR())
=ÇİFTMİ(SATIR())
Fonksiyonları yeni excel versiyonlarında çalışmaktadır.

Eski versiyonlar için aşağıdaki fonksiyonu kullanabilirler.

Tek satır numaralarının renklenmesi için;
Kod:
=MOD(SATIR();2)=1
Ya da;

Çift satır numaralarının renklenmesi için;
Kod:
=MOD(SATIR();2)=0
Size de çok teşekkür ederim...
 
Katılım
21 Kasım 2012
Mesajlar
172
Excel Vers. ve Dili
2013 - TR & EN
Yeni bu konuyla ilgili cozum ariyordum. Alternatif olsun:
Yardimci sutuna veya herhangi bir degere ihtiyac olmadan kosullu bicimlendirmede:
1-Tek satir numarali hucreleri renklendirmek icin:
Kod:
=MOD(SATIR()+1,2)<1
2-Cift satir numarali hucreleri renklendirmek icin:
Kod:
=MOD(SATIR(),2)<1
Kolay Gelsin
 
Üst