Büyükten Küçüğe ve Küçükten Büyüğe Sıralamak

[wolles]

merhabalar

ekteki tabloda yapmak istediğim uygulama var. yardımcı olabileecek arkadaşlarımı bekliyorum.



tabloda kişi isimleri var. bu isimlerin verileri yüksek yada az olanları isim sıralaması yapmak istiyorum diğer bir sayfaya.

 

[İhsan Tank]

merhabalar

ekteki tabloda yapmak istediğim uygulama var. yardımcı olabileecek arkadaşlarımı bekliyorum.



tabloda kişi isimleri var. bu isimlerin verileri yüksek yada az olanları isim sıralaması yapmak istiyorum diğer bir sayfaya.

merhaba
boş bir module
Küçük'ten Büyüğe Sıralamak İçin

Sub sirala_K_B()
Range("C7:D13").Sort key1:=Range("D7"), ORDER1:=xlAscending
End Sub

Büyük'ten Küçüğe Sıralamak İçin

Sub sirala_B_K()
Range("C7:D13").Sort key1:=Range("D7"), ORDER1:=xlDescending
End Sub

 

[wolles]

üzgünüm. beceremedim. çok gerekli yardımcı olursanız sevinirim

 

[İhsan Tank]

üzgünüm. beceremedim. çok gerekli yardımcı olursanız sevinirim

eki inceleyin
2 tane buton var onlara tıklayarak deneyiniz

 

[wolles]

bu iyi oldu. teşekkür ederim ilginize.

 

[İhsan Tank]

bu iyi oldu. teşekkür ederim ilginize.

rica ederim
:yazici:

 

[wolles]

hocam biraz abartayım kusura bakmayın

makro değilde formilize olarak bunu yapamazmıyız.yani ben eski sistem if eğer döngüsüne alışmışım böyle makrolar biraz tuhaf geldi. sorunu çözdük ama benim mantığım hala anlamış değil.

ne önerirsiniz ?

 

[İhsan Tank]

hocam biraz abartayım kusura bakmayın

makro değilde formilize olarak bunu yapamazmıyız.yani ben eski sistem if eğer döngüsüne alışmışım böyle makrolar biraz tuhaf geldi. sorunu çözdük ama benim mantığım hala anlamış değil.

ne önerirsiniz ?

merhaba
eki inceler misiniz
formülle isterseniz aynı yerde biraz zor yapılır sanırım ben başka bir yerde yardımcı sütun kullanarak yaptım
mavi - kırmızı olan yerdeki formüller dizi formülüdür.

Dizi Formülü Formül Hücreye Girildikten Sonra Enter Tuşuna Basmadan Ctrl+Shift+Enter Tuş Kombinasyonu İle Aktif Olmaktadır. Formülün Başında Ve Sonunda { } Bu İşaretler Çıkar Elle Eklediğiniz Takdirde Formül Hata Verir.

ve verilerle sınırlıdır.

 

[wolles]

çözmektense anlamak daha güzel oldu.
allah yar ve yardımcınız olsun.

 

[İhsan Tank]

çözmektense anlamak daha güzel oldu.
allah yar ve yardımcınız olsun.

kolay gelsin
Amin Allah Razı Olsun
Allah Hepimizin Yardımcısı Olsun.
:yazici:

 

[onurdogan]

Hocam, peki bunu iki butona değil de, tek bir label a atmak istersek nasıl birleştirmemiz gerekiyor

 

[İhsan Tank]

Hocam, peki bunu iki butona değil de, tek bir label a atmak istersek nasıl birleştirmemiz gerekiyor

sanrıım bir commanbutton demek istediniz

Private Sub CommandButton1_Click()
If Range("A1") = 0 Then
Range("C7:D13").Sort key1:=Range("D7"), ORDER1:=xlAscending
CommandButton1.Caption = "Büyükten Küçüğe"
Range("A1") = 1
Else
Range("C7:D13").Sort key1:=Range("D7"), ORDER1:=xlDescending
CommandButton1.Caption = "Küçükten Büyüğe"
Range("A1") = 0
End If
End Sub

bu kodu deneyiniz

 

[onurdogan]

yok hocam doğru dedim label.
category date miktar
sağlık 12.12.2011 50
yemek 11.11.2011 20
spor 11.12.2011 30

burda category ye tıkladığımda o sütunu ve sıralıyacak tekrar bastığımda da ters sıralayacak. buna bağlı olarak da diğer sütunların ilgili satırlarını da yer değiştirmesi gerekiyor.

 

[İhsan Tank]

label dediniz nesneye tıklayabiliyor musunuz siz öyle ise kusura bakmayın ben tıklayamıyorum ondan yardımcı olamıyacağım.
yok siz başka bir şey istiyorsanız örnek dosya ekleyin

 

[onurdogan]

evet hocam tıklanabiliyor eki bi incele istersen şimdi hallettim

 

[wolles]

hocam gerekli sıralayı yaptık.

peki yapılan veri sıralamasına göre 1. nin karşısına 100 2. nin karşına 75 3. karşısına 50 gibi gibi yazdırmak istesek??

bi nevi puanlama yada ödüllendirme gibi

 

[İhsan Tank]

hocam gerekli sıralayı yaptık.

peki yapılan veri sıralamasına göre 1. nin karşısına 100 2. nin karşına 75 3. karşısına 50 gibi gibi yazdırmak istesek??

bi nevi puanlama yada ödüllendirme gibi

dosya üzerinde açıklasanız. bunu anlamadım