Sıralama!

[shenko]

Yapmak istediğmi ekteki dosyada anlatmaya çalıştım. İlgilenenlere şimdiden teşekkür ederim.

 

[veyselemre]

[vb:1:e0f3786f26]Sub Sırala_Click()

son = [b65536].End(3).Row
Range("A1:B" & son).Select
Selection.Font.Name = "Arial"
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Cells(1, 1).Font.Name = "Arial Black"

For x = 1 To son - 1
If Cells(x, 1) <> Cells(x + 1, 1) Then Cells(x + 1, 1).Font.Name = "Arial Black"
Next

End Sub[/vb:1:e0f3786f26]

 

[shenko]

Teşekkür ederim üstad.

 

[shenko]

Yukarıdaki formul normalde çok iyi çalışıyor. Ben formulu aşağıdaki gibi değiştirdim ama ilk formulde olduğu gibi değil, D27 den itibaren yazılı butun D sutununu Arial Black yapıyor. Hatayı nerede yapıyor olabilirim??

Sub Sırala_Click()
son = [b65536].End(3).Row
Range("A27:S" & son).Select
Selection.Font.Name = "Arial"
Selection.Sort Key1:=Range("D27"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Cells(1, 1).Font.Name = "Arial Black"

For x = 1 To son - 1
If Cells(x, 1) <> Cells(x + 1, 1) Then Cells(x + 1, 4).Font.Name = "Arial Black"
Next

End Sub