Soru Makro ile sıfırdan küçük ve sıfırdan büyük değerleri sıralama

[mustafa]

Ekli dosyadaki Ana Sayfada G sütununda hücreyi seçip sırala dediğimde G sütunundaki değerlerin seçilen hücredeki değere göre (sıfırdan küçük ya da sıfırdan büyük) sıralanmasını yaptırmak istiyorum. Ustalar bi el atarsanız çok memnun olurum.

 

[tamer42]

Ekli dosyadaki Ana Sayfada G sütununda hücreyi seçip sırala dediğimde G sütunundaki değerlerin seçilen hücredeki değere göre (sıfırdan küçük ya da sıfırdan büyük) sıralanmasını yaptırmak istiyorum. Ustalar bi el atarsanız çok memnun olurum.

Verdiğiniz bilgiler çok yeterli değil, biraz daha detay verir misiniz,

 

[mustafa]

Verdiğiniz bilgiler çok yeterli değil, biraz daha detay verir misiniz,

Üstat, Ana Sayfada G6 hücresindeki veriye göre sıralama yaptırmak istiyorum. Örneğin G6 hücresindeki sayı -2,5, o zaman G sütunundaki tüm eksi sayılar sıralansın, yok eğer G6 hücresindeki sayı 2,5 ise o zaman da G sütunundaki tüm artı sayılar sıralansın.

 

[tamer42]

Üstat, Ana Sayfada G6 hücresindeki veriye göre sıralama yaptırmak istiyorum. Örneğin G6 hücresindeki sayı -2,5, o zaman G sütunundaki tüm eksi sayılar sıralansın, yok eğer G6 hücresindeki sayı 2,5 ise o zaman da G sütunundaki tüm artı sayılar sıralansın.

Normal sırala deyince işini görmüyor mu?
Buradaki amacını belirtirsen ona göre düşünelim.

 

[mustafa]

Normal sırala deyince işini görmüyor mu?
Buradaki amacını belirtirsen ona göre düşünelim.

Üstat normal sırala dediğimde tüm eksi ya da artı sayılar filtrelenmiyor ki? G6'daki sayı neyse ona göre filtreleniyor. Bilmediğim başka bir yol mu var?

Amacımı yazdım önceki mesajımda; G6 hücresindeki sayı eksi ise G sütunundaki tüm eksi sayılar filtrelensin, yok eğer G6 hücresindeki sayı artı ise G sütunundaki tüm artı sayılar filtrelensin.

 

[pitchoute]

Merhaba, deneyip sonucu paylaşabilir misiniz;

Sub SıralaSayıları()
    Dim ws As Worksheet
    Dim seciliDeger As Double
    Dim sonSatir As Long
    Dim siralamaBolgesi As Range
    
    Set ws = ThisWorkbook.Sheets("Ana Sayfa") ' Sayfa adınız farklıysa sayfa adı ile değiştirin hocam
  
    seciliDeger = ws.Range("G6").Value
    sonSatir = ws.Cells(ws.Rows.Count, "G").End(xlUp).Row
    Set siralamaBolgesi = ws.Range("G2:G" & sonSatir)
    
    If seciliDeger < 0 Then
        ws.Range("G:G").AutoFilter Field:=1, Criteria1:="<0"
        siralamaBolgesi.Sort Key1:=siralamaBolgesi, Order1:=xlAscending, Header:=xlNo
    ElseIf seciliDeger > 0 Then
        ws.Range("G:G").AutoFilter Field:=1, Criteria1:=">0"
        siralamaBolgesi.Sort Key1:=siralamaBolgesi, Order1:=xlAscending, Header:=xlNo
    Else
        ws.Range("G:G").AutoFilter
        siralamaBolgesi.Sort Key1:=siralamaBolgesi, Order1:=xlAscending, Header:=xlNo
    End If
End Sub

 

[mustafa]

Sırala dediğimde ekran böyle oldu;



Şu hatayı veriyor;