Belirli Sayıda Satır Eklemek

[zaffa]

Merhaba,
Excelde 700 satırlık bir excel dosyam var ancak her satırın altına ilgili satırın sağ tarafında yazan rakam kadar satır eklemem gerekiyor.
Ne yapabilirim sizce?
Örnek excel dosyası ekte bulunmakta.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

Sub SATIR_EKLE()
    Dim X
    
    For X = Cells(Rows.Count, "A").End(3).Row To 2 Step -1
        If Cells(X, "B") > 0 Then
            Cells(X + 1, "A").Resize(Cells(X, "B")).EntireRow.Insert
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[bmutlu966]

Aşağıdaki kodlarla sanırım halledebilirsiniz.

Sub ekle()

son = [A65536].End(3).Row
For Z = son To 2 Step -1
If Cells(Z, "b") <> "" Then n = Cells(Z, "b")

For t = 1 To n
Rows(Z + 1).Insert
Next

Next

End Sub

 

[zaffa]

Kusura bakmayın yeniyimde, bu formülleri nereye yazacağım acaba?

 

[Korhan Ayhan]

Merhaba,

Dosyanızı açın.
ALT+F11 tuşlarına basıp kod penceresini açın.
INSERT menüsünden MODULE ekleyin.
Sağ tarafta açılan beyaz pencereye kodları uygulayın.
Kod içinde bir satırı mouse ile tıklayıp F5 tuşuna basın. Yada menü tuşunda PLAY tuşuna basıp makyroyu çalıştırın.

 

[zaffa]

Korhan Bey,
Tekrardan çok teşekkür ederim, peki ekte ki örnekte bulunan a sheetindeki tablonun b sheetinde bulunan tabloya dönüşmesi için yazmış olduğunuz formüle nasıl bir ekleme yapmamız gerekir acaba?

 

[Korhan Ayhan]

Merhaba,

Aşağıdkai kodu deneyin.

Sub SATIR_EKLE()
    Dim X
    
    For X = Cells(Rows.Count, "A").End(3).Row To 2 Step -1
        If Cells(X, "C") > 0 Then
            Cells(X + 1, "A").Resize(Cells(X, "C")).EntireRow.Insert
            Cells(X, "A").AutoFill Destination:=Range("A" & X & ":A" & X + Cells(X, "C")), Type:=xlFillDefault
            Range("B" & X & ":B" & X + Cells(X, "C")).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, Step:=1, Trend:=False
            Range("C" & X & ":C" & X + Cells(X, "C")).Borders.LineStyle = 1
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[metetayan]

bir excel dosyasında 10-100 arası satırlara 5 er satır eklemek istesem nasıl yapabiliriz

 

[Korhan Ayhan]

Merhaba,

Sorunuzu küçük bir örnek dosya ile destekleyiniz. Dosyanızda örnekle açıklarsanız çözüm daha hızlı bulunur.