Excel Boş Satır Ekleme

Katılım
2 Eylül 2021
Mesajlar
14
Excel Vers. ve Dili
excel 2010 Profesonal Plus
Merhabalar ;

Mesleğim muhasebecilik olduğundan faturaları excel üzerinden aktarım sağlıyorum. Fakat bazı müşterilerimin exceli var ki 25.000 30.000 adet faturası oluyor. Ve benim kullandığım entegratör 399 adet faturada aktarabiliyor tek seferde . Excele nasıl bir komut vermeliyim ki her 399 satırda 1 boşluk oluştursun.

Örn : 1- satır ile 399 satırın arasına boydan boya bir boşluk
 
Son düzenleme:

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,678
Excel Vers. ve Dili
Excel 2019 Türkçe
Bu şekilde dener misiniz ?
Kod:
    For i = 1 To [a65536].End(3).Row
        k = k + 1
        If k = 399 Then Rows(i).Insert: Cells(i, 1) = "X": i = i + 1: k = 1
    Next
End Sub
 

Tevfik_Kursun

Altın Üye
Katılım
30 Temmuz 2012
Mesajlar
3,581
Excel Vers. ve Dili
Office 2016 Pro - Türkçe 64 Bit
Merhaba Arkadaş,
Alternatif olsun
Kod:
Sub Araya_Satir_Ekle()
    For i = 1 To [a65536].End(3).Row
        If i Mod 399 = 0 Then Rows(i).Insert
    Next i
End Sub
Bu makro her 399 satırda bir boşluk yaratır.
İyi çalışmalar
 
Katılım
2 Eylül 2021
Mesajlar
14
Excel Vers. ve Dili
excel 2010 Profesonal Plus
Bu şekilde dener misiniz ?
Kod:
    For i = 1 To [a65536].End(3).Row
        k = k + 1
        If k = 399 Then Rows(i).Insert: Cells(i, 1) = "X": i = i + 1: k = 1
    Next
End Sub
Yardımlarınız için teşekkür ederim , Konuyu yeni başlayanlara açtığımdan bu kodu nasıl ekleyip aktif edebileceğimi anlatan bir forum konu var ise paylaşabilir misiniz.
 

Tevfik_Kursun

Altın Üye
Katılım
30 Temmuz 2012
Mesajlar
3,581
Excel Vers. ve Dili
Office 2016 Pro - Türkçe 64 Bit
Merhaba,
Bu da alternatif olsun

ALT ve F11 tuşlarına birlikte bastığınızda karşınıza Resim_1 gibi görüntü gelir.
Üst satırında Insert sekmesinden Module tuşuna basınız Resim_2
Makroyu, Module1 e kopyalayın Resim_3, Resim_4, Resim_5
Açık excel sayfasında bir hücreye basın
Geliştirici sekmesinden ekle ye bastığınızda Resim_6
Form Denetimleri bölümünde ilk dikdörtgene bastığınızda mouseun ucu + işaretne dönüşür
excel içinde bir hücreye basarak biraz açıp bırakırsanız Düğme oluşur Resim_7
Bu düğmeye bastığınızda makroya çalış komutu gider

Ekli dosya da sizin için örnek
İyi çalışmalar
 

Ekli dosyalar

Tevfik_Kursun

Altın Üye
Katılım
30 Temmuz 2012
Mesajlar
3,581
Excel Vers. ve Dili
Office 2016 Pro - Türkçe 64 Bit
Rica ederim, arkadaşım.
İyi çalışmalar
 
Üst