Son satıra gitmek

[excelman]

Merhabalar; :hey:

Hazırlamış olduğum sayfa da tüm işlemlerim bittikten sonra A sütunundaki dolu olan en son satırdan 5 satır aşağıya inip sütunu komple seçmek ve bu sütunun yazı tipini Kalın yapmak istiyorum.Yardımcı olursanız sevinirim.

Teşekkürler.

 

[Mahmut1950]

Sub YazıTipiKalin()
Range([A65536].End(xlUp).Offset(6, 0).Address, [A65536]).Font.Bold = 1
End Sub

 

[danersin]

@excelman, ifade ettiğiniz hali çok ender durumda lazım olacak birşey, yani son satırdan 5 satır atladıktan sonra sayfanın sonuna kadar bold yapmak istiyorsunuz? Belki ifade yanlışlığı vardır düşüncesi ile (örnek olsun hem) aşağıdaki şekillerdede deneyebilirsiniz.

1. satırdan son satır+5 satıra kadar A sütunu bold
[vb:1:dfa2522015]Sub yazıtipi()
Range([A65536].End(xlUp).Offset(6, 0).Address, [A1]).Font.Bold = 1
End Sub[/vb:1:dfa2522015]

yada

son satır+5 inci satırın tamamı bold
[vb:1:dfa2522015]Sub yazıtipi2()
Range([A65536].End(xlUp).Offset(6, 0).Address, [A65536].End(xlUp).Offset(6, _
255).Address).Font.Bold = 1
End Sub[/vb:1:dfa2522015]

 

[excelman]

Evet yanlış anlatmışım 2.cevabınız işimi gördü.
Teşekkürler danersin.