Sıralama Konusunda Yardım

[adnbrk]

benim bölebi lig tablom var ve sıralam yapmak istiyorum bana makro hazırlayabilirmisiniz ? Bu yazımda ne saygısızlık var ben sadece sizden bir ricada bulundum ... Yeni bir resim paylaştım bu sefer inşallah açıklayıcı olmuşumdur ?

 

[Necdet]

Emriniz olur, iyisinden mi olsun?

Şaka bir yana örnek dosyanızı görmeden nasıl birşey yapılabilir ki?

 

[halit3]

Genel kod bu kod ikinci satırdan başlayıp son satır ve son sutüna kadar olan bölümü büloke edip açılan pencereden gereken krıterleri girmek yeterli

Sub sirala()
On Error Resume Next
sat = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
sut = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Range(Cells(2, 1), Cells(sat, sut)).Select
Application.Dialogs(39).Show
Range("a1").Select
End Sub

 

[adnbrk]

Genel kod bu kod ikinci satırdan başlayıp son satır ve son sutüna kadar olan bölümü büloke edip açılan pencereden gereken krıterleri girmek yeterli

Sub sirala()
On Error Resume Next
sat = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
sut = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Range(Cells(2, 1), Cells(sat, sut)).Select
Application.Dialogs(39).Show
Range("a1").Select
End Sub

buna uygun olurmu ?

 

[halit3]

buna uygun olurmu

uygun olur kırmızı yeri başlangıç olarak belirliyorum.

Sub sirala()
On Error Resume Next
sat = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
sut = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Range(Cells([COLOR=red]4[/COLOR], 1), Cells(sat, sut)).Select
Application.Dialogs(39).Show
Range("a1").Select
End Sub

 

[adnbrk]

http://img692.imageshack.us/i/adszsgy.png/


uygun olur kırmızı yeri başlangıç olarak belirliyorum.

Sub sirala()
On Error Resume Next
sat = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
sut = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Range(Cells([COLOR=red]4[/COLOR], 1), Cells(sat, sut)).Select
Application.Dialogs(39).Show
Range("a1").Select
End Sub

İlginiz İçin Teşekkür Ederim ... Bir tek Sorun Var Sıralama Genişletme Menüsü Gelmeden Otomatik Sıralama Yapabilirmiyim?