c sütununa göre d sütünunu alfabetik olarak sıralama

[Mavi Deniz]

Merhaba arkadaşlar,
ekteki dosyada makro ile c sütununu alfabetik olarak sıralayabiliyorum ancak d sütüunundaki karşılıklarınıda alfabetik olarak sıralama yapabilirmiyiz. şimdiden çok teşekkür eder, iyi günler dilerim..

 

[YUSUF44]

Excelde yen imakro kaydet yoluyla ilk grubunuz için şu kodları aldım:

Sub sıra()
'
' sıra Makro
'

'
Range("C611").Select
ActiveWorkbook.Worksheets("PERSONEL BİLGİLERİ").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("PERSONEL BİLGİLERİ").Sort.SortFields.Add Key:= _
Range("C6:C14"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("PERSONEL BİLGİLERİ").Sort.SortFields.Add Key:= _
Range("D614"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("PERSONEL BİLGİLERİ").Sort
.SetRange Range("C6:D14")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

KEndi kodlarınızda her grup için koyulaştırılmış kısmı ekleyip uyarlarsanız istediğiniz olacaktır.