satır ekleme makrosu

[nes432]

Arkadaşlar merhaba,

Basit bir makroya ihtiyacım var. J sütununda yer alan sayıya göre satır eklemek istiyorum. Gerekli açıklamalar dosyanın içindedir. Yardımcı olursanız çok sevinirim.

Şimdiden teşekkür ederim.

http://s7.dosya.tc/server9/nzxav9/deneme.xlsx.html

 

[turist]

Aşağıdaki kodu deneyin.

Sub SatirAc()
    Worksheets("icmal").Activate
    Dim r, count As Range
    Dim sonsatir As Long
    Dim kacsatir As Integer
    Set r = Range("A:J")
    Set count = Range("J:J")
    sonsatir = Range("J" & Rows.count).End(xlUp).Row
    On Error Resume Next
    For n = sonsatir To 1 Step -1
        kacsatir = Range("J" & n)
        If (kacsatir > 1) Then
            Rows(n + 1 & ":" & n + kacsatir - 1).Insert Shift:=xlDown
        End If
    Next n
End Sub

 

[nes432]

Aşağıdaki kodu deneyin.

Sub SatirAc()
    Worksheets("icmal").Activate
    Dim r, count As Range
    Dim sonsatir As Long
    Dim kacsatir As Integer
    Set r = Range("A:J")
    Set count = Range("J:J")
    sonsatir = Range("J" & Rows.count).End(xlUp).Row
    On Error Resume Next
    For n = sonsatir To 1 Step -1
        kacsatir = Range("J" & n)
        If (kacsatir > 1) Then
            Rows(n + 1 & ":" & n + kacsatir - 1).Insert Shift:=xlDown
        End If
    Next n
End Sub

teşekkür ederim tam istediğim gibi. elinize sağlık

 

[nes432]

Aşağıdaki kodu deneyin.

Sub SatirAc()
    Worksheets("icmal").Activate
    Dim r, count As Range
    Dim sonsatir As Long
    Dim kacsatir As Integer
    Set r = Range("A:J")
    Set count = Range("J:J")
    sonsatir = Range("J" & Rows.count).End(xlUp).Row
    On Error Resume Next
    For n = sonsatir To 1 Step -1
        kacsatir = Range("J" & n)
        If (kacsatir > 1) Then
            Rows(n + 1 & ":" & n + kacsatir - 1).Insert Shift:=xlDown
        End If
    Next n
End Sub

sabit bir satır eklemek için nasıl değiştireceğiz bu makroyu. her satır arasına 4 satır eklemek mesela

 

[nes432]

sabit bir satır eklemek için nasıl değiştireceğiz bu makroyu. her satır arasına 4 satır eklemek mesela

tmm yaptım bunu da teşekkür ediyorum iyi çalışmalr

 

[turist]

Teşekkürler.
İyi çalışmalar.

 

[tugkan]

Merhaba,
Otomatik satır ekleme konusunda mümkünse benim de bir ricam olacak. Eklediğim dosyadaki "K" sütununda yazan rakama göre boş satır ekletebilir miyiz?
Örnek: K19 hücresinde "5" yazıyorsa 19'uncu satırın altına(Başka bir deyişle 1 numaralı kutunun altına) 5 adet satır eklesin. K20'de 4 yazıyorsa (2 numaralı kutunun altına) 4 adet satır eklesin.....vb

 

[turist]

Merhaba,
Otomatik satır ekleme konusunda mümkünse benim de bir ricam olacak. Eklediğim dosyadaki "K" sütununda yazan rakama göre boş satır ekletebilir miyiz?
Örnek: K19 hücresinde "5" yazıyorsa 19'uncu satırın altına(Başka bir deyişle 1 numaralı kutunun altına) 5 adet satır eklesin. K20'de 4 yazıyorsa (2 numaralı kutunun altına) 4 adet satır eklesin.....vb

Dosyanız eklidir.

 

[tugkan]

@turist Hocam her zamanki gibi süpersiniz ) Teşekkür ederim.

 

[turist]

Sağ olun, iyi çalışmalar.

 

[tugkan]

@turist hocam merhaba,
Eklediğiniz dosyayı kullanmaya başladım ama bir sorun var. 0 yazdığım hücrelerin üst satırına 2 tane boş satır ekliyor.Örnek dosyamda 0 yazmamışım kusura bakmayın. Kullanmaya başlayınca problem ortaya çıktı.

 

[tugkan]

@turist hocam merhaba,
Eklediğiniz dosyayı kullanmaya başladım ama bir sorun var. 0 yazdığım hücrelerin üst satırına 2 tane boş satır ekliyor.Örnek dosyamda 0 yazmamışım kusura bakmayın. Kullanmaya başlayınca problem ortaya çıktı.

0 yazmak yerine boş bırakınca eklemiyor.

 

[tugkan]

Bazı satırlara fazladan 2 satır ekliyor nedenini çözemedim
Verilerin ham halini ve uygulanmış halini ekledim. Fazla eklenen satırları yeşile boyadım. Sebebini bulmaya çalışıyorum benden kaynaklı bir sorun mu var diye. Müsaitseniz bakabilir misiniz?

 

[turist]

Dosyanız eklidir.

 

[tugkan]

Tekrar teşekkür ederim Sayın @turist

 

[turist]

Sağ olun, iyi çalışmalar.

 

[fatiherol06]

teşekkür ederim tam istediğim gibi. elinize sağlık

Merhaba
arkadaşlar bu makroyu çalıştıramadım bende bir tablo var d2 sutunundaki rakam kadar d2 sutunununun altına boş satır ekleyecek ve 62 bin küsür satır var bu şekilde yardımcı olabilirmisiniz ?

 

[D.Ozsahin]

Çok yardımcı oldunuz teşekkürler