1. * 5651 Sayılı Kanun'a göre TÜM ÜYELERİMİZ yaptıkları paylaşımlardan sorumludur.
    * Telif hakkına konu olan eserlerin yasal olmayan şekilde paylaşıldığını ve yasal haklarının çiğnendiğini düşünen hak sahiplerinin İLETİŞİM bölümünden bize ulaşmaları durumunda ilgili şikayet incelenip gereği 1 (bir) hafta içinde gereği yapılacaktır.
    E-posta adresimiz

Excel'de Boş Satır Ekleme - Makro

Konusu 'Excel Çalışmaları' forumundadır ve YoRuMSuZ tarafından 25 Ekim 2009 başlatılmıştır.

  1. YoRuMSuZ
    Avare

    YoRuMSuZ Biz işimize bakalım!

    Katılım:
    7 Haziran 2006
    Mesajlar:
    24.415
    Beğenileri:
    7.327
    Ödül Puanları:
    11.330
    Cinsiyet:
    Bay
    Banka:
    8.717 ÇTL
    Excel'de sütunlardaki dolu satırlar arasına boş satırlar eklemek istiyorsanız alttaki makro kodunu kullanabilirsiniz.

    Kod:
      Kodları görebilmek için ÜYE omalısınız !
    Bu işlemin tersi için, yani sutundaki boş satırları silmek için alttaki linki inceleyin.

    [Linkleri görebilmek için ÜYE olmalısınız!..]
     
  2. suskunetna

    suskunetna Üyecik

    Katılım:
    19 Mart 2011
    Mesajlar:
    4
    Beğenileri:
    0
    Ödül Puanları:
    20
    Banka:
    0 ÇTL
    Eline sağlık.
     
  3. cultureipth

    cultureipth Üyecik

    Katılım:
    13 Temmuz 2013
    Mesajlar:
    1
    Beğenileri:
    0
    Ödül Puanları:
    20
    Banka:
    0 ÇTL
    hocam eline saglık cok isime yaradı yalnız bi sorum daha olacak ekledigimiz satırların yüksekliginide belirtme sansımız varmıdır formulle
     
  4. YoRuMSuZ
    Avare

    YoRuMSuZ Biz işimize bakalım!

    Katılım:
    7 Haziran 2006
    Mesajlar:
    24.415
    Beğenileri:
    7.327
    Ödül Puanları:
    11.330
    Cinsiyet:
    Bay
    Banka:
    8.717 ÇTL
    Makro ile yapılabilir belki ama maalesef çözüm fikrim yok.
     
  5. Murat OSMA

    Murat OSMA Üye

    Katılım:
    9 Kasım 2011
    Mesajlar:
    33
    Beğenileri:
    3
    Ödül Puanları:
    280
    Cinsiyet:
    Bay
    Meslek:
    Excel & VBA Eğitmeni
    Yer:
    İstanbul
    Banka:
    6 ÇTL
    Alternatif;
    PHP:
    Sub Emre()
    Dim a%, c%
    [
    A1].Select2
       
    While ActiveCell.Value <> ""
          
    2
          ActiveSheet
    .Rows(c).Insert Shift:=xlDown
          ActiveCell
    .Offset(a0).Select
       Wend
    End Sub
    2 satır eklemek için;
    PHP:
    Sub İki_Satir_Ekle() Dim a As Bytesat As Byte[A2].Select
    3sat 2
    While ActiveCell.Value <>"" ActiveSheet.Rows(ActiveCell.Row &":"sat ActiveCell.Row 1).Insert Shift:=xlDown
    ActiveCell
    .Offset(a0).Select
    Wend
    = Empty: sat = Empty
    End Sub
    3 satır eklemek için;
    PHP:
    Sub Üç_Satir_Ekle() Dim a As Bytesat As Byte[A2].Select
    4sat 3
    While ActiveCell.Value <>"" ActiveSheet.Rows(ActiveCell.Row &":"sat ActiveCell.Row 1).Insert Shift:=xlDown
    ActiveCell
    .Offset(a0).Select
    Wend
    = Empty: sat = Empty
    End Sub
     
    YoRuMSuZ bunu beğendi.

Sayfayı Paylaş