Satır Sıralama hakkında yardım..

[Denizl]

Merhabalar. sıralatmak istediğim satırlar var.

Rows("7:13").Sort Key1:=Range("A7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers

kodunda son satır (13) sabit değil değişebiliyor. Son satır sayısını bir hücreden aldırabilirmiyim..
Rows ("7: & range("g6")") yapıyorum ama hata veriyor. yardım edebilirmisinz..

 

[mancubus]

Rows ("7:" & range("g6"))

şeklinde dener misiniz?

 

[mancubus]

aslında ben şöyle yapardım.

A7'den başlayarak veri bulunan en sağdaki sütuna ve en alttaki satıra kadar olan alanda sıralama yapar.

Dim ssat As Long, ssut As Long
Dim wks As Worksheet, rng As Range

Set wks = ActiveSheet
ssat = wks.Cells(Rows.Count, 1).End(3).Row
ssut = wks.Cells(7, Columns.Count).End(1).Column

Set rng = Range(Cells(7, 1), Cells(ssat, ssut))


rng.Sort Key1:=Range("A7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers

 

[Denizl]

Teşekkürler. elinize sağlık.