Şarta göre verilen arasına boş satır oluşturma

[emre67z]

unvan bazında birimide göz önünde tutarak sıralama yaptırıyor dosyadaki çalışma, sıralama yaptığında arada unvanlar arasında birer satır boşluk bırakılabilir mi? çalışma alanını görsel olarak güzelleştirme hata oranını daha aza indirmeyi amaçlıyor bu çalışma.
Örnekte boşluklu istediğim şekilde bir örnek çalışma yaptım. Saygılarımla.

Teşekkürler şimdiden

 

[Korhan Ayhan]

Kullandığınız kodu aşağıdaki gibi değiştirip deneyiniz.

Option Explicit

Sub Sirala_Renklendir()
    Dim X As Long, Son As Long, Say As Long, Formul As String, Alan As Range
    
    Application.ScreenUpdating = 0
    
    Range("C1:G" & Rows.Count).Sort Range("E2"), xlAscending, Range("F2"), , xlAscending, Range("G2"), xlDescending, xlYes
    Range("G1:G" & Rows.Count).Interior.ColorIndex = -4142
    
    Son = Cells(Rows.Count, 3).End(3).Row
    
    For X = 2 To Son
        Cells(X, "G").Interior.Color = 5296274
        Formul = Replace("=LOOKUP(2,1/((E2:E1048576=""" & Cells(X, "E") & """)*(F2:F1048576=""" & Cells(X, "F") & """)),ROW(E2:E1048576))", 1048576, Son)
        Say = Evaluate(Formul)
        Cells(Say, "G").Interior.Color = 49407
        X = Say
        If Say + 1 > Son Then GoTo 10
        If Alan Is Nothing Then
            Set Alan = Cells(Say + 1, "G")
        Else
            Set Alan = Union(Alan, Cells(Say + 1, "G"))
        End If
10  Next
    
    If Not Alan Is Nothing Then
        Alan.EntireRow.Insert
        Alan.Offset(-1).Interior.ColorIndex = -4142
    End If
    
    Set Alan = Nothing
    
    Application.ScreenUpdating = 1
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[emre67z]

Kullandığınız kodu aşağıdaki gibi değiştirip deneyiniz.

Option Explicit

Sub Test()
    Dim i, say, son
    Range("C2:G" & Cells(Rows.Count, 6).End(xlUp).Row).Sort Key1:=Range("F2"), Order1:=xlAscending, Key2:=Range("E2"), Order2:=xlAscending, key3:=Range("G2"), order3:=xlDescending
    Range("C2:G" & Cells(Rows.Count, 6).End(xlUp).Row).Interior.Color = xlNone
    For i = Cells(Rows.Count, 6).End(xlUp).Row To 2 Step -1
        If Cells(i, 5) <> Cells(i - 1, 5) Or Cells(i, 6) <> Cells(i + 1, 6) Then
            say = WorksheetFunction.CountIfs(Range("E2:E" & Cells(Rows.Count, 5).End(xlUp).Row), Cells(i, 5), Range("F2:F" & Cells(Rows.Count, 6).End(xlUp).Row), Cells(i, 6))
            If say < 10 Then
                son = say
            Else
                son = 10
            End If
            Cells(i, 7).Interior.Color = 5296274
            Cells((i + son) - 1, 7).Interior.Color = 49407
        End If
        If i > 2 Then
            If Cells(i, 6) <> Cells(i - 1, 6) Then Rows(i).Insert
        End If
    Next
   
End Sub

Korhan Bey Anlatım bozukluğu yapmış olabilirim, bundan ötürü eksik kalmış, yukarıda "birim dediğim şey aslında çalışma dosyasında ki "KISIM" sütunu olacaktı. Kısım sütununuda baz alarak sıralama yaptırabilir miyiz?

önce kısım'ı sonra unvan bazında ki puanların sıralamasını yapması gerekliymiş. Çalışmayı çalıştırınca fark ettim.

Kusura bakmayın bu tarz bir dönüş yaptığım için. Zaman ayırdığınız için teşekkürler

 

[Korhan Ayhan]

Renklendirme neye göre yapılıyor.

Ayrıca sıralama ile ilgili bölüme müdahale etmedim. Sizin paylaştığınız şekilde sıralıyor.

 

[emre67z]

Renklendirme neye göre yapılıyor.

Ayrıca sıralama ile ilgili bölüme müdahale etmedim. Sizin paylaştığınız şekilde sıralıyor.

Renklendirmeyi unvan bazında kısım+unvan bazında en çok puan alan ve en düşük puan alan şeklinde yapıyor.

Satır ekleme çalışmanızda

x	x	1.kapı	güvenlik	57​
x	x	2.kapı	güvenlik	90​

Satırlarının arasında boşluk olması gerektiğini anlatamamışım sanırım. bu açıcan bakınca çalışma ihtiyaçlarımızı karşıyor gibi duruyor.

 

[emre67z]

öncelikle Kısım bölümünü sıralayıp,sonrasında kısım adı altındaki unvanları puan sırasına göre sıralaması gerekliydi ancak. unvan bazlı sıralama yapıyor. ve kısım sutunu karışık bir hal alıyor bu yüzden liste karışıyor.

Bu kombinasyon yok sanırım makroda.

Özetle, Kısım olarak liste sıralanmalı, kısım icerisindekı aynı unvandaki kişiler puan sıralaması yapılmalıdır.
Her unvan arasında birer boş satır bulunmalıdır.

Tekrar ilginiz için teşekkürler.

 

[Korhan Ayhan]

#2 nolu mesajımı revize ettim. Tekrar deneyiniz.

 

[emre67z]

#2 nolu mesajımı revize ettim. Tekrar deneyiniz.

Korhan Bey, Sanırım renklendirmelere göre boş satır oluşturması gerçekleşiyor. Ancak nedense gereksiz yere bazı yerlerde renklendirme olduğu için fazladan boş satırlar ekliyor makro. bu yüzden reklendirmeyi kaldırabilir miyiz ?kendi içerisinde sıralama yapsın ben koşullu biçimlendirme ile durumu halletmeye çalışayım.

 

[ahmetyildirim]

makroda böyle bir şey yok sanırım.

 

[Korhan Ayhan]

Ben paylaştığınız dosyada defalarca denedim. Bir sorun göremiyorum.

Sorun yaşadığınız dosyada farklı bir durum olabilir mi?

 

[emre67z]

Yeşil alanlardaki gibi fazladan bir sütun açma durumu var. 1200 satırlık bir çalışma. Sıralama vs doğru ancak renklendirmeden ötürü problem var sanıyorum. Renlendirmeyi kaldırırsak çözüleceğini öngörmüştüm. Puan alanındaki renklendirme makronun yaptığı şekilde sabit tutulmuştur

 

[Korhan Ayhan]

Resim çok küçük hiç birşey göremedim.

Dosya olarak paylaşınız.

 

[emre67z]

Resim çok küçük hiç birşey göremedim.

Dosya olarak paylaşınız.

Hocam kendi çalışmamı paylaşamıyorum özel veriler malumunuz, ancak verileri örnek çalışma olarak yüklediğim dosyaya aktarıp deniyorum.
Sizin çalışmanızda evet problemsiz çalışıyor ancak veriler değişince fazladan satır açıyor ve doğru bir sonuç vermiyor.

Yeni bir örnek çalışma hazırladım elimdeki veri şekline yakın. Umarım anlatabilmişimdir.

Saygılarımla.

 

[Korhan Ayhan]

Son dosyanızda kodu test ederken gözüme bir şey çarptı.

Kod ikinci satırdaki veriyi sıralamaya dahil etmiyordu. Onu düzelttim. Ayrıca verinize göre son satırda araya iki satır ekliyordu. Onu da düzeltmek için araya bir koşul ekledim.

Revize koda #2 nolu mesajımdan ulaşabilirsiniz.

 

[emre67z]

Son dosyanızda kodu test ederken gözüme bir şey çarptı.

Kod ikinci satırdaki veriyi sıralamaya dahil etmiyordu. Onu düzelttim. Ayrıca verinize göre son satırda araya iki satır ekliyordu. Onu da düzeltmek için araya bir koşul ekledim.

Revize koda #2 nolu mesajımdan ulaşabilirsiniz.

Örnek Çalışmadaki veriler arttırdım/değiştirdim öyle uyguladım ve kusursuz çalışıyor ancak asıl verilerde hala hatalar ve karışıklık gözlemliyorum. İyice inceledikten sonra neden hatalı çalıştığını da sizin paylaşacağım. Teşekkür ederiz zaman ayırdığınız için

 

[emre67z]

Son dosyanızda kodu test ederken gözüme bir şey çarptı.

Kod ikinci satırdaki veriyi sıralamaya dahil etmiyordu. Onu düzelttim. Ayrıca verinize göre son satırda araya iki satır ekliyordu. Onu da düzeltmek için araya bir koşul ekledim.

Revize koda #2 nolu mesajımdan ulaşabilirsiniz.

Gün içerisinde kod üzerinde gözlem yaptım ancak değişiklik yapamıyorum çünkü renk araması yaparak rengin altına boş satır oluşturulması yapılmış.(Bu kısım bilgilerimin çok üzerinde)
Problemin renklendirme kısmında olduğunu gördüm. Fazladan renklendirme yaptığından dolayı altına başka satırlar eklemekte kod. Ancak neden fazla reklendirme yapıyor bunun nedenini bulamadım.

Sistemden renklendirme kısmı çıkartılırsa problemin çözüleceğini düşünmekteyim,
Saygılarımla.

 

[Korhan Ayhan]

Satır eklemenin renkle bir alakası yok. Öncelikle bunu belirteyim.

Fazla satır ekliyor dediğiniz bölümdeki bilgileri paylaşırsanız inceleme fırsatımız olabilir.

 

[emre67z]

Ekte kvkk şeklinde paylaşıyorum. ekteki dosyada yer almaktadır.