sıralama makrosu

[zulfuernek]

sayfa 1 de ki verileri ve sayfa 2 deki verileri sayfa 3 de tek sayfa haline getiriyorum.

sayfa 1 deki veriler kalın font
sayfa 2 deki veriler normal font

sayfa 3 A:F arası hücreleri de A1 sütununa göre alfabetik olarak sıralıyor.

SORU: sayfa 1 den aldığım verilerin aynısı sayfa2 de mevcut. bizim ihtiyacımız olan şey sayfa 3 de sıralama yaptğımız zaman aynı kişiy ait olan veriler alt alta geliyor fakat syfa 1 den aldığımız kalın font lu veri sıralamasında ilgili kişinin en üstünde olsun.


ÖRNEK:
Ahmet
Ahmet
Ahmet
Ahmet
Yavuz
Yavuz
Yavuz

yani kalın punto ilgili kişinin en üstünde olacak

 

[PLİNT]

Merhaba
Aşağıdaki gibi yapabilirsiniz
Sütundaki isimlerin başına 1 ekleyecek sıralayıp 1 leri silecek
"A" sütununda başlık satır yoksa 2 yerine 1 kullanın "AZ" sütununu doluluğa göre ileri veya geriye alırsınız

sub sıra
a = Cells(Rows.Count, 1).End(3).Row
For x = [COLOR="red"]2[/COLOR] To a
If Cells(x, 1).Font.Bold = True Then
Cells(x, 1) = 1 & Cells(x, 1)
End If
Next
Range("[COLOR="Red"]A2[/COLOR]:[COLOR="red"]AZ[/COLOR]" & a).Sort Key1:=Cells([COLOR="red"]2[/COLOR], 1), Order1:=xlAscending
Columns("A").Replace "1", "", xlPart
Range("[COLOR="red"]A2[/COLOR]:[COLOR="red"]AZ[/COLOR]" & a).Sort Key1:=Cells([COLOR="red"]2[/COLOR], 1), Order1:=xlAscending
end sub