makroya değişken atamak

[blacklife07]

ekteki dosyada iki buton mevcut. bu butonlar ile sıralama yaptırıyorum. bu butonların kodlarının değişken olmasını istiyorum. yani liste ne kadar ise kendisi belirletip ona göre çalışacak. ben listeye ekleme yapsamda buton çalışabilecek. bazı örnekleri inceledim ama başaramadım. yardımlarınız için teşekürler.

 

[halit3]

bu kadu denermisiniz.

Private Sub CommandButton1_Click()
son = Worksheets(ActiveSheet.Name).[b65536].End(3).Row
Range("B5:AJ" & son).Sort Key1:=Range("AJ5"), Order1:=xlDescending
End Sub
Private Sub CommandButton2_Click()
son = Worksheets(ActiveSheet.Name).[b65536].End(3).Row
Range("B5:AJ" & son).Sort Key1:=Range("B5"), Order1:=xlAscending
End Sub

 

[blacklife07]

ilginize çok teşekkür ederim. Kodlar güzel çalışıyor. Elinize sağlık.

 

[halit3]

ilginize çok teşekkür ederim. Kodlar güzel çalışıyor. Elinize sağlık.

iyi çalışmalar