Kullanılan Sütunları Otomatik Sığdırma

Kullanılan Sütunları Otomatik Sığdırma

Kullanılan Sütunları Otomatik Sığdırma içeriğinde, bu işleminin hızlı bir şekilde yapılmasını sağlayan hazır makro kodları yer almaktadır.

Sütun Sığdırma Kodları​

Kod: 
Sub AutofitAllUsed()

Dim x As Integer

For x = 1 To ActiveSheet.UsedRange.Columns.Count
     Columns(x).EntireColumn.autofit
Next x

End Sub

Uygulama Adımları​

[*]Microsoft Visual Basic for Applications penceresini (Alt + F11) açın. [*]Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın. [*]Araç çubuklarından Insert -> Module yazısına tıklayın. [*]Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın. [*]Üstteki kodu yapıştırın.
 
Son Dolu Hücreye Kopyalama
Son Dolu Hücreye Kopyalama
Sütunları Otomatik Sığdırma Sütunu
Sütunları Otomatik Sığdırma Sütunu
Genişletmek için tıklayın ...
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst