Sıralama Kodu

[Mustafa MUTLU]

If Range("A65536").End(3).Row > 2 Then
Range("A2:Z65536").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Range("A2") = 1
Range("A2").AutoFill Destination:=Range("A2:A" & Range("A65536").End(3).Row), Type:=xlFillSeries
End If

Bu sıralama kodunu denedim ama rakam içeriyor.
Benim ise metin içeren koda ihtiyacım var.
Bu kodu metin olarak sıralama yapacak şekilde değiştirebilen yada yeni bir kod yazacak bir arkadaş lazım..

İlginize Teşekkür ederim..

 

[quesh]

Metin içeren bir sütununuz seçip makro kaydetmeye başlayın ve A'dan Z'ye sıralayın. Ardından kaydı durdurun ve makronun kodlarına bakın, kendinize uyarlayabilirsiniz böylece.

 

[Mustafa MUTLU]

Tamam sıralanıyor
ama yan sütunlar olduğu gibi kalıyor
Yan Sütunlarında sıralamaya göre yer değiştirmesi lazım
Range("A2:A100").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

 

[Mustafa MUTLU]

Range("A2:Z100").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal


Range("A2:Z100").Select

Buradaki A100 = Z100 yapınca istediğim gibi oldu

Ancak Kayıt yaparken Sayfada A2:Z100 seçili oluyor
Bunu iptal edemezmiyiz..

Teşekkürler

 

[Husgvarna]

Şöyle denediniz mi?

Range("A2:Z100").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

 

[Mustafa MUTLU]

Range("A2:Z100").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Bunu denedim
Teşekkür ederim
Şimdi oldu..