tek dosyada sayfalar arası verilerin trasferi

[kotell]

sev hocalarım dosyada problemim i belirtim bir formül ekskligi var yardımınıza ihtiycım var ilginize tesekkürler

 

[BAZGİRET]

iyi geceler,
Eki inceleyiniz.

 

[kotell]

hocam burada bir işlem olmamış verilerin sipariş saffasın a geçerken gecerken 3 siparis varsa 3 ayrı sutuna 1eradet geçmesi lazım çünkü ime numaralarını işliycem

 

[kotell]

srunuma bir cözom bulalım lütfen

 

[kotell]

konuma yr olan biriwsi olursa sevinirim

 

[Emir Hüseyin Çoban]

konuma yr olan biriwsi olursa sevinirim

. . .

İletilerinizde yazım kurallarına biraz daha dikkat etmelisiniz !

Aktarma işlemi için kodlar:
Sadece aktarma yapar, silme vb. işlemleri diğer kodlamalarımızdan ilave edebilirsiniz.
Sorunun ikinci kısmını anlamadım. Satış tablosu nasıl oluşturulmalı.

Sub KOD_2()
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim SP As Worksheet
Dim ST As Worksheet
Set SP = Sheets("S-PARİŞ AYFASI")
Set ST = Sheets("STOK SAYFM")

sonsat = SP.[G65536].End(3).Row
sat = 2

For i = 2 To sonsat

For a = 1 To SP.Cells(i, "ı")

ST.Cells(sat, "A") = SP.Cells(i, "G")
ST.Cells(sat, "B") = "1"
sat = sat + 1
Next a
Next i

Application.ScreenUpdating = True
Application.EnableEvents = True
MsgBox " B i t t i"

End Sub