Seçili Her Satırdan Sonra Bir Satır Ekleme
25 Mayıs 2019
28 Şubat 2021
918
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 | |
|---|---|
| Hücreyi Sağa Yaslı Hale Getirmek | Alt Ş AI |
| Veri Aralığının En Üstüne Gitme | Ctrl ↑ |
| VB Penceresini Açmak | Alt F11 |
| Yazdırma Alanı Belirlemek | Alt P M B |
| Hücreyi Kopyalama/Çoğaltma | Ctrl Sürükle |