Excel Boş Satır Ekleme

[karakaanx1905]

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

 

[hamitcan]

Bu şekilde dener misiniz ?

    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]

Merhaba Arkadaş,
Alternatif olsun

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

 

[karakaanx1905]

Bu şekilde dener misiniz ?

    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.

 

[hamitcan]

Alt+F11 tuşlarına beraber basıp bir Insert menüsünden bir module ekleyin ve kodu yapıştırın.
Kod Yazmayı Öğreniyorum | Excel WEB TR Forum - Excel, Excel Makro, Excel Fonksiyon, Excel Formül, Excel soru ve çözümleri

 

[Tevfik_Kursun]

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

 

[Tevfik_Kursun]

Merhaba,
Sistem 5 dosyadan fazlasına müsaade etmediği için buradan gönderiyorum.
İyi çalışmalar

 

[karakaanx1905]

Emeğinize sağlık Çok Teşekkür ederim.

 

[Tevfik_Kursun]

Rica ederim, arkadaşım.
İyi çalışmalar