Veri Sıralama

[aacanakova]

Arkadaşlar ; Excellde 1000 tane sayfada ortalama 300 satır civarı liste var .Bu listede sütun sayısı satır sayısı falan eşit .Benim İstediğim sokak adlarına göre bunların hepsini otomatik olarak dizmek .

 

[bedri41]

Excelin Veri > Sırala özelliğini kullanarak alfabetik sıralama yaptırabilirsiniz.

 

[İhsan Tank]

Sub sirala()
Range("A:E").Sort key1:=Range("C1"), ORDER1:=xlAscending
End Sub

açıklama

'a:e sütunlarını seçiyoruz c1 hücresini sıralama ölçütü yapıyoruz
'yukarıdan aşşağıya sıralıyoruz(tersi xlDescending)

kod olarakta bunu kullanabilirsiniz

 

[aacanakova]

Bu dediğinizi her sayfa da ayrı ayrı yapmam lazım .Benim istediğim kodu veya formulu çalışırdığım zaman tüm çalışma kitabında ki verileri sayfa sayfa olmak üzere harf sırasına göre kendi içinde dizsin . Normal sıralama yaptırmayı biliyorum .

 

[Ömer]

Merhaba,

Aralığı kendinize göre düzenlersiniz..

Option Explicit
 
Sub SyfSıralama()
Application.ScreenUpdating = False
Dim Sayfa As Worksheet
    For Each Sayfa In Sheets
        Sayfa.Select
        Range("A:B").Sort Range("A1")
    Next Sayfa
Application.ScreenUpdating = True
End Sub

.

 

[aacanakova]

Arkadaşlar öncelikle eksik bilgiden dolayı özür dilerim.Excell dosyası ekledim bir tane .Orda sarı olan kısım sabit kalacak diğer tarafta adres kısmı alfabetik sıraya göre dizmek istiyorum ve bunu her sayfada ayrı ayrı yapmak istemiyorum .

 

[İhsan Tank]

merhaba 2003 formatinda .xls olarak eklerseniz yardımcı olmaya çalışalım

 

[aacanakova]

Listeyi ekledim

 

[İhsan Tank]

anlamadığım bir konu var benim biraz önce verdiğim kod çalışıyor sizin aynı çalışma kitabınızın içindemi 652 sayfa var yoksa 1357'in içindemi bu soruya cevap verirseniz ona göre çalışma yapayım

 

[tanyel_09]

üstadım benim sorunum çok bait personel giriş çıkışlarına göre mesailerini hesaplayacak bi formül arıyorum
örneğin a1 hücresine 08:00 yazacağım
a2 hücresine 18:00 yazacağım giriş saatinden çıkış saatini çıkaracak 9 a eşit ya da büyük ise a3 hücresine 1 yazacak ve 9 a eşit ise a4 hücresine 0 yazacak eğer 9 dan büyük ise a5 hücresine a3 hücresindeki sonuçdan 9 u çıkartıp çıkan sonucu yazacak.

 

[İhsan Tank]

üstadım benim sorunum çok bait personel giriş çıkışlarına göre mesailerini hesaplayacak bi formül arıyorum
örneğin a1 hücresine 08:00 yazacağım
a2 hücresine 18:00 yazacağım giriş saatinden çıkış saatini çıkaracak 9 a eşit ya da büyük ise a3 hücresine 1 yazacak ve 9 a eşit ise a4 hücresine 0 yazacak eğer 9 dan büyük ise a5 hücresine a3 hücresindeki sonuçdan 9 u çıkartıp çıkan sonucu yazacak.

merhaba
konunuza yeni bir başlık açınız

 

[mancubus]

örnekten gördüğüm kadarı ile hücreleri birleştirmişsiniz.

etkin bir sıralama için tek veri tek hücre olarak organize etmeniz yararınıza olacaktır.

 

[aacanakova]

Soruyu tekrar soruyorum ve dosya ekliyorum ;
Bi tane çalışma kitabım var içerisinde 600 küsür sayfa var .ekte görüldüğü üzere çalışma sayfasının sarı olan kısımları sabit ve diğer kısımlarında aşağıya doğru epey sıra var .Benim istediğim sarı kısımlar sabit klamak kaydı ile diğer kısmı sokak adına göre alfbetik sıraya dizmek ve bunu 600 küsür sayfada ayrı ayrı yapmamamk .Çünkü bütün sayfalar da ki format aynı Kodu ve ya formülü çalıştırdığım zaman her sayfayı kendi içinde sokak ismine göre alfabetik sıraya dizmesi .

 

[aacanakova]

dosya ekte

 

[İhsan Tank]

dosya ekte

biraz acele ediyorsunuz dosyalarınız ekte istediğinizi kullanabilirsiniz.
ömer uzman'ın verdiği Kodu Uyarladım

Option Explicit
Sub SyfSıralama()
Application.ScreenUpdating = False
Dim Sayfa As Worksheet
For Each Sayfa In Sheets
Sayfa.Select
Range("B:H").Sort Range("h2")
Next Sayfa
Application.ScreenUpdating = True
End Sub

uyarlanmış kod

 

[aacanakova]

Kodu çalıştırdığım zaman aşağıdaki duruma geldi .Ve birde şu var gönderdiğim ekte her bir isim soyisim ana adı baba adı ,yani her hücre 3 satırın birleştirilmesi ile tek hücre yapılmış sizin gönderdiğiniz tek bir hücre

 

[İhsan Tank]

merhaba
bende aynı yerde takıldım çok mesaj gönderince yaptığım çalışmayı gönderdim
ikinci sorunuza cevabım ise tek hücrede olmak zorunda çünkü sıralama yapmıyor onuda denedim.

 

[aacanakova]

biraz acele ediyorsunuz dosyalarınız ekte istediğinizi kullanabilirsiniz.
ömer uzman'ın verdiği kodu uyarladım

option explicit
sub syfsıralama()
application.screenupdating = false
dim sayfa as worksheet
for each sayfa ın sheets
sayfa.select
range("b:h").sort range("h2")
next sayfa
application.screenupdating = true
end sub

uyarlanmış kod

daha rahat çözebilmenize yardımcı olması açısından dosyayı terar düzenleyerek ekliyorum .

 

[bedri41]

Ömer Bey'in yazmış olduğu kodlarla hazırlanmış ekteki örneği incelermisiniz.

 

[aacanakova]

Dostum teşekkür ederim kod için ancak daha önce yazmıştım. Aşağıya doğru 300 satır kadar var diye yazmıştım sanırım dikkat etmediniz 44 te sınırlamışsınız. Her sayfanın satır sayısı değişiyor .Yani değişiyor derken 295 ile 320 arası değişiyor .