• Bir süredir maillerde yaşanan sorunlar giderilmiştir. Şifremi unuttum yaparak şifrelerinizi mailinizden alabilirsiniz.

  • Foruma hoş geldin 👋 Ziyaretçi

    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 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

Bronz Üye
Kullanıcı Bilgileri
Aktiflik
Çevrimdışı
Katılım
30 May 2022
Mesajlar
444
Çözümler
4
Aldığı beğeni
72
Excel V
Office 365 TR
Konuyu Başlatan
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
Merhaba;

Hata Veriyor. Kod üzerinde yapabilir misiniz acaba


1726482534290.png
 
Olumlu oy 0 Negatif oyla
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
bu sefer3 satırdan itibaren sırlama yapıyor, 2. satır sıralamaya dahil olmuyor
 
Olumlu oy 0 Negatif oyla
.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
#5 nolu mesajdaki kodu kullanın tüm sorunlar halloldu herhalde.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst