sayfa genişliğine göre sutun genişliğini ayarlayabilme

[merakli_72]

Arkadaşlar günaydın
Yapmak istediğimiz şöyle birşey; Ekteki kitabın her sayfasındaki sutun genişliğini içindeki veriye göre uygun olarak ayarlamak (Buraya kadar sorun yok) A3 sayfa boyutu için kalan genişlik kadar R sutununu büyütmek

Her sayfadaki sutun genişlikleri farklı olabildiğinden bunu her sayfa için ayrı ayrı yapmak gerekiyor,

 

[N.Ziya Hiçdurmaz]

yanıt

Tüm sayfalar için sütun genişliklerini otomatik ayarlar.

Sub auto_open()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Cells.Columns.AutoFit
Next
End Sub

 

[merakli_72]

Sayın Ziya bey cevabının için teşekkür ederim ama
yazdığınız kısmı yapabiliyorum
yapmak istediğim her sutunun boyutunu otomatik ayarladıktan sonra r sutununun boyutunu sayfanın kalan kısmı kadar genişletmek
Teşekkürler