Stokları cariye aktarma

[aydgur]

stok sayfamdaki bilgilerin firma sayfalarına aktarılması için yardım rica ediyorum.

 

[veyselemre]

[vb:1:9199c27d62]Sub sayfalaraaktar()
Sheets("stok").Select
For x = 2 To [a65536].End(3).Row
Set s2 = Sheets(Cells(x, 1).Text)
sira = s2.[a65536].End(3).Row + 1
For y = 1 To 8
s2.Cells(sira, y) = Cells(x, y + 1)
Next y
Next x
End Sub[/vb:1:9199c27d62]

 

[aydgur]

çok teşekkür ederim. stok sayfasına yeni değerler girince eski yazdıklarımı silmek zorunda kalıyorum (tekrar yazılmasın diye) bunu nasıl çözebilirim? Çünkü stok sayfasında ki değerleri silmezsem o ay nekadar sattığımı bulabileceğim.Yada stok sayfasındaki bilgileri hem cari sayfalarına hemde ayrı bir sayfaya yazdırabilirmiyim
bari o sayfada biriken değerleri toplarım.

 

[veyselemre]

o zaman aktardıklarının yanına * koyalım, sonraki seferlerde * olanları aktarmaz
[vb:1:8e67a898ae]
Sub sayfalaraaktar()
Sheets("stok").Select
For x = 2 To [a65536].End(3).Row
If Cells(x, "J") <> "*" Then
Set s2 = Sheets(Cells(x, 1).Text)
sira = s2.[a65536].End(3).Row + 1
For y = 1 To 8
s2.Cells(sira, y) = Cells(x, y + 1)
Next y
Cells(x, "J") = "*"
End If
Next x
End Sub
[/vb:1:8e67a898ae]

 

[aydgur]

teşekkür ederim.