Dosya numarasına göre küçükten büyüğe doğru sıralama

[gezgin-49]

Sayın üstadlarım ekli dosyada dosya numarasına göre sıralama yapmak istedim ancak renkli olarak belirttiğim dosyalar kendi sırasına yerleşmiyor, bunun için yardımlarınızı bekliyorum. saygılarımla

 

[Erdem Akdemir]

Merhaba,

j2 hücresine tag'daki formülü yazın ve aşağıya doğru kopyalayın.
Orada çıkan sonuçları sıralandırırsanız tablonuz tarih ve sayı numarasına göre sıralanır.

=--(SOLDAN(A2;4)&YİNELE(0;9-UZUNLUK(PARÇAAL(A2;6;9)))&PARÇAAL(A2;6;9))

 

[ayşe006]

bu sorun bendede olmuştu sorunu / işaretinden sonra gelecek rakamın basamağına göre işlem yapması yani 2 basamkalı rakamları 022 gibi kullanmanızı öneririm. 2012/001 2012/002 2012/011 gibi eğer dosyalarınız 1000 üzeri ise 2012/0001 gibi kullanmanız gerekiyor. o zaman excel en doğru sonucu veriyor.

 

[gezgin-49]

Sayın üstadım denedim ama olmadı, bunu makro ile yapmak mümkün mü?
aslında excelde azalan sıralamada sıraya düzüyo, ama dosyada da renkli olarak gösterdiğim gibi "/" işaretinden sonra ilk gelen numaraların aynı basamakta olanları kendi arasında düzgün sıralıyor, basamak değerleri farklı olunca sıralama yanlış oluyor

 

[gezgin-49]

Sayın Ayşe006 bende öyle yapmaya kalktım ama epey fazla bir veri var gözümden kaçabilir ve bayağı bir zaman alabilir

 

[Erdem Akdemir]

Sayın üstadım denedim ama olmadı, bunu makro ile yapmak mümkün mü?
aslında excelde azalan sıralamada sıraya düzüyo, ama dosyada da renkli olarak gösterdiğim gibi "/" işaretinden sonra ilk gelen numaraların aynı basamakta olanları kendi arasında düzgün sıralıyor, basamak değerleri farklı olunca sıralama yanlış oluyor

Ben düzgün sıraladım.
Ek'teki dosyaya bakabilirsiniz. Sizin dosyanız farklı olabilir mi?
Makro ile yapmak uzun ve zahmetli, formül işinizi görecektir.

 

[gezgin-49]

sayın üstadım kuvari bu benim işimi görür, çok teşekkür ederim. Allah razı olsun

 

[ayşe006]

Buda benim yöntemlerimden ne yaptığımı biraz açıkladım ama bu kadar yapabiliyorum elimden gelen bu olur ama gözden kaçırmamak için ideal ÇOK ÇOK VERİLER İÇİN

 

[Erdem Akdemir]

Ayşe hanım,

Sizde dosyanızı benim verdiğim formüle göre uyarlayabilirsiniz. Sizin yönteminiz biraz uzun.

 

[Asri]

Alternatif numaralandırma için;

Aşağıdaki excel mouse sağ tuş daki eklenti ile bir veriyi istediğiniz uzunluğa kolayca tamamlayabilirsiniz.

Programın aşağıdaki özelliğini kullanarak
*" Hücreyi bu uzunluğa tamamla ortaya ekleyerek , Uzunluk 10, doldur 0 ve bundan sonra /

Bu verileri 2012/1 , 2012/01 ve 2012/001
Bu şekilde değiştirecektir 2012/00001 , 2012/00001 ve 2012/00001

http://www.excel.web.tr/f52/excel-zel-lemler-menusu-eklentisi-sao-tu-t157219/sayfa2.html#post884247

 

[halit3]

Sayın üstadlarım ekli dosyada dosya numarasına göre sıralama yapmak istedim ancak renkli olarak belirttiğim dosyalar kendi sırasına yerleşmiyor, bunun için yardımlarınızı bekliyorum. saygılarımla

Alternatif kod

Sub Makro1()


ZBasla = TimeValue(Now)
zaman = Timer
Application.ScreenUpdating = False
Application.Calculation = xlManual


Set s1 = Sheets(ActiveSheet.Name) ' veri sayfası

Son1 = s1.Cells(Rows.Count, "A").End(3).Row

For j = 2 To Son1

s1.Cells(j, "J") = s1.Cells(j, "A")
deg1 = Split(WorksheetFunction.Trim(s1.Cells(j, "A")), "/")
If UBound(deg1) > 0 Then
s1.Cells(j, "A") = Val((CDbl(deg1(0))) & Format(CDbl(deg1(1)), "00000"))
End If
Next j

s1.Range("A2:J" & Son1).Sort Key1:=s1.Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Range("B1").Select

For j = 2 To Son1
s1.Cells(j, "A") = s1.Cells(j, "J")
s1.Cells(j, "J") = ""
Next j
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
zBitis = TimeValue(Now)

MsgBox "İşleminiz tamamlanmıştır." & Chr(10) & _
"İşlem süresi ; " & Format(Timer - zaman, "0.00") & Chr(10) & _
"Geçen Süre " & CDate(zBitis - ZBasla), vbInformation, " Sonuç Penceresi"

End Sub

Not J sutunu yardımcı olarak kullanıldı

 

[gezgin-49]

Sayın üstadım Halit3 harikasınız, Allah razı olsun tam istediğim gibi, iyiki varsınız. saygılarımla

 

[gezgin-49]

Sayın üstadım Halit3 harikasınız, Allah hepinizden razı olsun tam istediğim gibi, iyiki varsınız. saygılarımla

 

[halit3]

Sayın üstadım Halit3 harikasınız, Allah razı olsun tam istediğim gibi, iyiki varsınız. saygılarımla

Teşekkürler iyi çalışmalar

 

[ayşe006]

Merhaba,

j2 hücresine tag'daki formülü yazın ve aşağıya doğru kopyalayın.
Orada çıkan sonuçları sıralandırırsanız tablonuz tarih ve sayı numarasına göre sıralanır.

=--(SOLDAN(A2;4)&YİNELE(0;9-UZUNLUK(PARÇAAL(A2;6;9)))&PARÇAAL(A2;6;9))

slm üstadım şu formülü 45/1 ( 045/0001) 42/52 (042/0052) 47/450 (047/0450) olarak ayarlamak mümkünmü ?