Tarih formatına göre mükerrer kayıtları aktarma ve renklendirme

[ASLAN7410]

Merhaba arkadaşlar hayırlı geceler.

Ekte gönderdiğim excel sayfamda L sütunundaki tarihe göre atlayarak koşullu biçimlendirme yapmak istiyorum.

Forumda araştırdım ancak benim istediğim gibi bir örnek bulamadım.

Yardımcı olur musunuz?

 

[sakman26]

selam,
ekteki örneği inceleyiniz..
L kolonundaki satırların veri içermesi ve L kolonundaki benzersiz adetlerinin sayısının tek ya da çift oluşuna göre biçimlendirme yapıldı.
Biçimlendirmede kullanılan formul :
Tek olması durumu için

=VE($L2<>"";MOD(YUVARLA(TOPLA.ÇARPIM(1/EĞERSAY($L$2:$L2;$L$2:$L2));0);2)=1)

şeklindedir.
kolay gelsin..

 

[ASLAN7410]

Sayın sakman26 ilginiz için çok teşekkür ediyorum, tam istediğim gibi olmuş ellerinize sağlık.

Hayırlı geceler.

 

[sakman26]

rica ediyorum..
iyi geceler..

 

[ASLAN7410]

Sayın sakman26 sizi tekrar rahatsız ediyorum.

Hazırlamış olduğunuz excel sayfasının L sütununda küçük değişiklikler yaptım, tek verilerilerde renklendiriyor.

Sayfamın L sütunundaki veriler veri kaynağından maalesef metin biçiminde geldiği için bu şekilde.

Benim istediğim aynı olan verileri atlayarak renklendirmekti.

 

[sakman26]

selam,
sorunuzu yanlış anlamıyorsam, L kolonunda, aynı olan değerlerin ,tekrar sayılarına göre bir renkli - bir renksiz şeklinde biçimlendirmek isteniyor..

Buna göre, örnek dokumana bir sayfa eklenerek koşullu biçimlendirme uygulandı.

Bu sayfada,

L kolonundaki satırlar boş olmadıkça,KENARLIK lar ile birlikte
1 - satırlardaki değer , ilk defa geliyorsa PEMBE dolgu..

=VE($L2<>"";EĞERSAY($L$2:$L2;$L2)=1)

2 - ÇİFT tekrarlarda , yani 2. , 4, tekrar BOŞ

=VE($L2<>"";MOD(EĞERSAY($L$2:$L2;$L2);2)=0)

3 - TEK tekrarlarda ise , Yani 3. 5 ... Dolgu KAVUNİÇİ ..

=VE($L2<>"";MOD(EĞERSAY($L$2:$L2;$L2);2)=1)

Burada, koşullu biçimlendirmedeki 1. öncelikli koşul
PEMBE dolguya ait olandır. O koşul en üstte bulunmalıdır. ( 3. koşulla çakışma durumlarını önlemek açısından)

PEMBE dolgu olmasın , sadece tekrarlara göre olsun derseniz. koşullu biçimlendirme uygulanmış herhangi bir hücreyi seçin..
Koşullu biçimlendirme > Kuralları Yönet > 1. Koşulu seç > kuralı Sil ile kuralı kaldırırsınız.

 

[ASLAN7410]

Sayın Sakman26 ilginize çok teşekkür ediyorum, yazmış olduğunuz ve gönderdiğiniz sayfayı inceledim maalesef benim istediğim gibi değil.

Ayrıca veriler 20.000 satırı geçtiği için koşullu biçimlendirmeyi de uyguladığımda sayfa kilitleniyor, hazırlanacak olan koşullu biçimlendirmeyi makro ile yapılabilir mi?

Yapmak istediğim L sütunundaki aynı tarihleri renklendirmek, sayfayı tekrar ekte gönderiyorum.

 

[sakman26]

Öncelikle şunu söylemeliyim.
çok satırlı verilerde (örn. 1000 den fazla), Koşullu biçimlendirmeleri , 1 / EĞERSAY şeklinde benzersiz sayım ile yaparsanız yavaşlamalar hatta kilitlenmeler olması çok doğaldır. DİZİ formül mantığında çalışacaktır.
Yeni gönderilen dosyaya yönelik olarak da,
1 - yardımcı sütun kullanılabilinir mi? Makro kullanarak, yardımcı sütunda formüllerle sayım sonucu gelmesi sağlanacak. Yardımcı sütun kullanılacaksa hangi sütunu kullanalım.
2 - verileriniz, tarih bazında aynı tarihler peşpeşe gelecek şekilde sıralı mı? Değilse eğer sıralama yapılsın mı? Sıralama yapılacaksa kriter ne olacak? Sıralama yapılmayacaksa eğer biçimlendirme nasıl olacak?

