Mrb.,
Listenizin A sutununda olduğunu ve A-z şeklinde sıraladığınızı varsayarsak;
Sub Sırala()
Columns("A:A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
ekte bir örnek gönderiyorum.A2 B2 C2 birbirine bağlantılı yani aynı firmaya ait.190 satır var.Benim istediğim bu firmalar alfabetik sıraya göre olsun.Dediğin kodu uyguladım ama hiç bir şey olmadı.yada ben beceremedim
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.