Alfabetik olmayan sıralama yaptırmak

[Mertsan]

Merhaba Arkadaşlar,

Farklı Müşteri isimlerinden oluşan bir fatura listesi tablom var.
Yapmak istediğim şey Örneğin; Toprak isimli çok sayıda faturayı listenin en başına sıralatmak. Geri kalanlar yerinde kalacak. Sadece Toprak ismindeki firmanın satırları listenin en başına kaydırılacak.

İsimler D sütunundayken aşağıdaki kod yöntemini bu yönde modifiye edebilir miyim?

Selection.Sort Key1:=Range("D:D"), _
    Order1:=xlAscending, Header:=xlGuess, _

 

[Necdet]

Merhaba,

başka bir hücreye d hücresi "Toprak" içeriyorsa 0, içermiyorsa 1 yazdırırsınız. Ve o hücreye göre sıralama yaptırırsınız. Pratik çözümdür.
Makro ile yaptırdığınıza göre gerektiğinde yardımcı sütunu silersiniz.

 

[Mertsan]

Çözümünüz için teşekkür ederim Necdet bey,

Belirttiğiniz üzere oldukça pratik olarak işimi gördü.
Bazen kodlama bilgisi değil mantık yürütmek gerekiyormuş. Habire kodlar üzerinde çalışıp duruyoruz gereksiz yere.

Saygılarımla.