Sıralama!

Katılım
23 Şubat 2006
Mesajlar
176
Excel Vers. ve Dili
Excell 2003
Yapmak istediğmi ekteki dosyada anlatmaya çalıştım. İlgilenenlere şimdiden teşekkür ederim.
 

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,646
Excel Vers. ve Dili
Pro Plus 2021
[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]
 
Katılım
23 Şubat 2006
Mesajlar
176
Excel Vers. ve Dili
Excell 2003
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
 
Üst