• Merhaba Ziyaretçi.
    "Minimalist Fotoğraflar" konulu fotoğraf oylaması başladı. İlgili konuya BURADAN ulaşabilirsiniz. Oylamaya katılmanızı bekliyoruz...
Kaynak ikonu

Excelde Boş Satır Silme

İndirmek için giriş yapınız
Excelde çok uzun dokümanlarınızda arada bulunan boş satırları silmek çok fazla zaman harcanmasına neden olur. Örneğin Microsoft Word belgesinden Excel Çalışma Sayfasına aktarığım 1500 adet okul adını içeren dokümandaki her okul adı altında bir satır boşluk vardı ve bunların silinmesi gerekiyordu.

İşte bu tür işlemler için kullanılabilecek kullanışlı bir makro imdadımıza yetişiyor. Yukarıda anlatılan benzer bir sorunu saniyeler içerisinde halledebilirsiniz^^ Alttaki makro kodunu Excel çalışma kitabınıza entegre ettikten sonra Çalışma sayfasında dolu satırlar arasındaki boş satırları otomatik olarak sildirebilirsiniz.

Makro Kodu:
Kod:
Sub Sil()
Application.ScreenUpdating = False
        Dim i As Integer
        t = ActiveSheet.UsedRange.Rows.Count
            For i = t To 1 Step -1
                If IsEmpty(Cells(i, 1)) And IsEmpty(Cells(i, 2)) And IsEmpty(Cells(i, 3)) And IsEmpty(Cells(i, 4)) Then
            Rows(i).Delete Shift:=xlUp
        End If
   Next i
Application.ScreenUpdating = True
End Sub
Makroyu Kaydetmek için;
  • Excel çalışma sayfası açıkken “Araçlar > Makro > Visual Basic Düzenleyici” yolunu izleyin.
  • Açılan Visual Basic düzenleme pencersenide sol taraftaki “Module1” başlığına tıklayın.
  • Sağdaki alana yukarıdaki makro kodunu kopyalayıp aynı şekilde yapıştırın ve kaydedin.
Şimdi çalışma sayfanızdaki dolu satırlar arasında kalan boş satırları silmek için “Araçlar > Makro > Makrolar” yolunu izleyin. Burada oluşturduğumuz “Sil” adındaki makroyu görebilirsiniz. Seçili hale getirip sağdaki “Çalıştır” butonuna tıklayın. Artık belgenizdeki boş satırlar temizlenmiştir. İsterseniz makroyu çalıştırmak için belgenizde bir buton da oluşturabilirsiniz.


Konu ile ilgili uygulama dokümanını alttaki linkten indirebilirsiniz.

Boyut: 7.5 KB
Gönderen
YoRuMSuZ
İndirilme
207
Gösterim
666
İlk yayınlama
Son güncelleme

Ratings

0.00 star(s) 0 oy

YoRuMSuZ: diğer kaynakları

Geri
Top