Satır Sayısı Artan Listede Sıralama

[mc_exrem]

Merhabalar Üstadlar,

Dosyamın OZLUK_DOSYASI sayfasındaki verileri internet sayfalarındaki gibi başlıklara tek tık ile ya da çift tık ile C sütununu A‘ dan Z’ ye sıralamak (Z’ den A’ ya gerek yoktur.) ve J sütunundaki verileri de eski tarihten yeni tarihe göre sıralamak istiyorum ama bu veriler artış gösterdiği için Sıralama yaparken belli satır seçildiği için yeni eklenenler sıralamanın dışında kalmaktadır. Bu koşulu göz önünde bulundurarak verileri mümkünse bu şekilde sıralamak istiyorum.
Mümkün değilse buton ile uygulayacak şekilde yardımcı olabilir misiniz?

 

[ÖmerFaruk]

Aşağıdaki kodu sayfanızın kod sayfasında kullanabilirsiniz.
Ancak belirtmeden geçemeyeceğim. Forum bu soruya cevap olacka bir çok çözüm içermektedir. ARAMA menüsüne SORT yazdığınızda neredeyse aynı olan bir çok soru bulabilirdiniz.

'Sıralama çalışma şekli
' A3:P3 aralığındaki herhangi bir hücreye tıklanırsa
' C sütunu birinci kriter A-Z ye
' J sütunu ikinci kriter eskiden yeniye doğru sıralar
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Intersect(Target, Range("A3:P3")) Is Nothing Then Exit Sub
   Application.EnableEvents = False
   Son = Range("A" & Rows.Count).End(3).Row
   Range("A4:P" & Range("A" & Rows.Count).End(3).Row).Sort [C3], xlAscending, [J3], , xlAscending
   Application.EnableEvents = True
End Sub

 

[mc_exrem]

Aşağıdaki kodu sayfanızın kod sayfasında kullanabilirsiniz.
Ancak belirtmeden geçemeyeceğim. Forum bu soruya cevap olacka bir çok çözüm içermektedir. ARAMA menüsüne SORT yazdığınızda neredeyse aynı olan bir çok soru bulabilirdiniz.

'Sıralama çalışma şekli
' A3:P3 aralığındaki herhangi bir hücreye tıklanırsa
' C sütunu birinci kriter A-Z ye
' J sütunu ikinci kriter eskiden yeniye doğru sıralar
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Intersect(Target, Range("A3:P3")) Is Nothing Then Exit Sub
   Application.EnableEvents = False
   Son = Range("A" & Rows.Count).End(3).Row
   Range("A4:P" & Range("A" & Rows.Count).End(3).Row).Sort [C3], xlAscending, [J3], , xlAscending
   Application.EnableEvents = True
End Sub

İlginiz için çok teşekkür ederim.
Konu açarken belirtmediğin için özür dilerim. Personelleri Manuel değil de kod vasıtasıyla aktarıyorum.

Yardımcı olabilir misiniz

 

[ÖmerFaruk]

Nasıl aktardığınızın bir önemi yok.
Kodlar A3-P3 aralığında her hangi bir hücreye yani başlığıa bastığınızda var olan A4-Pson aralığında ne kadar veri varsa hepsini sıralayacaktır.

 

[mc_exrem]

Nasıl aktardığınızın bir önemi yok.
Kodlar A3-P3 aralığında her hangi bir hücreye yani başlığıa bastığınızda var olan A4-Pson aralığında ne kadar veri varsa hepsini sıralayacaktır.

Teşekkürler hocam saygılar

 

[ÖmerFaruk]

Sürekli alıntı yapmanıza gerek yok. Özelliklede son mesaja cevap veriyorsanız. Sadece ekran kalabalıklaşıyor.
Atıf yapmak için örneğin son mesajınızda " #4 nolu mesajınızda " dediğiniz anlaşılacaktır.

Anlayışın için teşekkürler.