Buton ile Dolu Olan Hücreleri Yukarıya Alma

[selcukerd]

Merhaba Arkadaşlar,

http://dosya.web.tr/K4zz7O adresinde bulunan dosyada buton oluşturdum ve butona da listede bulunan kişilerin isimlerini a dan z ye göre sırala makrosu yerleştirdim. Benim istediğim a dan z ye göre sıralamadan önce isimleri yazan kişilerin karşısında bulunan hücrelerde (L hücresinden AD hücresine kadar) boş olan hücreleri isim-soyisimlerde dahil aşağıya almasını istiyorum. O hücrenin hangisi olduğunu da "J3" hücresinde yazan numaraya göre alsın. Yardımcı olursanız sevinirim.

 

[selcukerd]

Yardım edebilecek yok mu

 

[PLİNT]

Merhaba
Ek dosyayı inceleyiniz. İsteğiniz böyle olabilirmi?
http://www.upturkey.com/585dosya2.zip

(Sıralama kimlik numarasına göre olacaksa kırmızı bölümü [d8] olarak değiştirin.)

Private Sub CommandButton1_Click()
If [j3] <> "" Then
Set f = [l1:ad1].Find([j3].Value, lookat:=xlWhole)
If Not f Is Nothing Then
If Application.Sum(Range(Cells(8, f.Column), Cells(257, f.Column))) > 0 Then
 Range("D8:AD257").Sort Key1:=Cells(8, f.Column), Order1:=xlDescending
a = Cells(258, f.Column).End(xlUp).Row
 Range("D8:AD" & a).Sort Key1:=[COLOR="Red"][e8][/COLOR], Order1:=xlAscending
    End If: End If: End If
End Sub

 

[selcukerd]

Süper olmuş Hocam Teşekkür ederim emeğiniz için.