yazdırma alanını belirleme

[uzmanamele]

merhaba

Son_Sütun = Cells(12, 256).End(xlToLeft).Column
Son_Satır = [C65536].End(xlUp).Row

ActiveSheet.PageSetup.PrintArea = "$C$1:$GC$184" 'yazdırma alanı
$GC$184 yerine Son_Sütun ve Son_Satır nosunu nasıl yazabilirim?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub YAZDIRMA_ALANI()
    Son_Sütun = Cells(12, 256).End(xlToLeft).Column
    Son_Satır = [C65536].End(xlUp).Row
    Adres = Range(Cells(1, "C"), Cells(Son_Satır, Son_Sütun)).Address
    ActiveSheet.PageSetup.PrintArea = Adres
End Sub

 

[uzmanamele]

merhaba
syn Korhan Ayhan çok teşekkür ederim

 

[baydeniro]

Eski bir konu ama çok teşekkür ederim.