Kartlara Otomatİk DaĞitma

[necokara]

Listedeki malzemeleri otomatik olarak kartlara dağıtmam gerekiyor.
Bu işlemi makro ile yapabiliyorum ancak, miktarları kadar kart oluşturmam gerekiyor, bunu nasıl yapabilirim.
Örnek dosya Ek'tedir.
Yardımlarınız için Şimdiden teşekkür ederim.
:yardim:

 

[necokara]

Yardım edecek kimse yokmu ????

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub aktar()
Set s1 = Sheets("ANA LİSTE")
For a = 2 To s1.[b65536].End(3).Row
Set s2 = Sheets("sayfa" & a - 1)
For b = 1 To s1.Cells(a, "e")
If b Mod 2 = 0 Then sut = sut + 3
s2.Cells(sat + 2, sut + 2) = s1.Cells(a, "d")
s2.Cells(sat + 3, sut + 2) = s1.Cells(a, "c")
s2.Cells(sat + 4, sut + 2) = s1.Cells(a, "b")
If b Mod 2 = 0 Then
sat = sat + 7
sut = 0
End If
Next
sut = 0
sat = 0
Next
MsgBox "Aktarma işlemi tamamlandı."
End Sub

 

[necokara]

Sayın Leventm ilginizden ve yardımlarınızdan dolayı çok teşekkür ederim.
Saygılarımla !!!

 

[necokara]

Kartlara Otomatik Dagit

Sayın Leventm,
Kartlara aktarma işlemini yapıyor ancak; miktarlar konusunda bir sorun var,
Yardımlarınızı bekliyorum. Teşekkürler.
:yardim:

 

[Levent Menteşoğlu]

Haklısınız, üstte verdiğim kodu yeniledim tekrar deneyin.

 

[necokara]

Sayın Leventm,
Şimdi sorunsuz çalışıyor. Çok Teşekkür Ederim....