Satır Sıralama

[Denizl]

Merhabalar. Bir çalışma sayfam var sayfa aktif olduğunda a sütunundaki tarihleri otomatik sıralıyor, buraya kadar problem yok. Ancak benim yapmak istediğim sayfa aktif olduğunda a sütununu incelesin zaten sıralı ise işlem yapmasın, sıralı değilse tekrar sıralasın. Araştırdım fakat böyle bir koda rastlamadım. Yardımcı olursanız sevinirim. teşkrler.

 

[usubaykan]

Merhaba;

Option Explicit
Private Sub Worksheet_Activate()
Dim U As Long
Range(Cells(1, "A"), Cells(Cells(65536, "A").End(3).Row, "A")).Copy
Range("IV1").PasteSpecial
Range("A1").Select
Range("IV1:IV" & Range("IV65536").End(3).Row).Sort Key1:=Range("IV1"), Order1:=xlAscending
        For U = 1 To Range("A65536").End(3).Row
            If Cells(U, "A") <> Cells(U, "IV") Then
                Range("A1:A" & Range("A65536").End(3).Row).Sort Key1:=Range("A1"), Order1:=xlAscending
            End If
        Next
Range("IV1:IV" & Range("IV65536").End(3).Row).ClearContents
End Sub

şeklinde küçük bir örnek hazırladım umarım sizi görmek istediğiniz sonuca yönlendirmeye yardımcı olur.

 

[Denizl]

tşkrler elinize sağlık

 

[usubaykan]

tşkrler elinize sağlık

Rica ederim