Satır Çoğaltma ve Veri ekleme

vein03051976

Altın Üye
Katılım
9 Ocak 2009
Mesajlar
116
Excel Vers. ve Dili
Excel 365 Türkçe
Altın Üyelik Bitiş Tarihi
05-04-2027
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.
 

Ekli dosyalar

dEdE

Destek Ekibi
Destek Ekibi
Katılım
1 Temmuz 2005
Mesajlar
2,605
Excel Vers. ve Dili
Ofis 2013 TR 64 Bit
Merhaba,
Bir modüle yapıştırarak dener misiniz?
Kod:
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

Altın Üye
Katılım
9 Ocak 2009
Mesajlar
116
Excel Vers. ve Dili
Excel 365 Türkçe
Altın Üyelik Bitiş Tarihi
05-04-2027
Merhaba

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

vein03051976

Altın Üye
Katılım
9 Ocak 2009
Mesajlar
116
Excel Vers. ve Dili
Excel 365 Türkçe
Altın Üyelik Bitiş Tarihi
05-04-2027
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
 

Ekli dosyalar

Üst