Değişken sayıda veriyi sıralama

[alperey333]

Örnek ektedir. Umarım çözümü vardır. Teşekkürler. (Excel 2007)

 

[Emir Hüseyin Çoban]

. . .

Sub kod_bir()
Application.ScreenUpdating = False

aa = [c65536].End(3).Row
bb = Range("j1")

Range("h2:l65536").ClearContents

Range("C1:D" & aa).Sort Key1:=Range("D2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Range("c2:d" & bb).Copy
Range("k2").PasteSpecial

Range("C1:D" & aa).Sort Key1:=Range("D2"), Order1:=xlDescending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Range("c2:d" & bb).Copy
Range("h2").PasteSpecial


Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

. . .

 

[alperey333]

İlginize teşekkür ederim. Emeğinize sağlık. Ama kod yazmadan fonksiyonlarla çözüm arıyorum.

 

[Emir Hüseyin Çoban]

. . .

Kusura bakmayın, sorunuzun fonksiyon bölümünde olduğunu sonradan farkettim.

. . .

 

[asi_kral]

Örnek ektedir. Umarım çözümü vardır. Teşekkürler. (Excel 2007)

Merhaba
Büyük Sıralama İçin
H2 hücresine

=EĞER(I2="";"";İNDİS($C$2:$C$1000;KÜÇÜK(EĞER($D$2:$D$1000=I2;SATIR($D$2:$D$1000)-SATIR($D$2)+1);EĞERSAY($I$2:I2;I2))))

I2 hücresine

=EĞER(SATIRSAY($N$2:N2)>$J$1;"";İNDİS($C$2:$D$1000;KAÇINCI(BÜYÜK($D$2:$D$1000;SATIR(A1));$D$2:$D$1000;0);2))

Küçük Sıralama İçin
K2 hücresine

=EĞER(L2="";"";İNDİS($C$2:$C$1000;KÜÇÜK(EĞER($D$2:$D$1000=L2;SATIR($D$2:$D$1000)-SATIR($D$2)+1);EĞERSAY($L$2:L2;L2))))

L2 hücresine

=EĞER(SATIRSAY($N$2:N2)>$J$1;"";İNDİS($C$2:$D$1000;KAÇINCI(KÜÇÜK($D$2:$D$1000;SATIR(A1));$D$2:$D$1000;0);2))

Bu formülleri yazın ve aşağıya doğru çekerek çoğaltın.
H2 ve K2 hücrelerine yazılan formüller dizi formülüdür. ( Dizi formülü hücreye formül girildikten sonra Enter ile çıkılmadan Ctrl+Shift+Enter tuş kombinasyonu ile aktif olmaktadır. Formülün başında "{" bu işaret sonunda "}" bu işaret çıkacaktır. Bu işaretleri elle yaptğınız takdirde hata alacaksınız. )
Dosyanız Ekte. Ben formülleri 61 satıra uyguladım ve boyadım.

 

[alperey333]

Sayın asi_kral_1967 ilginize ve emeğinize ayrıca vakit ayırıp dosyayı düzenlemiş olmanızdan dolayı şahsınıza müteşekkirim. Ancak büyükten küçüğe sıralamada 18. ve 19. satırda, küçükten büyüğe sıralamada ise 8.ve 9. ile 16. 17. ve 18. satırda aynı fiyata sahip hisselerden ilk bulunan hisseyi tekrarlı olarak yazdığı görülmektedir. Mümkünse fiyatı aynı olanlarında sıralamada (benzerli-benzersiz) sıralanması mümkün müdür. Teşekkürler.

18. ve 19. satırda (Golts-Golts Golts-Mrshl olmalıydı)

8.ve 9. satırlarda (Memsa-memsa Mems1-memsa olmalıydı)
16. 17. ve 18. satırda (Grnyo-Grnyo-Grnyo Mzhld-Idas-Grnyo olmalıydı)

 

[alperey333]

. . .

Kusura bakmayın, sorunuzun fonksiyon bölümünde olduğunu sonradan farkettim.

Asıl siz benim kusuruma bakmayın sayın Çoban. Not olarak eklemeliydim en başta.

 

[asi_kral]

Sayın asi_kral_1967 ilginize ve emeğinize ayrıca vakit ayırıp dosyayı düzenlemiş olmanızdan dolayı şahsınıza müteşekkirim. Ancak büyükten küçüğe sıralamada 18. ve 19. satırda, küçükten büyüğe sıralamada ise 8.ve 9. ile 16. 17. ve 18. satırda aynı fiyata sahip hisselerden ilk bulunan hisseyi tekrarlı olarak yazdığı görülmektedir. Mümkünse fiyatı aynı olanlarında sıralamada (benzerli-benzersiz) sıralanması mümkün müdür. Teşekkürler.

18. ve 19. satırda (Golts-Golts Golts-Mrshl olmalıydı)

8.ve 9. satırlarda (Memsa-memsa Mems1-memsa olmalıydı)
16. 17. ve 18. satırda (Grnyo-Grnyo-Grnyo Mzhld-Idas-Grnyo olmalıydı)

Üstteki formülleri ve dosyayı güncelledim.

 

[alperey333]

Sayın asi_kral_1967 mükemmel olmuş. Teşekkür ederim. İyi çalışmalar.

 

[asi_kral]

Sayın asi_kral_1967 mükemmel olmuş. Teşekkür ederim. İyi çalışmalar.

Kolay Gelsin.