hücre biçimlendirme

[turkanet]

çalıştırıldığında;
A3:J1000 aralığını seçip, bu aralıktaki tüm hücreleri 8 punto "Arial Narrow" yazı tipi ile biçimlendirecek makroya ihtiyacım var

değerli yardımlarınızı beklerim

saygılarımla

 

[Haluk]

Sub Test()
    Range("A3:J1000").Font.Name = "Arial Narrow"
    Range("A3:J1000").Font.Size = 10
End Sub

 

[Recep İpek]

Sub Düzelt()
    Range("A3:J1000").Select
    With Selection.Font
        .Name = "Arial Narrow"
        .Size = 8
    End With
    Range("A1").Select
End Sub

 

[turkanet]

sevgili üstadlar;
cevaplarınız yine ilaç oldu, teşekkürler.

peki;
çalıştırıldığında
A3:J1000 aralığını seçip, bu aralıktaki tüm hücrelere "artan sıralama" uygulayan makro nedir?

saygılarımla

 

[ultrademox]

Sub Sirala()
Range("A3:J1000").Sort _
Key1:=Range("A3"), _
Order1:=xlAscending, _
Header:=xlGuess, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom
End Sub

 

[turkanet]

hepinize minnettarım,

sonsuz teşekkürler...