AYA GÖRE KULLANILAN AMBALAJI TOPLAMA

[Qlimpus]

Herkese selamlar;

Yeni forumumuz tüm kullanıcılara hayırlı uğurlu olur inşallah.
2 Koşula bağlı olarak sütun toplamlarını alan bir formüle ihtiyacım var.

1. sayfada çıkış işlemlerim mevcut bu işlemlerde sütun olarak ambalaj parti no, işlem tarihi, kullanılan miktar ve stoğa alınan miktar sütunları mevcut. buna tablo1 diyorum.
2. sayfada ise ambalaj adı, ambalaj parti no, toplam kullanılan miktar sütunları mevcut buna da tablo2 diyorum. Ayrıca k1 hücresinde de 10.2023 şeklinde girilmiş bir ay.yıl şeklinde tarih mevcut.

2. sayfadaki toplam kullanılan miktar sütununa öncelikle K1 hücresine girilmiş olan tarih ile tablo1 deki işlem tarihi sütunundaki eşleşen tarihler; sonra tablo2 deki ambalaj parti no ile tablo1 deki ambalaj parti no ile eşleşen verilerin kullanılan ve stoğa alınan miktarlarının toplamını almak istiyorum.

Özet olarak tablo 2 deki ambalajların k1 hücresinde belirttiğim ay içerisinde kaç adet kullanıldığını heasplayan bir çalışma yapmak istiyorum. Bununla ilgili örnek bir dosya ya da formül iletebilirseniz çok sevinirim şimdiden çok teşekkür ederim.

[karisma61]

Şöyle bir şeyler yaptım umarım doğru anlamışımdır.

[karisma61]

Bu arada gönderdiğim dosyayı eklenemiyor. kodları yazdım.

Kod: Tümünü seç

Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim tarih As Date
    Dim ambalajPartiNo As String
    Dim kullanilanMiktarC As Double
    Dim stogaAlinanMiktarD As Double
    Dim i As Long
    
   
    Set ws1 = ThisWorkbook.Sheets("Sayfa1")
    Set ws2 = ThisWorkbook.Sheets("Sayfa2")
   
    tarih = Format(ws2.Range("K1").Value, "mm.yyyy")
    
    ambalajPartiNo = ws2.Range("B2").Value ' Buradaki değer önemli olan
    
    kullanilanMiktarC = 0
    stogaAlinanMiktarD = 0
    
   
    For i = 2 To ws1.Cells(Rows.Count, "A").End(xlUp).Row
        If Format(ws1.Cells(i, 2).Value, "mm.yyyy") = Format(tarih, "mm.yyyy") And ws1.Cells(i, 1).Value = ambalajPartiNo Then
            
            kullanilanMiktarC = kullanilanMiktarC + ws1.Cells(i, 3).Value
            stogaAlinanMiktarD = stogaAlinanMiktarD + ws1.Cells(i, 4).Value
        End If
    Next i
    
    
    ws2.Range("C2").Value = kullanilanMiktarC + stogaAlinanMiktarD