Birden fazla Excel dosyasında Sütun genişliğini otomatik ayarlanması hk.

[emrahcaliskann]

Merhaba,
Bir klasör içindeki birden fazla farklı isimden oluşan excel dosyalarının tek tek işlem yapmadan otomatik olarak sütunlarında hücre içerisine yazılan metin kadar ayarlanmasını istiyorum. Bu konuda yorum ve yardımlarınızı rica ederi. Teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Siz tek tek işlem yapmadan demişsiniz ama bu işlem için dosyaları tek tek açmanız gerekir...

Bu aşamada dosya sayısı fazla ise işlem makro ile yapılarak kolaylaştırılabilir...

 

[emrahcaliskann]

Merhaba,
makro ile nasıl yapmam gerekiyor. Teşekkürler.

 

[Korhan Ayhan]

Deneyiniz.

Kod içindeki klasör yolunu değiştirmeyi unutmayınız.

Option Explicit

Sub Folder_Files_All_Sheets_Columns_AutoFit()
    Dim FSO As Object
    Dim Main_Folder As String
    Dim My_File As Object
    Dim WB As Workbook
    Dim Sh As Worksheet
        
    Application.ScreenUpdating = 0
        
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    Main_Folder = "C:\Belgelerim\Excel Dosyaları\"

    For Each My_File In FSO.GetFolder(Main_Folder).Files
        Set WB = Workbooks.Open(My_File, 1, 0)
        For Each Sh In WB.Worksheets
            Sh.Columns.AutoFit
        Next
        WB.Close 1
    Next
    
    Set FSO = Nothing
    
    Application.ScreenUpdating = 1
    
    MsgBox "Dosyalardaki sütun genişlikleri ayarlanmıştır.", vbInformation
End Sub

 

[emrahcaliskann]

Teşekkürler.