Soru Başka Sayfaya Veri Aktarma Hk.

Katılım
22 Temmuz 2013
Mesajlar
3
Excel Vers. ve Dili
ms 2013
Altın Üyelik Bitiş Tarihi
02-08-2023
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

 

Ekli dosyalar

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,167
Excel Vers. ve Dili
2019 Türkçe
Merhaba.

Aşağıdaki kodları bir Module kopyalayıp deneyiniz.
Kod:
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
 
Son düzenleme:
Üst