Sıralama yapılan sütun ile hareket

[garfield.]

Arkadaşlar öncelikle kolay gelsin.

Excelde yeniyim ve proje hazırlamaktayım sorunuma gelmek gerekirse ;


Yapılan işlemler sonucunda 20 satırlık bir verim var , bunları sıralama yapıyorum fakat yan sütunda yazan model isimleri sabit kalıyor.

Sıralamayı yaparken ,model isimlerininde sıralamaya göre hareket etmesini istiyorum tavsiyeniz nedir?


VERİ GÖRÜNTÜSÜ

Qi Değerlerini sıralıyorum burda fakat Alternatif isimleri sabit.

 

[PLİNT]

Merhaba
Sıralanacak hücrelerdeki birleşen hücreleri ayırmanızda sakınca yoksa ("B" sütunu birleştirilmemiş)
İlgili sayfanın kod sayfasına aşağıdaki kodu ekleyip 8. satırda bulunan sıralamak istediğiniz
başlığı tıklayın.

Ek dosyayı inceleyin. http://s3.dosya.tc/server6/8577dp/sirala.zip.html

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target.Cells, Range("b8:g8")) Is Nothing Then Exit Sub
a = Cells(Rows.Count, "b").End(xlUp).Row
Range("B9:G" & a).Sort Key1:=Cells(Target.Row + 1, Target.Column), Order1:=xlAscending
End Sub