Excelde Boş Satır Silme
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:
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.
Kolay gelsin.
Boyut: 7.5 KB
Excel Bos Satir Sil (7,5 KiB, 1.775 kez)
![[Facebook]](http://e-cozum.net/wp-content/plugins/bookmarkify/facebook.png)
![[Google]](http://e-cozum.net/wp-content/plugins/bookmarkify/google.png)
![[MySpace]](http://e-cozum.net/wp-content/plugins/bookmarkify/myspace.png)
![[Technorati]](http://e-cozum.net/wp-content/plugins/bookmarkify/technorati.png)
![[Twitter]](http://e-cozum.net/wp-content/plugins/bookmarkify/twitter.png)
![[Windows Live]](http://e-cozum.net/wp-content/plugins/bookmarkify/windowslive.png)
![[Yahoo!]](http://e-cozum.net/wp-content/plugins/bookmarkify/yahoo.png)
![[Email]](http://e-cozum.net/wp-content/plugins/bookmarkify/email.png)
arkadaşım benim elimde baya karışık bi exel dosyası var.kimi satırlar boş ama bu satırlarda hücreleri birleştirilmişler var.bana yardımcı olursan çok sevinirim.
saygılar…
bu satırları silmeye çalıştım ama senin makro koduyla yapamadım.ya ben beceremedim ya da exel sayfa yapısı biraz karışıktı makro olmadı.ben de pek anlamam açıkçası makrolardan
lütfen yardım…
Tüm hücreleri seçin.
* Ters tıklayıp “Hücreleri Biçimlendir” seçeneğini işaretleyin.
* Açılan pencerede “Hizalama” sekmesine gelin.
* “Hücreleri Birleştir” satırındaki onay kutusunu temizleyin.
çok teşekkürler çok işime yaradı
kardeş eline sağlık devleti (bizim kurumu) yüzlerce kağıt israfından kurtardın
Sağolasın hem o kodu yazman hemde açıklaması nı yapman çok işime yaradı.
dostum çok güzel bi işlem çok çok işime yaradı uğraşıcaktık bir sürü ama bu makro ciddi çok iyiyimiş tşkler
ben yapıyorum silmiyor
ofis2007 var olmuyor.
Çok işime yaradı teşekkürler. hatta ihtiyacıma göre degiştirip farklı şekillerdede kullandım :=
Sağol çok işime yaradı.
Çok işime yaradı.Teşekkürler
ya mükemmelsin elimde buluanan 5530 kişilik bir listeyi 2 sn de hallettim sayende çok saol