sütunlar arasında en yüksek 5 tanesini boyama

[llllenzollll]

Merhaba üstalar. Ekte yer alan dosyada firmalardan aylık bazda yapılan alımların toplamına göre sıralanmıştır.Yapmak istediğim ise ay bazında en yüksek alım yapılan 5 firmayı işaretlemek.

 

[Muzaffer Ali]

Merhaba.

Veri alanının tamamını seçin.

Koşullu biçimlendirme formülü:
=D3>=BÜYÜK(D$3:D$16;5)

 

[llllenzollll]

Merhaba.

Veri alanının tamamını seçin.

Koşullu biçimlendirme formülü:
=D3>=BÜYÜK(D$3:D$16;5)

çok teşekkür ederim üstad.Koşullu biçimlendirme sekmesine formül girildiğini bilmiyordum sayende onuda öğrendim.

 

[llllenzollll]

üstad birde bu formülü =D3>=BÜYÜK(D$3$16;5) nasıl anlamamız gerekiyor tam olarak. Formul adım adım ne anlatıyor onu kavrayamadım. D3 hücresi büyük ve eşittir D3 ve D 16 hücreleri arasındaki en büyük 5 değere gibi mi konumlandırmak gerekiyor.

 

[Muzaffer Ali]

Büyük formülünü anlarsanız yeterli olur.
Aşağıdaki formülü bir hücreye kopyalayın.
=BÜYÜK(D$3:D$16;5)

D3: D16 aralığı arasındaki en büyük 5. rakamı döndürür.

=D3>=BÜYÜK(D$3:D$16;5) Eğer D3 hücresi D3: D16 aralığındaki hücrelerin en büyük 5. değerine eşit yada büyükse "DOĞRU" sonucunu döndürür. Bu formülü de bir hücreye kopyalayıp sonucu görün.

'$' işaretinin ne manaya geldiğini de şöyle açılayayım;

Gözlemlemek için formülü her hangi bir sayfada D3'e kopyalayın ve D3: D16 aralığına çoğaltın.
Formülde sadece D3 hücre adresi ve kolon başlık harfi olan 'D' lerin değiştiğini 3. satır ve 16. satırı ifade eden 3 ve 16'nın '$' işareti yüzünden değişmediğini göreceksiniz.

Kolay gelsin.

 

[llllenzollll]

Büyük formülünü anlarsanız yeterli olur.
Aşağıdaki formülü bir hücreye kopyalayın.
=BÜYÜK(D$3:D$16;5)

D3: D16 aralığı arasındaki en büyük 5. rakamı döndürür.

=D3>=BÜYÜK(D$3:D$16;5) Eğer D3 hücresi D3: D16 aralığındaki hücrelerin en büyük 5. değerine eşit yada büyükse "DOĞRU" sonucunu döndürür. Bu formülü de bir hücreye kopyalayıp sonucu görün.

'$' işaretinin ne manaya geldiğini de şöyle açılayayım;

Gözlemlemek için formülü her hangi bir sayfada D3'e kopyalayın ve D3: D16 aralığına çoğaltın.
Formülde sadece D3 hücre adresi ve kolon başlık harfi olan 'D' lerin değiştiğini 3. satır ve 16. satırı ifade eden 3 ve 16'nın '$' işareti yüzünden değişmediğini göreceksiniz.

Kolay gelsin.

teşekkür ederim üstad.

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.

 

[llllenzollll]

Aynı tabloda bu sefer alt toplamın en az % 60 sağlayan firmaları büyükten küçüğe boyamak veya belirlemek istiyorum.

Normal sartlarda her ayı kendı içinde sıralayıp üstten aşağı doğru süzerek % 80 e denk gelen kısmı ay ay elden işaretliyordum.Bunu daha basit bir formülle yapmam mümkünmü.

 

[Muzaffer Ali]

Koşullu biçimlendirmeye yeni kural ekleyip formül kısmına aşağıdaki formülü kopyalayın.

=D3>(D$17)*0,6

 

[llllenzollll]

Koşullu biçimlendirmeye yeni kural ekleyip formül kısmına aşağıdaki formülü kopyalayın.

=D3>(D$17)*0,6