Koşullandırmadan anladığımda, benzersiz No1 ve tekrar edenleri SARI, benzersiz No2 ve tekrar edenleri GRİ , benzersiz No3 ve tekrar edenleri ise BOŞ olacak şekilde... doğru mu anlıyorum..

 

[ASLAN7410]

Sayın Sakman26 sizi yoruyorum kusura bakmayın, bu iş benim için gerçekten çok önemli.

Sayfanın Z sütunu kullanılabilir. Makro kaydet ile gerekli sıralama yaptırmıştım, benim istediğim sadece mükerrer verileri farklı 2 renkle renklendirmek. Örneğin 20161120 şeklindeki tarih 5 tane ise bunun peşinden devam eden 20161121 şeklindeki tarihten 3 tane olsun, bunlar farklı renkte olmalı ki göze çarpıp işlem yapayım.

 

[sakman26]

Ok.
örneği daha iyi inceleyince istenileni anladım.
Sıralama tarafınızdan yapıldığına göre, formülde dikkate almıyorum.
Z kolonu yardımcı kolon olarak makro ile saydırma için kullanılacak.
Koşullu biçimlendirmeler Z kolonuna göre yapılacak...

Biraz sonra örneği hazırlar gönderirim.

 

[sakman26]

selam,
örnek ektedir. incelersiniz..
açıklamaları da yazmaya çalıştım.

 

[ASLAN7410]

Sayın sakman26 ellerinize sağlık tam istediğim gibi oldu, Allah razı olsun, örnek çok güzel çalışıyor.

Kendi sayfamdaki orijinal sayfamdaki veriyi göndermiş olduğunuz sayfanın içerisine yapıştırıp uygula butonuna bastığımda sayfa şişiyor 10 dakikadır da uygulayamıyor.

Ne yapmam gerekiyor bir türlü çözemedim.

 

[sakman26]

Ben de çözemedim.

 

[Korhan Ayhan]

Deneyiniz.

Sub Satir_Renklendir()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    Range("Z:Z").Clear
    Range("Z1") = "RENK KODU"
    Range("A2:Q" & Rows.Count).Interior.ColorIndex = xlNone
    Son = Cells(Rows.Count, "L").End(3).Row
    Kod = 1
    For X = 2 To Son
        Cells(X, "Z") = Kod
        For Y = X + 1 To Son
            If Cells(Y, "L") = Cells(X, "L") Then
                Cells(Y, "Z") = Kod
            Else
                Kod = Kod + 1
                If Kod > 3 Then Kod = 1
                X = Y - 1
                Exit For
            End If
        Next
    Next
    
    Range("Z:Z").AutoFilter 1, 1
    Range("A2:Q" & Cells(Rows.Count, "L").End(3).Row).Interior.ColorIndex = 36
    Range("Z:Z").AutoFilter 1, 2
    Range("A2:Q" & Cells(Rows.Count, "L").End(3).Row).Interior.ColorIndex = 37
    Range("Z:Z").AutoFilter 1, 3
    Range("A2:Q" & Cells(Rows.Count, "L").End(3).Row).Interior.ColorIndex = 22
    ActiveSheet.ShowAllData
    Range("Z:Z").Clear
    
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[ASLAN7410]

Sayın Korhan Bey ilginiz için çok teşekkür ederim, kodları kendi sayfama uyguluyorum, sadece 1 satırı renklendiriyor, ben mi yapamıyorum, bir örnek gönderir misiniz?

 

[ASLAN7410]

Sayın Korhan Bey kodlar için çok teşekkür ederim, ellerinize sağlık, Allah razı olsun, tam istediğim gibi oldu.

Kendi sayfama uzun uğraşlar sonucu uygulayıp yaptım, sayfa kilitlenmedi, şimdilik güzel çalışıyor.

 

[Ömer BARAN]

Merhaba, alternatif olsun.
.

 

[sakman26]

ben de yarım bırakmayayım , tamamlayayım istedim..
ekteki örnek dosya 20.600 satır veri içeriyor.
Scripting dictionnary kullanılarak yapıldı.
Z kolonunda benzersizler listeleniyor.
AA kolonunda Benzersizlerin tekrar adetleri yazılıyor.
AB kolonunda ise, biçimlendirme için sıralama yapılıyor.
Yani 3 kolon yardımcı kolon kullanılıyor.

Süre 45 sn kadar.

Not : Temizle butonu eklendi. Bu arada 45 değil 15 sn olacaktı...

link :http://s4.dosya.tc/server3/t3xvf1/c.rar.html

 

[ASLAN7410]

İlgilenen herkese çok çok teşekkür ederim, Allah razı olsun, hayırlı geceler.

 

[sakman26]

kendi adıma söylersem,

rica ediyorum..
benden de size iyi geceler