Satır Çoğaltma ve Veri ekleme

[vein03051976]

Merhabalar

Sitedeki örnekleri denedim ama bir kendi dosyama uyarlayamadım.

Örnek dosya ektedir.

Liste Sheetinde "L" sütununda beden adetleri vardır.

Aktar sheetindeki hale getirmeye çalışıyorum. Kaç beden varsa o kadar satır eklemeli ve Bedenleri "E" sütununa sıra ile eklemeli.

 

[dEdE]

Merhaba,
Bir modüle yapıştırarak dener misiniz?

Sub Aktar()
Dim s1, s2 As Worksheet
    Set s1 = Sheets("LİSTE")
    Set s2 = Sheets("AKTAR")
    ss = s1.Cells(Rows.Count, 1).End(3).Row
    sat = 2
    
For i = 2 To ss
ayr = 0
    For j = 1 To s1.Cells(i, 12).Value
        s2.Range("A" & sat & ":" & "D" & sat).Value = s1.Range("A" & i & ":" & "D" & i).Value
        s2.Range("E" & sat).Value = Split(s1.Range("K" & i), "-")(ayr)
        s2.Range("F" & sat & ":" & "K" & sat).Value = s1.Range("F" & i & ":" & "K" & i).Value
        ayr = ayr + 1
        sat = sat + 1
    Next j
Next i
End Sub

 

[vein03051976]

Merhaba

Ellere sağlık çok teşekkürler

 

[vein03051976]

Merhabalar

Bu kodu ekteki tabloya uyarlamaya çalıştım ama beceremedim:-(

"M" sütunundaki sayılar kadar alta boş satır eklemesini istiyoruz.

Ama bu sayılar ilk satırda dahil olduğu için Sayı-1 kadar sütun eklemelidir.

Tablonun içinede açıklama yaptım.

Teşekkürler