Veri Sıralama

[bedri41]

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 .

Kodda yazılı olan "Range("B6:H44").Select" bölümünü H320 olarak değiştirebilirsiniz.
Ancak dosyanız birleştirilmiş hücrelerden oluştuğu için 320 den az olan sayfalarda problem olacak. Burdan sonrasında uzmanlar yardımcı olur inşallah.

 

[aacanakova]

Sub Makro1()
Dim Sayfa As Worksheet
For Each Sayfa In Sheets
Sayfa.Select
Range("B6:H44").Select
ActiveWindow.SmallScroll Down:=-15
Selection.Sort Key1:=Range("H6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Next Sayfa
End Sub

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Option Explicit
 
Sub SyfSıralama()
Application.ScreenUpdating = False
Dim Sayfa As Worksheet, son As Long
    For Each Sayfa In Sheets
        son = Sayfa.[A65536].End(3).Row + 2
        Sayfa.Select
        Range("B6:H" & son).Sort Range("H6")
    Next Sayfa
Application.ScreenUpdating = True
End Sub

.

 

[aacanakova]

Merhaba,

Bu şekilde deneyin.

Option Explicit
 
Sub SyfSıralama()
Application.ScreenUpdating = False
Dim Sayfa As Worksheet, son As Long
    For Each Sayfa In Sheets
        son = Sayfa.[A65536].End(3).Row + 2
        Sayfa.Select
        Range("B6:H" & son).Sort Range("H6")
    Next Sayfa
Application.ScreenUpdating = True
End Sub

.

Ömer Hocam
run-time error 1004
aplication-defined or object-defined error

diye hata verdi

 

[Ömer]

Eklediğiniz dosyadamı denediniz farklı dosyada mı? Farklı ise dosyanızı tekrar ekleyin.

 

[aacanakova]

Eklediğiniz dosyadamı denediniz farklı dosyada mı? Farklı ise dosyanızı tekrar ekleyin.

farklı dosyada denedim .Ekliyorum şimdi dosyayı hemen

 

[Ömer]

Denedim, herhangi bir hata yok.

Ekteki dosyayı açtıktan sonra ALT F8 yapın ve çalıştır butonuna basın.

.