dikey verilerin alt alta 10 kopyasını oluşturmak ?

[myredkit]

merhaba excel de soldaki ürün id leri listesini, sağdaki gibi 10 ar adet kopyasını çıkartıp alt alta nasıl sıralayabilirim.

 

[Emir Hüseyin Çoban]

. . .

Tablonun şu şekilde olduğunu varsayarsak aşağıdaki kodları deneyiniz.

Sub kod()
    Application.ScreenUpdating = False
    
    satır = 2
    Range("D:D").ClearContents: Range("D1") = "kopya id"
    
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        For a = 1 To 10
            Cells(satır, "D") = Cells(i, "A")
            satır = satır + 1
        Next a
    Next i
    
    Application.ScreenUpdating = True
    MsgBox "B i t t i "
End Sub

. . .

 

[emregnlts]

merhabalar,

elimde 2 tane veri tablosu var. 1. dosya da tüm data verilerimiz var. 2. dosya da ise 1. dosyadan almak istediğimiz veriler var.

sorum şu; referans olarak aldığımız değerin karşı sütunlarında bazılarında alt olarak sütun satırlara ayrılmış. bu sebepten ötürü en baştaki değer neyse o geliyor ama hepsi lazım.. hocam bunu nasıl yapabiliriz yardımcı olabilirmisin ?

 

[myredkit]

çok teşekkür ederim çalıştı. bu şekilde 1000 küsür id var. büyük iş yükünden kurtardın.

. . .

Tablonun şu şekilde olduğunu varsayarsak aşağıdaki kodları deneyiniz.

Sub kod()
    Application.ScreenUpdating = False
    
    satır = 2
    Range("D:D").ClearContents: Range("D1") = "kopya id"
    
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        For a = 1 To 10
            Cells(satır, "D") = Cells(i, "A")
            satır = satır + 1
        Next a
    Next i
    
    Application.ScreenUpdating = True
    MsgBox "B i t t i "
End Sub

. . .