Sutundaki isimleri alfabetik sıraya göre sıralama

[iyilmaz57]

iyi günler arkadaşlar,

aşağıda yazılı kodla ilgili yardımlarınızı rica ediyorum.Ben B3 sutununda bulunan isimler alfabetik sıraya dizmek istiyorum.bu kodla A3 sutununda bulunan firma isimleri alfabetik sıraya giriyor.Sıralama yapmak istediğim sutunu düzeltmek için ne yapmam gerekir.
Bu kodu forumumuzda bulunan sayın Levent Menteş beyden almıştım.

Saygılarımla,
İhsan Yılmaz

Sub adressirala()
Range("A3:J65536").Sort Key1:=Range("A3"), Order1:=xlAscending, Key2:=Range("B3") _
, Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
xlSortNormal
End Sub

 

[Ömer]

Merhaba,

Sub adressirala()
    Range("A3:J65536").Sort Range("B3")
End Sub

Bu şekilde deneyiniz..

.

 

[iyilmaz57]

Merhaba,

Sub adressirala()
    Range("A3:J65536").Sort Range("B3")
End Sub

Bu şekilde deneyiniz..

.

teşekkür ederim Ömer bey,
ben sorumu yanlış sordum galiba,B3 sutununda aşağı doğru yazılı isimleri sıralarken aynı hücreye denk gelen A3-J3 sutunlarındaki bilgileride sıralaması gerekiyor.

Saygılarımla,
İhsan

 

[İhsan Tank]

teşekkür ederim Ömer bey,
ben sorumu yanlış sordum galiba,B3 sutununda aşağı doğru yazılı isimleri sıralarken aynı hücreye denk gelen A3-J3 sutunlarındaki bilgileride sıralaması gerekiyor.

Saygılarımla,
İhsan

merhaba
bu kodu kendinize göre ayarlayınız

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

 

[Ömer]

teşekkür ederim Ömer bey,
ben sorumu yanlış sordum galiba,B3 sutununda aşağı doğru yazılı isimleri sıralarken aynı hücreye denk gelen A3-J3 sutunlarındaki bilgileride sıralaması gerekiyor.

Saygılarımla,
İhsan

O şekilde yazmıştım. Kodu denediniz mi?

.

 

[iyilmaz57]

Ömer bey,çok teşekkür ederim.
çok kısa bir kod olunca ben onu öbür koda entegre edeceğimi düşünmüştüm.Sadece sizin yazdığınız kodu girince istediğim gibi oldu.

Saygılarımla,
İhsan