üstad bu formülle yapamadım. Belki tam olarak yapmak istediğimi anlatamamış olabilirim.Aylık bazda alım yaptığımtoplam tutarın % 60 ına denk gelen en buyuk alış yaptığım firmaları renklendirsin veya işaretlesin.

Ocak ayındaki alış tutarım 18.924.101,74 TL % 60 ı 11.354.461,04 TL Buna göre Ocak ayında bu rakama hemen hemen tekabül eden en yüksek tutarlı alış yaptığım firmaları işaretlemek istiyorum.


içerisinde içerisindeki alışlardan toplam alış tutarının % 60 ına denk gelen

 

[Muzaffer Ali]

Tamam verdiğim formül bunu yapıyor. Ocak ayı içerisinde 11.354.461,04 den büyük hiç değer olmadığı için renklendirmiyor.
Aslında hiçbir alım o ayın %60 ını geçmiyor onun için renklendirme hiç olmuyor.

 

[llllenzollll]

üstad demek istediğimi ekteki tabloda anlattım.Sanırım daha açıklayıcı olucak

 

[Muzaffer Ali]

Toplamı %60'ı geçen en büyük rakamları diyorsunuz değil mi?

Kod ile yapmanın bir sakıncası var mı?

 

[llllenzollll]

Evet ustad.Kod dan anlamıyorum ama yapılmasında tabiki sakınca yok görmüş öğrenmiş oluruz

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Renklendir()
    Dim X As Byte, Y As Byte, Tutar As Double, Veri As Double
    Dim Toplam As Double, Bul As Range, Adres As String
    
    Range("D3:I16").Interior.ColorIndex = xlNone
    
    For X = 4 To 9
        Tutar = Cells(19, X)
        Toplam = 0
        For Y = 1 To 14
            Veri = WorksheetFunction.Large(Range(Cells(3, X), Cells(16, X)), Y)
            Toplam = Toplam + Veri
            If Toplam > Tutar Then
                Toplam = Toplam - Veri
                GoTo 10
            Else
                Set Bul = Range(Cells(3, X), Cells(16, X)).Find(Veri, , , xlWhole)
                If Not Bul Is Nothing Then
                    Adres = Bul.Address
                    Do
                        If Bul.Interior.ColorIndex = xlNone Then
                            Bul.Interior.ColorIndex = 6
                            Exit Do
                        End If
                        Set Bul = Range(Cells(3, X), Cells(16, X)).FindNext(Bul)
                    Loop While Not Bul Is Nothing And Bul.Address <> Adres
                End If
            End If
        Next
10  Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[llllenzollll]

teşekkür ederim üstad eklemeye çalışacağım biraz acemiyin

 

[Korhan Ayhan]

Dosyanızı açın.
ALT+F11 tuşlarına basın.
INSERT menüsünden MODULE seçeneğini seçin.
Sağ tarafta açılan beyaz renkli pencereye kodu yapıştırın.

Excel sayfanıza dönün. EKLE menüsünden sayfanıza bir dikdörtgen ekleyin.
Şekil üzerinde sağ klik yapın ve MAKRO ATA komutunu uygulayın. Açılan ekranda RENKLENDİR makrosunu seçerek işlemi tamamlayın.

Dilerseniz şekli renklendirebilirsiniz.

Dosyanızı "Makro İçerebilen Excel Çalışma Kitabı" formatında kayıt edin.

Sonra butona tıklayarak kodu çalıştırın.

 

[llllenzollll]

Dosyanızı açın.
ALT+F11 tuşlarına basın.
INSERT menüsünden MODULE seçeneğini seçin.
Sağ tarafta açılan beyaz renkli pencereye kodu yapıştırın.

Excel sayfanıza dönün. EKLE menüsünden sayfanıza bir dikdörtgen ekleyin.
Şekil üzerinde sağ klik yapın ve MAKRO ATA komutunu uygulayın. Açılan ekranda RENKLENDİR makrosunu seçerek işlemi tamamlayın.

Dilerseniz şekli renklendirebilirsiniz.

Dosyanızı "Makro İçerebilen Excel Çalışma Kitabı" formatında kayıt edin.

Sonra butona tıklayarak kodu çalıştırın.

Üstadım elinize emeğinize bilginize sağlık.Makro olayını hiç bilmediğim halde sayenizde makro atadım ve çalıştı.