• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Aktif Sayfaya Göre Sıralama yapmak

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
bulentkars

bulentkars

Yeni Üye
Katılım
30 May 2022
Mesajlar
605
Çözümler
5
Aldığı beğeni
104
Excel V
Office 365 TR
Konu Sahibi
Arkadaşlar Merhaba;

Aşağıdaki kod ile aktif sayfadaki verileri sıralamak istiyorum. Kod sadece RAPOR adlı sayfada sıralama yapıyor, yapmak istediğim Rapor adını görmeden hangi sayfada sıralama yaparsam ilgili sayfada sayfa ismine bakmadan sıralama yapmak istiyorum. Birde sadece dolu satırları seçimi yapılabilirse çok iyi olur.
Yardımcı olabilirseniz sevinirim. Şimdiden Teşekkürler


[CODE
]Sub Sıralama()

Columns("A:Q").Select
ActiveWorkbook.Worksheets("RAPOR").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("RAPOR").Sort.SortFields.Add2 Key:=Range( _
"Q2:Q7369"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("RAPOR").Sort
.SetRange Range("A1:Q7369")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A1").Select
End Sub
[/CODE]
 
Tarihe göre sırala Oylara göre sırala
Range("A1:Q7369") > Range("A2:Q" & Cells(Rows.Count, 1).End(3).Row)
ActiveWorkbook.Worksheets("RAPOR") > ActiveSheet
ilgili satırları yukarıdaki şekilde değiştirin.
 
Son düzenleme:
Olumlu oy 0 Negatif oyla
Konu Sahibi
Merhaba,

en son yaptığınız kodu yaptım. ama başlık satırını da sıralamaya alıyor, Başlık satırı hariç sıralama yapmasını sağlayabilir misiniz

Sub Makro3()
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add Key:=Range("Q2"), SortOn _
:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers
With ActiveSheet.Sort
.SetRange Range("A2").CurrentRegion
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
.SetRange Range("A1").CurrentRegion.Offset(0, 0) SATIRI sıfır yapınca düzeldi
Çok teşekkür ederim elinize emeğinize sağlık
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst