sayfalar arası veri transferi

[kotell]

sevgili hocalarım durumumu dosya içinde yazdım yardmcı olursanız sevinirim bu konuya daha degişik açıdan cozüm bulabilirmiyiz ben verdigim siparişleri toplam stok olarak bsit bir proglamla elimde gormek istiyorum saygılarımla

 

[Emir Hüseyin Çoban]

. . .

Dosyanız ektedir.

Sub KOD()
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")

For i = 2 To SP.[G65536].End(3).Row
STson = ST.[A65536].End(3).Row + 1
    If SP.Cells(i, "G") <> "" Then
        
        Set bul = ST.Range("A:A").Find(SP.Cells(i, "G"), , xlValues, xlWhole)
        If Not bul Is Nothing Then
        sat = bul.Row
        ST.Cells(sat, "B") = ST.Cells(sat, "B") + SP.Cells(i, "I")
        Else
        ST.Cells(STson, "A") = SP.Cells(i, "G")
        ST.Cells(STson, "B") = SP.Cells(i, "I")
        
        End If
    End If
Next i

[COLOR="DarkGreen"]' TEMİZLE
' aktarma işleminden sonra sipariş listesi silinir
' bu işlemi iptal etmek için
' aşağıdaki kodun başına tırnak (') işaretini yazın[/COLOR]
SP.Range("G2:J65536").ClearContents '<= bu satır
SP.Range("D2:D65536").ClearContents '<= bu satır

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

. . .

 

[kotell]

tesekkürler hocam

 

[kotell]

hocam bir dosyam var yar olumusunuz rahatsız ettiim icin ozur dilerim kımse cevaplamadı