Stok birleştirme

[ozeryayalar]

Kolay gelsin;


Ekteki dosya ıcın yardımlarınızı rıca ederım. Konu bıraz acıldır.

Yapılmak ıstenen;

1- Stok1 ve Stok2 dosyasında bulunların genel listede bırlestırme aynı kod olanları yandakı sutunlarda stok ve stok2 hucrelerıne yazdırmak farklı olanları ıse alt alt eklemek

 

[ozeryayalar]

konu hakkında ustalardan rıcam olacak lutfen yardımcı olabılırmısınız

 

[dEdE]

Merhaba,
Ekli dosyayı inceler misiniz?

Sub StokBirleştir()
Set s1 = Sheets("Stok1")
Set s2 = Sheets("Stok2")
Set s3 = Sheets("Genel Liste")

s3.Range("A4:E" & [A65536].End(3).Row + 1).ClearContents
s1.Range("A4:C" & s1.[C65536].End(3).Row).Copy s3.Range("A4")
For i = 4 To s2.[A65536].End(3).Row
    Set Aranan = s3.[A:A].Find(s2.Cells(i, 1).Value, , xlValues, xlWhole)
    If Not Aranan Is Nothing Then
        s3.Cells(Aranan.Row, 4).Value = s2.Cells(i, 3).Value
        s3.Cells(Aranan.Row, 5).Value = s3.Cells(Aranan.Row, 3).Value - s3.Cells(Aranan.Row, 4).Value
    Else
        s2.Range("A" & i & ":C" & i).Copy s3.Range("A" & [A65536].End(3).Row + 1)
    End If
Next
End Sub

 

[ozeryayalar]

makrolar calısmıyor dıye hata alıyorum 2011 excel kullanıyorum nasıl aktıf hale getıreıbılrım dugmelere basıyorum ancak calısmıyor