Sıralama Kodunda Değişiklik

[hakki83]

Selamlar

Ekteki dosyayı, son satır son sütun değil de, tüm sayfayı seçececek şekilde değiştirebilir miyiz?

Teşekkürler.

 

[ÖmerFaruk]

Tüm sayfadan kastınız
A1:XFD1048576 aralığı mıdır?

 

[hakki83]

Evet Ömer Faruk hocam. Çünkü tüm alan seçilmezse, sanki hatalı bir şey olacakmış gibi geliyor insana.

Ya da tüm alan olmasa bile,
içinde hücre geçen tüm bölge de olabilir.
Zira örnek dosya, başlığı olmayan hücreleri sıralamanın dışında tutuyormuş, ve farkında değilmişim.
Sonradan fark ettim.

 

[Necdet]

Doğru mu anladım bilmiyorum. Aşağıdaki kodları dener misiniz?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
    If Target.Row > 1 Or Target.Value = "" Then Exit Sub
    
    SonSatir = Cells.Find("*", , , , xlByRows, xlPrevious).Row
    SonSutun = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
    
    Range(Cells(2, 1), Cells(SonSatir, SonSutun)).Sort Key1:=Range(Cells(1, Target.Column), Cells(1, Target.Column))
    Cancel = True
    
End Sub

 

[hakki83]

Doğru mu anladım bilmiyorum. Aşağıdaki kodları dener misiniz?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
    If Target.Row > 1 Or Target.Value = "" Then Exit Sub
   
    SonSatir = Cells.Find("*", , , , xlByRows, xlPrevious).Row
    SonSutun = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
   
    Range(Cells(2, 1), Cells(SonSatir, SonSutun)).Sort Key1:=Range(Cells(1, Target.Column), Cells(1, Target.Column))
    Cancel = True
   
End Sub

Necdet hocam olmuştur. Emeğinize sağlık, teşekkürler.

 

[hakki83]

Doğru mu anladım bilmiyorum. Aşağıdaki kodları dener misiniz?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
    If Target.Row > 1 Or Target.Value = "" Then Exit Sub
   
    SonSatir = Cells.Find("*", , , , xlByRows, xlPrevious).Row
    SonSutun = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
   
    Range(Cells(2, 1), Cells(SonSatir, SonSutun)).Sort Key1:=Range(Cells(1, Target.Column), Cells(1, Target.Column))
    Cancel = True
   
End Sub

Necdet hocam

Eğer A1:XFD1048576 alanını, yani tüm alanı seçmek isteseydik, kodun üstüne ne yazmamız gerekiyordu?
Bir de onu yazar mısınız? Denemek istiyorum.
Teşekkürler.

 

[Necdet]

Excel'i zorlamanın bir alemi varmı?

verdiğim kodlarda sün sütunu ve son satırı zaten buluyor. Bence gerek yok.
Ama öğrenmek babından soruyorsanız :

Range(cells(1,1),cells(rows.count, columns.count))
olmalı