makro ile sıralama

[gokhan13]

merhaba c2 sütununda firma isimlerim başlıyo bu c501 e kadar devam edicek bunların yan sütunlarındada d-e-f-g-h-ı-j-k-l-m-n sütunlarında ödenecek rakamlar ver ben listemi isme göre sıralattığımda b sütunu dahil a sütunu hariç bu verileri c ye göre veri sekmesine bir buton ekleyip sıralatmak istiyorum.yardımlarınız için teşk.

 

[İhsan Tank]

acaba yanlış dosya mı gönderdiniz_?
bunun içinde birden fazla dosya var hangisinde bu işlem yapılacak

 

[gokhan13]

acaba yanlış dosya mı gönderdiniz_?
bunun içinde birden fazla dosya var hangisinde bu işlem yapılacak

ödeme bildirimleri yazan excel sayfasını açıp veri girişine tıklarsanız bir sayfaya geçecek o sayfada.teşk.

 

[İhsan Tank]

ödeme bildirimleri yazan excel sayfasını açıp veri girişine tıklarsanız bir sayfaya geçecek o sayfada.teşk.

merhaba
bu kodu kullanabilirsiniz

Sub sss()
Dim ts
ts = MsgBox("Sıralama Yapıyorum", vbYesNo, "Onay")
If ts = vbNo Then Exit Sub
Application.ScreenUpdating = False
Sheets("DATA").Unprotect
Sheets("DATA").Range("B2:N501").Sort key1:= _
Sheets("DATA").Range("C2"), ORDER1:=xlAscending
Sheets("DATA").Protect
Application.ScreenUpdating = True
MsgBox "Sıralama Yapıldı", vbInformation, "Bitiş"
End Sub