Soru Yazı Tipi ve Punto belirleme

[sirkülasyon]

Dim syf As Worksheet
Dim syf1 As Worksheet
Dim i As Integer
Set syf = Sheets("Personel")
Set syf1 = Sheets("Puantaj")
syf1.Range("C10:F10").Value = syf.Range("C10:F10").Value
If IsNumeric(syf1.Range("G10").Value) Then
        i = 10
        Do While syf1.Range("G" & i).Value <> ""
            i = i + 1
        Loop
        syf.Range("C" & i & ":F" & i).Copy syf1.Range("C" & i & ":F" & i)
    End If
    Exit Sub

Yukarıdaki kod ile Personel sayfasından Puantaj sayfasına veri aktarıyorum. Lakin aktarma esnasında
Font.Name = "Times New Roman"
.Font.Size = 10
olarak belirlemek istiyorum. Yardımcı olabilir misiniz?

 

[ÖmerFaruk]

Denemeden yolluyorum.

syf1.Range("C10:F10").Font.Name="Times New Roman"

 

[sirkülasyon]

Dim syf As Worksheet
Dim syf1 As Worksheet
Dim i As Integer
Set syf = Sheets("Personel")
Set syf1 = Sheets("Puantaj")
syf1.Range("C10:F10").Value = syf.Range("C10:F10").Value
If IsNumeric(syf1.Range("G10").Value) Then
        i = 10
        Do While syf1.Range("G" & i).Value <> ""
            i = i + 1
        Loop
        syf.Range("C" & i & ":F" & i).Copy syf1.Range("C" & i & ":F" & i)
        syf1.Range("C" & i & ":F" & i).Font.Name = "Times New Roman"
        syf1.Range("C" & i & ":F" & i).Font.Size = 10
    End If
    Exit Sub

kod şekli ile sorunumu çözdüm gibi