Soru Başka Sayfaya Veri Aktarma Hk.

[emre.basar]

Merhabalar,

Öncelikle desteğiniz için şimdiden teşekkür ederim. Örneğini ekte gönderdiğim excel şablonunda veri sayfasında yer alan bilgileri etiket sayfasına aktarmak istiyorum
fakat şöyle bir durum var. Örnekte ve aşağıda göreceğiniz şekilde etiket sütununda yer alan miktar kadar alt alta aktarmak istiyorum. örneğin etiket adetine 8 yazdıysam diğer sayfada bunu 8 SATIR alt alta ekleyecek bir formül, makro konusunda desteğinize ihtiyacım var.

ÜRÜN CİNSİ	PSF	ETİKET ADETİ	FİYAT DEĞİŞİKLİK TARİHİ
PİJAMA TAKIMI	349,99	8	11.11.2022
SÜTYEN	179,99	2	11.11.2022

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodları bir Module kopyalayıp deneyiniz.

Sub Aktar()
    Dim Bak As Long
    Dim Satir As Long
    Dim syfEtiket As Worksheet, syfVeri As Worksheet
   
    Set syfEtiket = Worksheets("Etiket")
    Set syfVeri = Worksheets("Veri")
   
    For Bak = 2 To syfVeri.Cells(Rows.Count, "A").End(xlUp).Row
        Satir = syfEtiket.Cells(Rows.Count, "A").End(xlUp).Row + 1
        syfEtiket.Range("A" & Satir & ":B" & Satir + syfVeri.Cells(bak, "C")) = syfVeri.Range("A" & bak & ":B" & bak).Value
        syfEtiket.Range("C" & Satir & ":C" & Satir + syfVeri.Cells(Bak, "C")) = syfVeri.Cells(Bak, "D")
    Next
    Satir = syfEtiket.Cells(Rows.Count, "A").End(xlUp).Row
    syfEtiket.Range("D2") = 1
   
    syfEtiket.Range("D" & 3 & ":D" & Satir).Formula = "=D2+1"
End Sub

Sub Temizle()
    Worksheets("Etiket").Range("A2:D" & Rows.Count).ClearContents
End Sub