Seçili Her Satırdan Sonra Bir Satır Ekleme
25 Mayıs 2019
28 Şubat 2021
905
Bu kod ile Seçili Her Satırdan Sonra Bir Satır Ekleme işlemini çok hızlı bir şekilde gerçekleştirebilir, işlerinizde zaman tasarrufu sağlayabilirsiniz.
Sub InsertAlternateRows()
Dim rng As Range
Dim CountRow As Integer
Dim i As Integer
Set rng = Selection
CountRow = rng.EntireRow.Count
For i = 1 To CountRow
ActiveCell.EntireRow.Insert
ActiveCell.Offset(2, 0).Select
Next i
End SubGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- 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.
- Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
- Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
Bu kod seçtiğiniz satırların her birinin üzerine birer satır ekleme işlevini hızlı bir şekilde yerine getirir. Eğer binlerce satırlık verilerinizde sırayla satır ekleme ihtiyacınız varsa, bu hazır makro kodunu çalıştırın ve keyfini çıkarın.
Etiketler :
| YARARLI KISAYOLLAR | |
|---|---|
| Yakınlaştır Penceresini Açma | Alt M KA |
| Binlik Ondalık Ayırıcı Ekleme | Ctrl Shift 1 |
| Kılavuz Çizgilerini Gizleme Gösterme | Alt P Ç |
| Bir Ekran Yukarı Git | PgUp |
| Kaydet / Alternatif | Shift F12 |