Seçili Hücrelerden Boşlukları Kaldırma

Bu kod ile Seçili Hücrelerden Boşlukları Kaldırma işlemini çok hızlı bir şekilde gerçekleştirebilir, işlerinizde zaman tasarrufu sağlayabilirsiniz.

Sub RemoveSpaces()
Dim myRange As Range
Dim myCell As Range
Select Case MsgBox("Bu işlem geri alınamaz! " & "Önce kayıt etmek ister misiniz?", vbYesNoCancel + vbQuestion, "UYARI")
    Case Is = vbYesThisWorkbook.Save
    Case Is = vbCancel
    Exit Sub
End Select
Set myRange = Selection
For Each myCell In myRange
    If Not IsEmpty(myCell) Then
        myCell = Trim(myCell)
    End If
Next myCell
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.

Kod Açıklaması

Excel'de fazladan kalmış boşlukları hızlı bir şekilde kaldırmak için üstteki kodu kullanabilirsiniz.

50 Farklı Hazır Makro (VBA) Kodu
Seri Numaralarını Ekleme
Aktif Çalışma Sayfası Korumasını Kaldırma
Boş Hücrelerin Görünmez Alanını Vurgulama
C Klasörüne Sanal Dizin Oluşturma
Hangi Günde Olduğunu Bulma
Belirli Metni Vurgulama
Satırları Otomatik Sığdır
İlk ve Son Hücre Arasındaki Satır Sayısı
2. Satırdaki Bilgileri Silmek
Excel Makroları ile Form Çağırma
Hücre Biçimlendir Yazı Tipi Penceresini Açma
Makrolar ile Klasör Kopyalama
ListBox Üzerindeki Verilere Çoklu Seçim Yapma
Excel Açılırken Otomatik İşlem Yaptırma
UserForm Üzerinde Dört İşlem
Sütunu Kes Kopyala ve Yapıştır
Kopyala ve Değer Olarak Yapıştır
Seçimi Yazdırma
Sayfada Alan Seçme ve Listeleme
Tek Hücreyi Kes Kopyala ve Yapıştır
Özel Sayfaları Yazdırma
Kullanıcı Adınızı Bulma
Top 10 Değeri Renklendirme
Dar Kenar Boşluğu Yazdırma
Gizli Sayfaların Bulunması ve Gösterilmesi
Seçili Satırların Sayısını Bulma
Makro ile Dosya Açma
Seçili Aralığa Ait Bilgilerin Listelenmesi
Çalışma Sayfalarını Alfabetik Olarak Sıralama
Çalışma Kitabını Kapatırken Otomatik Kaydetme
Başka Dosyada Şifreli Userform Oluşturmak
Excel Alarm Kurma
Seçili Sütunların Sayısını Bulma
Bilgisayar Bilgilerini Özetleme
Makro ile Boş Satırları Silme
Txt Dosyası Oluşturma
UserForm Üzerine CommandButton Ekleme
Negatif Sayıları Vurgulama
Excel Crackleme İşlemi Makrosu
Aktif Çalışma Sayfası Dışında Tümünü Silme
MsgBox ile Uyarı Çıkarma Kodu
Salt Okunur Excel Dosyasını Kontrol Etme
Kapanışta Sayfaların Otomatik Olarak Gizlenmesi
A1 Referans Stilini Etkinleştirme
Makro Çalışırken İmlecin Hareket Etmemesini Sağlama
R1C1 Referans Stilini Etkinleştirme
Boşluk Olan Hücreleri Renklendirme
Çalışma Kitabını E-Posta Ekine Ekleme
Hücrenin Arka Plan Rengini Değiştirme
Kaydedilmemiş Açık Çalışma Kitaplarını Sayma

Daha önce yorum yapılmamış!

Çalışma sayfalarının adlarının bulunduğu sekmelerden herhangi birinin ya da Shift Ctrl tuşlarına basmak suretiyle fare ile çoklu seçerek çoklu olacak şekilde seçtikten sonra, üzerine sağ tıklatıp, renklendirebilirsiniz.

image-20200617000401-1.png

Sonuç:

image-20200617000558-2.png
Yükleniyor...