Ayrı sayfalardaki sütun genişliğini eşitlemek

[hadromer]

Merhaba,
birden çok sayfanın olduğu dosyada çalışma yapıyorum.
sayfalardaki tüm sütun pozisyonları sabit.
Ancak bazı sütunların genişliği çok daralmış bazıları normal.
Sütunu seçip kenara çift tıklayınca normale dönüyor. Bunu tek tek yapmak yerine tüm dolu olan sütunları içindeki veriye göre standart hale getirmek istiyorum.
makro konusunda yardımcı olur musnuz teşekkürler

 

[Muzaffer Ali]

Merhaba.

Sütunların tamamını seçip bir tanesinin kenarına çift tıklayınca her kolon kendi içindeki veriye göre genişliği ayarlanır.

 

[hadromer]

Merhaba.

Sütunların tamamını seçip bir tanesinin kenarına çift tıklayınca her kolon kendi içindeki veriye göre genişliği ayarlanır.

Merhabalar

Bunu biliyorum. Ben tüm sayfalara aynı işlemi yapmak istiyorum. 240 tane sayfam var )

 

[Muzaffer Ali]

Bu kodu deneyin.

Sub Test()
    Dim syf As Worksheet
    For Each syf In ThisWorkbook.Worksheets
        syf.Cells.EntireColumn.AutoFit
    Next
End Sub

 

[hadromer]

Bu kodu deneyin.

Sub Test()
    Dim syf As Worksheet
    For Each syf In ThisWorkbook.Worksheets
        syf.Cells.EntireColumn.AutoFit
    Next
End Sub

çok teşekkür ederim, istediğim gibi çalıştı.

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.