3 Alana Göre Otomatik Sıralama Yapmak

Merhaba @merakli .

Sıralama için aşağıdaki kodu dener misiniz?
kODU, Veriler karışık durumdayken ve ilgili sayfa aktifken çalıştırın.

@Ömer BARAN Bey bu kodu bir sub içine yazıp mı çağıracağım böyle sayfanın kod kısmına yazdım ama çalıştıramadım sanki

Tabii ki, örneğin SIRALA ismini kullanarak bir prosedür oluşturup içine bu kod satırını yapıştırın.
Halledersiniz diye düşünerek Sub...End Sub arasına almadan göndermiştim.

.

Ömer BARAN' Alıntı:

Tabii ki, örneğin SIRALA ismini kullanarak bir prosedür oluşturup içine bu kod satırını yapıştırın.
Halledersiniz diye düşünerek Sub...End Sub arasına almadan göndermiştim.

.

Genişletmek için tıklayın ...

Bende acaba başka bir kullanımı mı var diye tereddüt ettim.
Evet dediğiniz gibi yaptım sorun yok yani istenilen sonucu veriyor gibi

Formülde merak ettiğim

, , 1

bu virgüller ve bir rakamı neyi ifade ediyor?

Bunun dışında formülde ilk G sonra A en son B sütunu için formül yazmışsınız.
Oysa ben bu işlemi el ile özel sıralamadan yaparken tam tersi önce B sonra A en son G sütununa göre özel sıralatıyordum.
Burada ise tam tersi yazılmış formül tersten mi sıralamaya başlıyor

1 ARTAN anlamında, 2 yaparsanız AZALAN olarak sıralanır.
ALAN.Sort 1'incil KRİTER, ARTAN/AZALAN TERCİHİ, 2'ncil KRİTER, , ARTAN/AZALAN TERCİHİ, 3'üncül KRİTER, ARTAN/AZALAN TERCİHİ

Soru örneğini hazırlarken belirtmediğim bir durumu farkettim.
Bu 365 veri her gün 60-70 veri arasında girilerek 5 günde oluşuyor.
hepsi aynı anda topluca cuma günü yer alıyor...
Böyle olunca 365. satır yazmak yerine dolu olan en son satır diye revize edilebilir mi?

Bir önceki mesajınızın son kısmını geç fark ettim.

Alan, kodda belirtilen sırayla sıralamaya tabi tutuluyor.
-- TARİHE göre sırala,
-- Aynı tarihlileri SINIFa göre sırala,
-- Aynı tarih ve sınıf olanları SAATe göre sırala.

İşlem tam olarak, koddaki sırayla yapılıyor.
EKlediğiniz örnek belgedeki durumdan ben böyle anladım.

Son mesajınıza gelince, kodu aşağıdaki şekilde değiştirin.


.

Hata verdi ama belki benden kaynaklı olabilir.
End(3).Row
genelde son satırı bulmak için End(xlUp).Row kullanılmış siz End(3).Row yazmışsınız bu 3 neyi temsil ediyor

xlUP anlamındadır. O kısımda sorun yok.
Kodun son kısmında "B1:B" & son olacaktı o kısım hatalı olmuş (kodu düzelttim).

Evet çalıştı. Hem bilgilendirme hemde kodlar için Teşekkür ederim.
Şimdi renklendirmek kaldı

Bence bir sürü renk kodu yerine, H1, H2 ve H3'ü elle renklendirin.
Alanın bu renk sıra ve ritmine göre renklendirilmesini de içerecek şekilde kodu aşağıdaki gibi kullanın.
Kullanım açısından pratik de olur. Renk değişikliklerini kolaylıkla yapabilirsiniz.

Kodu denedim örnekte benim eklediğim renkleri kaldırdı ancak herhangi bir renklendirme olmadı tümü sanki beyaz renk oldu gibi
Cahilliğime verin "Bence bir sürü renk kodu yerine, H1, H2 ve H3'ü elle renklendirin" açıklamanızı anlayamadım

H1'den başlayarak H1, H2, H3'e (3 renk düşünüyorsanız 3 hücreye) elle arkaplan rengi uygulamışsanız,
kod sorunsuz bu 3 renge göre ve buradaki sırayla alanı, tarih deişimlerine göre renklendirir.

Diyelim elle renklendirerek, H1'den aşağı doğru 10 satırlık renk düzeni (renk paleti gibi) oluşturdunuz.
O zaman, koddaki If say = 3 Then say = 0 satırında yer alan 3 sayısını 10 yapmanız yeterli olur.

.

Teşekkür ederim

Ömer BARAN' Alıntı:

H1'den başlayarak H1, H2, H3'e (3 renk düşünüyorsanız 3 hücreye) elle arkaplan rengi uygulamışsanız,
kod sorunsuz bu 3 renge göre ve buradaki sırayla alanı, tarih deişimlerine göre renklendirir.

Diyelim elle renklendirerek, H1'den aşağı doğru 10 satırlık renk düzeni (renk paleti gibi) oluşturdunuz.
O zaman, koddaki If say = 3 Then say = 0 satırında yer alan 3 sayısını 10 yapmanız yeterli olur.

.

Genişletmek için tıklayın ...