Otomatik sütun genişliği

[adigeturklim]

Merhaba,

Otomatik stün genişliği ile ilgili forumda bazı kodlar buldum fakat bunları sayfada bulunan mevcut kodların altına ekleyemiyorum.
Çalışılan Excel sayfalarının tamamını kapsayacak şekilde otomatik stün genişliği ayarlayabilen bir kod mevcut ise yardımlarınızı rica ederim.

Sayg.

 

[AdemCan]

Merhaba,
Bu kodu modüle ekleyip, mevcut kodların sonuna Call test yazarak çalıştırabilirsiniz.
Columns("A:F") > örnek olarak A - F sütunlarını yazdım, istediğiniz sütun başlıkları ile değiştiriniz.

Sub test()
Dim sayfa As Worksheet
    For Each sayfa In Worksheets
        sayfa.Columns("A:F").EntireColumn.AutoFit
    Next
End Sub

 

[adigeturklim]

Teşekkür ederim sayın Ademcan. Mevcut kodların altına Call test yazdığımızda otomatik çalışacak mı

 

[dEdE]

....Çalışılan Excel sayfalarının tamamını kapsayacak şekilde otomatik stün genişliği ayarlayabilen bir kod ....

Sub Test()
For i = 1 To Sheets.Count
    Sheets(i).Columns.AutoFit
Next
End Sub

 

[AdemCan]

Teşekkür ederim sayın Ademcan. Mevcut kodların altına Call test yazdığımızda otomatik çalışacak mı

Evet, mevcut kodlarınız ile yaptığınız işlem bitince çalışır.

 

[adigeturklim]

Sayın dEdE teşekkür ederim yardımlarınız için.