Birden Çok Excel Dosyasının Satır Aralıklarını Eşitleme

[AntiClient]

Merhabalar,

Elimde 2500 adet 1000erli verili excel dosyası var. Bunların satır aralıkları çok sorunlu. Örneğin;

satır aralıklarını eşitlemenin bir makrosu var mı acaba ve bunu nasıl 2500 ayrı dosyaya uygulayabilirim? örneği olan varsa paylaşırsa sevinirim.

 

[Korhan Ayhan]

Merhaba,

İstediğiniz işlem satır yüksekliklerini eşit hale getirmek midir?

 

[AntiClient]

Merhaba,

İstediğiniz işlem satır yüksekliklerini eşit hale getirmek midir?

merhaba evet hocam, ama bu tür dosyalardan elimde 1023 adet var, bu yüzden tek tek değil de toplu bir şekli var mı diye öğrenmek istiyorum. Eğer c# programlama dilinde de yapılabiliyorsa, bir kodu falan bilyiorsanız çok minnettar olurum.

 

[Korhan Ayhan]

Merhaba,

Ekteki örnek dosyayı inceleyiniz.

Örnek dosyayı masaüstüne kayıt edin.

Dosyalarınızı bir klasör altında topladıktan sonra dosyadaki butona tıklayın.

İlgili klasörü seçip işlemin tamamlanmasını bekleyin.

Option Explicit

Sub KLASORDEKI_DOSYALARDA_SATIR_ARALIKLARINI_DUZENLE()
    Dim Klasor As Object, Dosya As String, Kitap As Workbook, Sayfa As Worksheet
        
    Set Klasor = CreateObject("Shell.Application").BrowseForFolder(0, "Klasör seçiniz !", 1)
    If Klasor Is Nothing Then Exit Sub
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    Dosya = Dir(Klasor.Self.Path & "\*.*")
    
    While Dosya <> ""
        Set Kitap = Workbooks.Open(Klasor.Self.Path & "\" & Dosya, False, False)
        DoEvents
        For Each Sayfa In Kitap.Worksheets
            Sayfa.Cells.RowHeight = 15
        Next
        Kitap.Close 1
        Dosya = Dir
    Wend
    
    Set Klasor = Nothing

    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
        
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[AntiClient]

çok teşekkür ederim, beni büyük bi dertten kurtardınız hocam.

 

[RedStar]

Hocam iyi bayramlar yeni bir başlık açmak istemedim bir çalışma sayfasındaki tüm satırları nasıl eşit aralıklı olarak ayarlayabiliriz?

Yine bir çalışma sayfasındaki örnek olarak 8 sütün var birinci sayfadaki 8 sutunun genişligini ilk sayfadakiyle istedigimiz degerleri girerek aynı yapabiliriz.Teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Tüm sayfaları seçerek istediğiniz ayarları toplu olarak yapabilirsiniz.