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 1 (bir) hafta içinde gereği yapılacaktır.
    E-posta adresimiz

Excel'de Boş Satır Ekleme - Makro

Excel'de Boş Satır Ekleme - Makro

  1. YoRuMSuZ

    YoRuMSuZ Biz işimize bakalım!

    Katılım:
    7 Haziran 2006
    Mesajlar:
    25.367
    Beğenileri:
    8.810
    Ödül Puanları:
    11.330
    Cinsiyet:
    Erkek
    Banka:
    18.092 ÇTL
    Excel'de Boş Satır Ekleme - Makro - Excel'de Boş Satır Ekleme - Makro

    Açıklamanın devamı için tıklayınız...
     
    Son düzenleme: 10 Şubat 2018
  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

    YoRuMSuZ Biz işimize bakalım!

    Katılım:
    7 Haziran 2006
    Mesajlar:
    25.367
    Beğenileri:
    8.810
    Ödül Puanları:
    11.330
    Cinsiyet:
    Erkek
    Banka:
    18.092 Ç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:
    34
    Beğenileri:
    3
    Ödül Puanları:
    280
    Cinsiyet:
    Erkek
    Meslek:
    Excel & VBA Eğitmeni
    Yer:
    İstanbul
    Banka:
    26 Ç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.
Benzer Konular
  1. ZeyNoO
    Mesaj:
    0
    Görüntüleme:
    1.165
  2. YoRuMSuZ
    Mesaj:
    1
    Görüntüleme:
    3.758
  3. MustafaCİLASUN
    Mesaj:
    0
    Görüntüleme:
    439
  4. MustafaCİLASUN
    Mesaj:
    0
    Görüntüleme:
    375
  5. YoRuMSuZ
    Mesaj:
    0
    Görüntüleme:
    1.045
Yüklüyor...

Sayfayı Paylaş