13 satırda bir boş satır ekleme

[u.L.a.s]

her 13 satırda bir boş satır ekleme makro için bilgi ve yardımlarınızı rica ederim

 

[Orion1]

buyurun.

Sub bossatir59()
Dim i As Long
For i = 1 To 500
    If i Mod 13 = 0 Then
        Cells(i, "A").Value = "Boşsatır"
    End If
Next i
End Sub

 

[Asri]

Alternatif,

boş satır ekleme çeşitleri, Excel de Mouse sağ tuş da tüm excel dosyalarında kullanabilirsiniz.

http://www.excel.web.tr/f52/excel-zel-lemler-menusu-eklentisi-sao-tu-t157219.html

BOŞ SATIR İŞLEMLERİ :
*Hücre içine satır numarası ekle
*Boş satır ekle - her n satır sonra n satır ekle
*Boş satır ekle - x. karakter ile y. karakterler arası değiştiğinde n boş satır ekle
*Boş satır ekle - Bu kelimeyi içeren satırlardan sonra n kadar boş satır ekle
*Sıra numarası ekle - n den başla n artışla . karakteri ekle hücre içeriği silinir.
*Her dolu hücreden sonra, n boş satır ekle. Fazla boş satırlar silinmez.
*Her dolu hücreden sonra, n boş satır ekle. Fazla boş satırlar silinir.
*Sıranumarası ekle, belirli bir sütundaki her değiştiğinde yeniden başla.
*Bulunduğu kolonda hücre değeri değiştiğinde n boş satır ekle
*Boş satır ekle - x. karakter ile y. karakterler arası değişmediğinde n boş satır ekle
*Boş satır ekle, sadece sayı olmayan hücrelere. Bunları karakter kabul et, bunları da sayı kabul et.
*Boş satır ekle, sadece sayı olan hücrelere. Bunları karakter kabul et, bunları da sayı kabul et.
*Boş satır ekle bu kelimeye göre,
-İle başlayanı
-İle başlamayanı
-İle biteni
-İle bitmeyeni
-İçereni
-İçermeyeni
-Eşit olani
-Eşit olmayanı
-Büyük olanı
-Küçük olanı
-Büyük yada eşit olanı
-Küçük yada eşit olanı