Dialogbox Ile Seçilen Hücreye Göre Sıralama

[askm]

İyi akşamlar. Dialogbox box ile seçilen hücrenin en sonundaki dolu sütuna göre sıralama nasıl yaparım. Key kısmını ve select kısmını yazamadım. Seçilen hücre c10 ise c9 dan başlayıp dolu son sütun ve satıra kadar alan seçilecek. Yani c9 dan başlayıp son dolu hücre h1000 ise c9:h1000 select yapacak, h9 key olacak.

 

[turist]

Örnek Excel Dosyanızı eklerseniz, ve dosyanızda açıklama yaparsanız; daha kolay cevap alabilirsiniz.

 

[askm]

Örnek ektedir.

 

[turist]

Dosyanız eklidir.
Not: Eklediğiniz dosya sorunlu, yeni dosya olarak düzenledim.
"Yeni Sayfa" da bulunan değerlerle örnekledim, inceleyiniz.
Dikkat etmeniz gereken nokta:

Sub Isyeri_No_Ayir() isimli makro kodunda

If Len(s1.Cells(i, bulunansutun)) > 7 Then
        s1.Cells(i, SonKolon) = Mid(s1.Cells(i, bulunansutun), 20, 1) * 1

kısmında , aranan değerin uzuluğu 7 den büyükse ; ortadan 20.ci değeri aldırmak istiyorsunuz, fakat; aranan değer; 20 den küçükse kod hata verir.
Düzenlemenizi buna uygun yapınız.