Sıralama yapmak

[boztepelibey]

Değerli Ustalarım Ad ve Soyad Yazılı Listede Sıralamayı Soyada göre yapabilmek için ne yapmam lazım

 

[Qene]

Kayıtlarınız ayrı hücrelerde mi yoksa aynı hücrede mi?

 

[boztepelibey]

sıralama

Kayıtlarımız aynı hücrede UStam.

 

[Qene]

O zaman en kolay yol. Adı ile Soyadını başka bir hücreye ayırıp ona göre sıralama yapmanız olacaktır. Aşağıdaki kodları boş bir modül içerisine kopyalayıp ad ile soyadlarını rahatça ayırabilirsiniz.

Function adi(AsBa As String) As String
Dim i, x, a As Integer
   a = Len(AsBa)
      If Val(a) < 1 Then adi = ""
   For i = a To 1 Step -1
      If Mid(AsBa, i, 1) = Chr(32) Then Exit For
         x = x + 1
   Next
adi = Trim(Mid(AsBa, 1, (a - x)))
End Function
Function soyadi(AsBa As String) As String
Dim i, x, a As Integer
   a = Len(AsBa)
      If Val(a) < 1 Then soyadi = ""
   For i = a To 1 Step -1
      If Mid(AsBa, i, 1) = Chr(32) Then Exit For
         x = x + 1
   Next
soyadi = Trim(Mid(AsBa, (a - x), x + 1))
End Function

Kullanımları:
=Adi(Hücre)
=Soyadi(Hücre)

 

[Leoncio]

Merhaba;
Diğer foruma cevap yazdım. Aşağıdaki kodlar ile ad soyad-soyad ad şekline dönüşür bu şekilde işini görür mü?
Not: Galiba Sayın Haluk'a ait kodlardı.

Sub ReplaceTest()
Dim MyRange As Range
Dim NoA As Integer, x As Byte
NoA = Cells(65536, 1).End(xlUp).Row
For Each MyRange In Range("A1:A" & NoA)
x = InStr(1, Trim(MyRange), " ")
MyRange = Trim(Mid(Trim(MyRange), x + 1) & " " & Left(Trim(MyRange), x - 1))
Next
End Sub

 

[Ali]

Bunun basit yöntemi söyleyeyim.Veri Metni sütunlara dönüştür sihirbazı ile ad ve soyadları ayırdıktan sonra ,adların ve soyadların bulunduğu listeyi seçin. Veri-Sırala Kısmından Eğer listenin başında ADI-SOYADI kısmı var ise başlık satırı var kısmını,eğer başlık içermeden seçti iseniz başlık satırı yok kısmını işaretleyip isteğinize göre artan yada azalan kısmını seçerek sıralama yaptırabilirsiniz.

 

[boztepelibey]

TeŞekkÜr Ederİm

Bimgisi ile emeğini esirgemeyip yardımcı olan bütün ustalarımdan Allah razı olsun.Sorunumu giderdim.Teşekkür Ederim.Hakkınızı helal edin.