sıralama

[teknikyapı]

Merhaba.
Arkadaşlar uzak kaldığımdan mıdır nedir şu sıralamayı nasıl yapıyorduk ?
Yani (/) ile ayrılan rakamlarıda dikkate alarak küçükten büyüğe doğru sıralama yaptırmak istiyorum.


27.560/7
27.507/A
26.802
25.048/3B
27.535
26.042
27.503
27.581
23.243/2
26.191
26.206/C
26.193/1
25.048/3A
26.351/B
26.662/A
27.525/2
27.528/3
26.195/1
26.701/1

 

[teknikyapı]

arkadaşlar,
güncel

 

[teknikyapı]

maalesef tekrar etmek zorundayım.
herhangi bir fikri olan arkadaşım ? ( A-Z ile sıralama ile yapınca,önce (/) ile ayrılanlar ile diğerleri ayrı sıralanıyor )

 

[1Al2Ver]

Merhaba,

Aşağıdaki link size yardımcı olabilir sanırım.

http://www.excel.web.tr/f122/s-ralama-fonksiyonu-uygulamalar-t23962.html

 

[Merhum İdris SERDAR]

Merhaba.
Arkadaşlar uzak kaldığımdan mıdır nedir şu sıralamayı nasıl yapıyorduk ?
Yani (/) ile ayrılan rakamlarıda dikkate alarak küçükten büyüğe doğru sıralama yaptırmak istiyorum.


27.560/7
27.507/A
26.802
25.048/3B
27.535
26.042
27.503
27.581
23.243/2
26.191
26.206/C
26.193/1
25.048/3A
26.351/B
26.662/A
27.525/2
27.528/3
26.195/1
26.701/1

1. Yanındaki sütuna bir kopyasını çıkarın.
2. Çıkarılan bu kopyayı Text to Column ile iki sütuna ayırın.
3. Sayısal olarak kalan sütuna göre sıralama yapın.

.

 

[teknikyapı]

sn 1Al2Ver,ilginiz için teşekkür ederim ama maalesef sorun o değil

 

[muygun]

Merhaba;
fazladan sütun işgalinin sizce bir mahsuru yoksa eki inceleyin.
İyi çalışmalar.

 

[teknikyapı]

Zaman ayıran arkadaşlara çok teşekkür ederim ama benim bu verilerin sağındaki ve solundaki sütunlarda maalesef veriler mevcut.Yani acaba excelin yerleşik fonksiyonu olan ( A-Z) vb ile bu problem çözülemezmi acaba? ( yani bu verilerin hücrelerini başka biçimlendirmek gibi vs aklıma gelen ! )

 

[TAHİR ARSLAN]

Sub SIRALA()
'
' SIRALA Makro
' Makro Tahir Arslan tarafından 06.07.2009 tarihinde kaydedildi.
'

'
Range("A2:A5").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns Destination:=Range("A2"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 2), TrailingMinusNumbers:=True
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Selection.Sort Key1:=Range("A2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

MsgBox "SIRALANDI..!!"

End Sub

 

[TAHİR ARSLAN]

İçim rahat etmedi. Örnek Dosya ektedir.