Sıralama

[veyselk]

Arkadaşlar merhaba.

Ekte gönderdiğim dosya için yardımcı olursanız sevinirim. Yardım açıklaması dosyanın içerisinde var. Şimdiden teşekkürler.

 

[mehmett]

Sn Veyselk,

C2:C21 alanında yapılacak bir değişiklikle (change) tetiklenen bir sırlama makrosu işinizi görür sanırım.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C2:C21]) Is Nothing Then Exit Sub
Range("B1:C21").Select
Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlGuess
Range("B1").Select
End Sub

Dosyanız ekte. En sona almak istediğiniz ismin karşısına ZZ yerine herhangi bir harf yazmanız yeterli. Çünkü önce sayıları sıralıyor, en sona harfleri alıyor. Yani ZZ yerine A yazsanız da bu isim listenin sonuna yerleşecek.

 

[vaskal]

Arkadaşlar merhaba.

Ekte gönderdiğim dosya için yardımcı olursanız sevinirim. Yardım açıklaması dosyanın içerisinde var. Şimdiden teşekkürler.

Ekteki dosya işinizi görür herhalde...

 

[veyselk]

Sayın Mehmett ve Vaskal gönderdiğiniz dosyaları inceledim. Teşekkür ederim. İstediğim tam olarak bu değil. Sıralama yapıyor. Ancak benim istediğim. en alta 21 satıra indirmek isimlerin hemen altına değil.

 

[vaskal]

Birde buna bakın...

 

[veyselk]

Sayın Vaskal Gönderdiğiniz dosya benim istediğim gibi teşekkür ederim

 

[AS3434]

Sayın vaskal'ın gönderdiği kodların ilave sütunsuz ve butonsuz hali.

 

[vaskal]

Sayın vaskal'ın gönderdiği kodların ilave sütunsuz ve butonsuz hali.

Evet bu daha iyi...
Makrolarla aram fazla iyi olmadığı için öyle yapmıştım.