Buton ile Veri sıralama

[igktp]

Bir buton ile veri sıralamak istiyorum.Bu konuda yardım edebilecek arkadaşlar var ise minnettar kalacagım...

Dosya ektedir.

 

[Mahmut Kök]

Aşağıdaki kod işinizi görebilir.

Sub verisırala()
Range("a1:b" & Range("a65536").End(3).Row).Sort Range("b1"), 2, Range("a1"), , 1
''Aşağıda ilk sıralama sonunda sıfır değerinde olan satırı buluyoruz,
''bu satır farklı yöntemlerle de bulunabilir.
For a = 1 To Range("a65536").End(3).Row
If Cells(a, "b") = 0 Then Exit For
Next
Range("a1:b" & a - 1).Sort Range("a1"), 1
  
End Sub

 

[igktp]

Teşekkür ederim, tam aradığım koddu bu.Eline sağlık.
Bu kodu butona ekledim, fakat butonu aynı excel dosyasında farklı bir sekmeye koymak istiyorum.Onun için kodu nasıl düzenleyebiliriz.

Teşekkürler....

 

[Mahmut Kök]

Teşekkür ederim, tam aradığım koddu bu.Eline sağlık.
Bu kodu butona ekledim, fakat butonu aynı excel dosyasında farklı bir sekmeye koymak istiyorum.Onun için kodu nasıl düzenleyebiliriz.

Teşekkürler....

Farklı sekme derken ne kasdettiğinizi anlayamadım pek.

 

[igktp]

Farklı sekme derken ne kasdettiğinizi anlayamadım pek.

Mahmut bey,
Buton bir sekmede olacak, sıralanacak veriler diger sekmede...
Ekteki dosyada belirttim.

Teşekkürler...

 

[Mahmut Kök]

Sekme yerine sayfa kullanabilirsiniz.

Sub verisırala()
Set s1 = Sheets("Aktarma")
's1 demek bundan sonra Aktarma sayfası demek.
'alan adlarından önce s1 koyarsak o sayfadaki alanı belirtmiş oluruz.
'Kodları nerede çalıştırırsak çalıştıralım ilgili sayfadaki alan işlem görür.
s1.Range("a1:b" & s1.Range("a65536").End(3).Row).Sort s1.Range("b1"), 2, s1.Range("a1"), , 1
For a = 1 To s1.Range("a65536").End(3).Row
If s1.Cells(a, "b") = 0 Then Exit For
Next
s1.Range("a1:b" & a - 1).Sort s1.Range("a1"), 1
  
End Sub

 

[cenderus]

dosya ektedir

konu başlığına ait bulabildiğim dosya ektedir