Aralık seç

[haso_excel]

Merhaba arkadaşlar,

Sub BUL()
For k = 2 To WorksheetFunction.CountA(Range("a:a"))
Cells(k + 2, 5).Select
Next k
End Sub

Sub bul2()
Cells([a65536].End(3).Row + 1, "J").Select
ActiveCell.Offset(1, 0).Select
End Sub

yukarıdaki kodlar ile E kolonundaki son hücredenin 2 altını buluyorum diğer kod ile ise J kolonundaki son veriyi bulduruyorum. Belki ne alakası var şimdi ikinci kodun diyeceksiniz biliyorum. Amacım, E kolonundaki en son hücrenin 2 alt hücresi ile J kolonunu seçip ilgili alanın fontunu gri yazı karaakterini kırmızı ve bold yapmak istiyorum yardımcı olabilir misiniz?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub BİÇİMLENDİR()
    With Range("E" & Range("E65536").End(3).Row + 2, "J" & Range("E65536").End(3).Row + 2)
        .Interior.ColorIndex = 16
        .Font.Bold = True
        .Font.ColorIndex = 3
    End With
End Sub

 

[haso_excel]

Teşekkür ederim üstadım eline sağlık