Kullanılan Tüm Sütunları Otomatik Sığdır

Kullanılan Tüm Sütunları Otomatik Sığdır isimli kodu kullanarak, Excel sütunlarının genişliklerini içeriğine göre otomatik olarak ayarlayabilirsiniz.

XD Destek İste
Sub AutofitAllUsed()

Dim x As Integer

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

End Sub

Gerekli Adımlar

Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.

  1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
  2. 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.
  3. Araç çubuklarından Insert -> Module yazısına tıklayın.
  4. Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
  5. Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
  6. Üstteki kodu yapıştırın.

Etiketler

50 Farklı Hazır Makro (VBA) Kodu
Yorumları İçeren Hücreleri Renklendirme
Şeffaf UserForm Oluşturma Kodu
Sayfadaki Grafikleri Yeniden Boyutlandırma
Aktif Hücrenin Satır Numarasını Bulma
56 Renk Kodunu Sıralama
Aktif Sayfayı Kopyala Yeni Bir Kitaba Yapıştır
Aktif Hücrenin Sütun Numarasını Bulma
Yanıp Sönme Efekti Verme Kodu
Son Dolu Satırın Bir Altına Yazdırma
Grafiği Görüntü Olarak Yapıştırma
Dizileri Döngüye Eklemek
Excel Crackleme İşlemi Makrosu
ListBbox ve ComboBox Satır Kaydırma
Yorumları Yazdırma
Bir Çalışma Kitabında Kaç Sayfa Var
Pivot Tablo Alt Toplamlarını Gizleme
Aktif Çalışma Sayfasını Koruma
Tüm Satırda İşlem Yapan Döngü
Aktif Hücrenin Temel Bilgilerini Bulma
Dar Kenar Boşluğu Yazdırma
Salt Okunur Excel Dosyasını Kontrol Etme
Sütun Genişliğini Ayarla
Sütun Genişliklerini Otomatik Ayarlama
Tek Hücreyi Kes Kopyala ve Yapıştır
Gizli Sayfaların Bulunması ve Gösterilmesi
Çalışma Sayfalarını Alfabetik Olarak Sıralama
Excel Şerit Menü Çubuğunu Gizleme
Hatalı Hücreleri Renklendirme
Makro ile Hızlı Doldurma
Açıklama İçeren Tüm Hücreleri Vurgulama
Birden Çok Satır Ekleme
Çift Satırlı Msgbox Örneği
Excel Alarm Kurma
Seri Numaralarını Ekleme
A1 Referans Stilini Etkinleştirme
Roma Rakamlarını Normal Sayılara Dönüştürme
Açılışta İstediğiniz Sayfanın Aktif Edilmesi
Aktif Çalışma Sayfası Dışında Tümünü Silme
Sağ Tık ile Açılan Menüye Ekleme Yapma
Tüm Çalışma Sayfalarını Tek Adımda Koruma
Seçili Alandan İstenilen Karakteri Kaldırma
Açık Olan Tüm Excel Sayfalarını Kayıt Ederek Kapatma
Hücre Aralığını Görüntüye Dönüştürme
Excel Menüsüne Ekleme Yapma Kodu
Bir Aralığa Alfabenin Harflerini Ekleme
Aktif Hücrenin İçeriği Hakkında Bilgi Verme
Aktif Çalışma Sayfası Korumasını Kaldırma
Program Başlangıcı Kodları
Sayılara Yeni Bir Sayı Ekleme
Hücrenin Rengini Değiştirme
Üstteki alanda, Google Reklamları yerine sizin reklamınızın yayınlanmasını ister misiniz?
Reklam vermek istiyorum

Daha önce yorum yapılmamış!

Bir çalışma kitabına farklı cihazlardan erişebilmek, çalışma kitabını başkalarıyla paylaşabilmek ve çalışma kitabı üzerinde işbirliği yapmak için çalışma kitabını OneDrive’a kaydedin.
Bunun için;
  1. Şerit Menü'den Dosya > Farklı Kaydet’i seçin.
    • İş veya okul için
      OneDrive - <Şirket adı> seçeneğini belirleyin.
    • Kişisel dosyalar için
      OneDrive - Bireysel’i seçin.
  2. Bir dosya adı girin ve Kaydet’i seçin.
Not: Hesabınızda oturum açmanız gerekebilir.
Yükleniyor...