Makro ile Sıralama

[sukruyilmaz1]

Sayın Üstadlarım, Saygıdeğer Uzmanlarım,

Ekteki örnek excelde yardımlarınıza ihtiyacım var. Forumdaki örnek dosyalara baktım fakat kendime uyarlayamadım Örneğin tarihe göre sıralamaya çalıştım fakat sadece o sütünü sıralayabildim. diğer sutunlar sıralanmadı. tarihle beraber tüm tablonun sıralanması gerekiyor.

Şimdiden çok teşekkür ederim.
Saygılarımla.

 

[Orion1]

Sayın Üstadlarım, Saygıdeğer Uzmanlarım,

Ekteki örnek excelde yardımlarınıza ihtiyacım var. Forumdaki örnek dosyalara baktım fakat kendime uyarlayamadım Örneğin tarihe göre sıralamaya çalıştım fakat sadece o sütünü sıralayabildim. diğer sutunlar sıralanmadı. tarihle beraber tüm tablonun sıralanması gerekiyor.

Şimdiden çok teşekkür ederim.
Saygılarımla.

Buyurun.

Private Sub CommandButton1_Click()
Dim sonsat As Long
sonsat = Cells(Rows.Count, "C").End(xlUp).Row
Range("B5:G" & sonsat).Sort Range("C5")
MsgBox "Tarihe göre sıralandı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[sukruyilmaz1]

>Sayın Orion Üstadım süpersiniz. Elinize sağlık. peki en çok ve en aza göre nasıl sıralama yapacağız?

 

[Orion1]

>Sayın Orion Üstadım süpersiniz. Elinize sağlık. peki en çok ve en aza göre nasıl sıralama yapacağız?

Buyurun.

Sub encoksiralama59()
Dim sonsat As Long
sonsat = Cells(Rows.Count, "C").End(xlUp).Row
Range("B5:G" & sonsat).Sort key1:=Range("C5"), order1:=xlAscending
MsgBox "Tarihe göre küçükten büyüğe göre sıralandı." & vbLf & "evrengizlen@hotmail.com"
End Sub

Sub enazsiralama59()
Dim sonsat As Long
sonsat = Cells(Rows.Count, "C").End(xlUp).Row
Range("B5:G" & sonsat).Sort key1:=Range("C5"), order1:=xlDescending
MsgBox "Tarihe  büyükten küçüğe göre sıralandı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[sukruyilmaz1]

Çok teşekkür ederim Orion Uzmanım. Elinize sağlık. Saygılarımla

 

[Orion1]

Çok teşekkür ederim Orion Uzmanım. Elinize sağlık. Saygılarımla

Rica ederim.
İyi çalışmalar.