Birden çok tabloyu aynı anda sıralamak

[ant1905]

Arkadaşlar herkese selamlar

konuyu açmadan bayağı bir aradım ama benzer bir soru bulamadım.
Ekte gönderdiğim dosyada problemi izah etmeye çalıştım. Makro kaydederek daha küçük çaplı sorunlara çözüm bulmuştum ama daha evvelki bir tecrübem bu sefer aynı yolu izlersem yine "procedure too large" hatası verecek.

yardımcı olabilecek arkadaşlarıma şimdiden sonsuz teşekkür ederim
saygılar

 

[Muhammet Okumuş]

Merhaba,

Sub Sırala()
For i = 1 To 50
x = (i - 1) * 7 + 4
y = x + 5
Range(Cells(3, x), Cells(13, y)).Sort KEY1:=Cells(4, x + 5), ORDER1:=xlDescending, KEY2:=Cells(4, x + 4), ORDER2:=xlDescending, KEY3:=Cells(4, x + 3), ORDER3:=xlDescending
Next
End Sub

Kodu deneyiniz.

 

[ant1905]

Muhammet hocam

cevap verdiğin için çok teşekkür ederim... şu anda asıl dosyaya uyarlamaya
çalışıyorum. Bunu module yapıştırmama gerek var mı ?

 

[Muhammet Okumuş]

Evet modüle kopyalayın.

 

[ant1905]

Muhammet hocam

ben uyarlamayı beceremedim sanırım ilk dosyayı kolay anlaşılır olsun diye
basitleştirerek göndermiştim. Bu sefer uayarlamada zorlandım.

Eğersize zahmet olmayacaksa orjinal formata göre bir dosya daha açıklamalı olarak ekledim. Bakabilirseniz teşekkür ederim bakamazsanız da canınız sağolsun.

Saygılar

 

[Muhammet Okumuş]

Dosyayı inceleyiniz.

 

[ant1905]

hemen inceliyorum

 

[ant1905]

Muhammet hocam çok teşekkür ederim.. Emeğine bilgine sağlık üstadım

 

[Muhammet Okumuş]

Rica ederim. İyi Çalışmalar.