En soldaki değere göre A-Z sıralatma.

[Kumpasta]

İyi günler.
Asıl liste isimli sayfada x sütununda aşağıdaki veriler ve boş hücreler bulunmaktadır. Toplam 500 satırdan oluşmaktadır. X2 den başlamaktadır.
içi dolu hücrelerin en solunda rakamlar var ve 99 a kadar çıkabilmektedir.
bu rakamları baz alarak küçükten büyüğe ilk 15 tanesini farklı bir sayfada sıralatmak istiyorum.

19 GÜN KALDI - Alper Y.
-
-
39 GÜN KALDI - Anıl A.
11 GÜN KALDI - Bayar E.
11 GÜN KALDI - Fahri E.
-
11 GÜN KALDI - Cüneyt Ö.
11 GÜN KALDI - Hüseyin T.
-
42 GÜN KALDI - Serkan S.
-
-
-
-
22 GÜN KALDI - Adnan H.
-
4 GÜN KALDI - Bülent K.
19 GÜN KALDI - Celalettin K.
39 GÜN KALDI - Cenk K.

Bu konuda yardımlarınızı talep ediyorum.

 

[Ali]

Ekte bir dosya yaptım incelersiniz.

 

[Korhan Ayhan]

Alternatif;

 

[Kumpasta]

Hocam eline sağlık.
Hazır konu açılmışken yapmak istediğimin ikinci kısmına geçeyim müsadenizle.


Log sayfasında ki F2:F16 satır aralığında formül yardımı ile getirdiğimiz bu verileri ekranın sağ alt köşesinde userform ile görüntülenmesini istiyorum.
başka bir örnekten kopyaladığım form kodlarını uyarlayamadım. düzenleyebilirmisiniz? Sürekli "could not set the value property. tür uyuşmazlığı. " hata mesajı veriyor.

amacım dosyanın açılışında, yada verilerde değişiklik olduğunda sağ kenarda bir userform ile bu listeyi her an görebilmek.




modül kısmı kodları

Public Kontrol As Boolean

Sub FORMAÇ()
    With UserForm1
        .StartUpPosition = 3
        .Left = Application.Width - .Width - 20
        .Top = Application.Height - .Height - 20
        .TextBox1 = Sheets("log").Range("F2:F16")
        .Show
    End With
End Sub

Sub FORMGÜNCELLE()
    With UserForm1
        .TextBox1 = Sheets("log").Range("F2:F16")
    End With
End Sub

userform kodları

Private Sub UserForm_Activate()
    TextBox1 = Sheets("log").Range("F2:F16")
    With Me
        .StartUpPosition = 3
        .Left = Application.Width - .Width - 20
        .Top = Application.Height - .Height - 20
        .Show
    End With
End Sub

Bu çalışma kitabı kodları

Private Sub Workbook_Open()
    FORMAÇ
End Sub

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
    FORMGÜNCELLE
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    FORMGÜNCELLE
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    FORMGÜNCELLE
End Sub

 

[Kumpasta]

Teşekkür ederim alternatif için.