Aktarmada aynı tarih ve aynı isimli ikinci ürünü öncekinin üzerine yazsın toplasın

[sdegirmenci]

Öncelikle merhaba
Aşağıdaki koda ne ilave edersek; aktarma yapmış olduğumuz formda daha önceden aynı tarihte ve aynı isimde ürün varsa üzerine yazıp,"ah", "al" ve "au" sutun ve hücrelerine gelen değerlerini bir önceki ile toplar.Aynı tarih ve isimde ürün yoksa boş olan alta yazar.Saygılarımla

Set S1 = Sheets("GİRİŞ")
Set S2 = Sheets("Kiler Çıkış")

sOn = WorksheetFunction.CountA(S2.[F18:F1000]) + 18
S2.Cells(sOn, "f") = S1.Cells(13, "w") 'ÜRÜN ADI
S2.Cells(sOn, "bf") = S1.Cells(18, "ad") 'TARİH
S2.Cells(sOn, "y") = S1.Cells(36, "ad") 'BİRİM
S2.Cells(sOn, "ad") = S1.Cells(30, "ad") 'GRAMAJ
S2.Cells(sOn, "ah") = S1.Cells(2, "e") 'GRAMAJ X KİŞİ SAYISI
S2.Cells(sOn, "al") = S1.Cells(3, "d") 'FİYAT
S2.Cells(sOn, "au") = S1.Cells(3, "f") 'TOPLAM
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub AKTAR()
    Set S1 = Sheets("GİRİŞ")
    Set S2 = Sheets("Kiler Çıkış")
    For X = 18 To S2.[F65536].End(3).Row
    If S2.Cells(X, "F") = S1.Cells(13, "W") And S2.Cells(X, "BF") = S1.Cells(18, "AD") Then
    SON = X
    Exit For
    Else
    SON = WorksheetFunction.CountA(S2.[F18:F65536]) + 18
    End If
    Next
    S2.Cells(SON, "f") = S1.Cells(13, "w") 'ÜRÜN ADI
    S2.Cells(SON, "bf") = S1.Cells(18, "ad") 'TARİH
    S2.Cells(SON, "y") = S1.Cells(36, "ad") 'BİRİM
    S2.Cells(SON, "ad") = S1.Cells(30, "ad") 'GRAMAJ
    S2.Cells(SON, "ah") = S2.Cells(SON, "ah") + S1.Cells(2, "e") 'GRAMAJ X KİŞİ SAYISI
    S2.Cells(SON, "al") = S2.Cells(SON, "al") + S1.Cells(3, "d") 'FİYAT
    S2.Cells(SON, "au") = S2.Cells(SON, "au") + S1.Cells(3, "f") 'TOPLAM
    Set S1 = Nothing
    Set S2 = Nothing
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[sdegirmenci]

Sayın Korhan AYHAN,
Önce yardımınız için çok teşekkür ederim. Yazdığınız kodları uyguladım , Aynı tarihli aynı isimli ürün mevcutsa bulup üzerine yazıyor , Ancak "ah" , "al", "au" sütunlarına gelen değerleri bir önceki değerle toplayıp yazmıyor.Tekrar bakabilirseniz çok sevinirim.Hoşçakalın

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.

 

[sdegirmenci]

Sayın Korhan AYHAN ;
İlginize çok teşekkür ederim.Bu sefer istediğim gibi çalışıyır.İşlerinizin kolay gelmesi dileğiyle , Selamlar..