iki tablo fark alma

[ormanci_50]

merhaba
arkadaşlar sevk sayfasında yazılı olan çıkışların. Sayfasında stoktan düşmesini istiyorum bunun için yardımınızı rica ederim.
iyi çalışmalar

 

[apocalyt]

yukarıdaki açıklamadan ne yapmak istediğinizi anlayamadım..biraz daha net açıklamalar yaparsanız birisi yardım edecektir diye düşünüyorum..

 

[dEdE]

Merhaba,
Aşağıdaki kodu Modüle yapıştırıp dener misiniz?

Sub Stok()
Set s1 = Sheets("sevk")
For i = 2 To s1.Range("E" & Rows.Count).End(3).Row
Set syf = Sheets(s1.Cells(i, 5).Value)
Set Aranan = syf.Range("A:A").Find(s1.Cells(i, 2).Value, , xlValues, xlWhole)
    If Not Aranan Is Nothing Then
        syf.Cells(Aranan.Row, 3).Value = syf.Cells(Aranan.Row, 3).Value - s1.Cells(i, 4).Value
    End If
Next i
MsgBox "Sevkler Stoktan  Düşüldü.", vbInformation, "dEdE " & Application.UserName & "'e Başarılar diler."
End Sub

 

[ormanci_50]

arkadaşlar ilginiz için teşekkür ederim.
dosyayı tekrar ekledim.
sevk listesindeki satıları bulup bu sayısı tamamlayana kadar yanına yazması
daha iyi olacaktır.

 

[ormanci_50]

merhaba
arkadaşlar konu gencell

 

[ormanci_50]

konu güncel arkadaşlar hala yardım bekliyorum

konu güncel arkadaşlar hala yardım bekliyorum

 

[ormanci_50]

QWARFQATGGArtgqergergrteshgrtht