makro ile sıralama

[hurkanpisirici]

merhabalar, a ve k sütünları arasında verilerim var.fatura numaramın olduğu sütun ı sütunu.bir butona bağlıyacağım kodlar bütün verileri ı sütununu ufaktan büyüğe göre sıralamasını istiyorum.yardım edecek arkadaşlara şimdiden teşekkürler

 

[Skorpiyon]

Sayın hrknp,

Makro kaydet yöntemi ile kendiniz yapabilirsiniz.

 

[hurkanpisirici]

aklıma geldi ama kod daha güvenilir diye düşlündüm daha önce yaptıklarım hep daha sonradan hata verid şaban bey.

 

[hurkanpisirici]

Sub sirala()
'a:e sütunlarını seçiyoruz c1 hücresini sıralama ölçütü yapıyoruz
'yukarıdan aşşağıya sıralıyoruz(tersi xlDescending)
Range("A:E").Sort key1:=Range("C1"), ORDER1:=xlAscending
End Sub


bu kodun ilk satırı dikkate almamasını nasıl sağlayabilirim

 

[Halit TÜRK]

1. mesajınıza uygun olarak aşağıdaki kodu kullanabilirsiniz..

Sub FaturaNo()

Range("A1:K1").Select
Range(Selection, Selection.End(xlDown)).Select
' Range("A1:K500").Select
Selection.Sort Key1:=Range("I2"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
Range("A1").Select
MsgBox "Sıralandı..", vbInformation
End Sub

 

[hurkanpisirici]

sayın htrk ilginize ve yardımınıza çok teşekkür ederim tam istediğim gibi sağolun.ama son anda farkettim bu sıralama kriterine j sütunundaki verileride alabilirmiyiz o sütundada alış satış ödeme verileri bulunacak

 

[Halit TÜRK]

Sub FaturaNo()

Range("A1:K1").Select
Range(Selection, Selection.End(xlDown)).Select
' Range("A1:K500").Select
Selection.Sort key1:=Range("I2"), ORDER1:=xlAscending, _
Key2:=Range("J2"), Order2:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
Range("A1").Select
MsgBox "Sıralandı..", vbInformation
End Sub

 

[hurkanpisirici]

ellerinize sağlık çok teşekkürler

 

[Skorpiyon]

Sayın hrknp,

Öncelikle sıralamada baz alınacak sütunu seçin. A-Z sıralama tuşuna basın. Gelen pencerede "Seçimi Genişlet" i seçin ve Tamam deyin.

Makro kaydet yönteminde de bu şekilde hareket ederseniz, bir problem çıkmaz.