Döngü İle Kodu Kısaltma

[ahmed_ummu]

Merhaba arkadaşlar

Aşağıdaki kodu döngü ile nasıl kısaltabilirim. Yardımcı olursanız sevinirim.

SonSatir = lb.Cells(Rows.Count, "F").End(3).Row
lb.Cells(SonSatir + 3, 2).Font.Size = 10
lb.Cells(SonSatir + 4, 2).Font.Size = 10
lb.Cells(SonSatir + 5, 2).Font.Size = 10
lb.Cells(SonSatir + 3, 3).Font.Size = 10
lb.Cells(SonSatir + 4, 3).Font.Size = 10
lb.Cells(SonSatir + 5, 3).Font.Size = 10
lb.Cells(SonSatir + 3, 5).Font.Size = 10
lb.Cells(SonSatir + 4, 5).Font.Size = 10
lb.Cells(SonSatir + 5, 5).Font.Size = 10

 

[veyselemre]

    With lb.Cells(Rows.Count, "F").End(3)
        .Offset(3, -4).Resize(3, 2).Font.Size = 10
        .Offset(3, -1).Resize(3).Font.Size = 10
    End With

 

[ahmed_ummu]

    With lb.Cells(Rows.Count, "F").End(3)
        .Offset(3, -4).Resize(3, 2).Font.Size = 10
        .Offset(3, -1).Resize(3).Font.Size = 10
    End With

Çok teşekkürler sayın veyselemre