• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Makro ile Sıralama

sukruyilmaz1

Altın Üye
Katılım
19 Haziran 2008
Mesajlar
301
Excel Vers. ve Dili
Office 365
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.
 

Ekli dosyalar

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.:cool:
Kod:
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
 
>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?
 
>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.:cool:
Kod:
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
 
Geri
Üst