Verilerin yekünü hesaplamak

[mrc83]

Arkadaşlar merhaba,

Ekte ki örnek dosyada yazıldığı şekli ile , var olan ürünler ile ihtiyaç olan ürünlerin total' ini hesaplayan bir formülizasyon/makro' ya ihtiyacım var.

Ürün sayısı çok fazla olduğu için tek tek topla/çıkar formülü ile hesaplamak zor olmakta,

Konu hakkında yardımcı olabilir misiniz?

İlginiz için şimdiden teşekkürler.

 

[Emir Hüseyin Çoban]

. . .

İki listenin ürün sırası her zaman aynı mı ?

. . .

 

[mrc83]

Evet bu liste için aynı,

ben bu formülü başka çalışma kitabından yada excel dosyadından veri karşılaştırmak için kullanmak istesem sıra olayı fark edecek mi Hüseyin bey?

 

[Emir Hüseyin Çoban]

. . .

Örneğin iki listede de
çimento karşı karşıya ise A1-B1 yapılır.

Ancak liste1 de çimenta A1 de, Liste2 de B10 hücresinde ise
düşeyara vb. işlem ile önce karşılığını buldurmak gerekir.

Biz düşeyara ile yapalım, sıralamaya bağlı kalmayalım.

2 listedeki ürün sayısı her zaman aynı mı olur ?

. . .

 

[mrc83]

Üstad karşı karşıya gelse çıkarma ile ben yapardım dediğiniz gibi, ama farklı olabilir bu nedenle düşey ara yapalım.

Ürün sayısı aynı olur, 5000 ürün gibi.

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
    Application.ScreenUpdating = False
    Range("L6:M65536").ClearContents
    For i = 6 To Cells(Rows.Count, "C").End(3).Row
        If WorksheetFunction.CountIf(Range("H:H"), Cells(i, "C")) > 0 Then
            yekün = Cells(i, "D") - WorksheetFunction.VLookup(Cells(i, "C"), Range("H:I"), 2, 0)
            If yekün > 0 Then
                Cells(i, "L") = yekün
            Else
                Cells(i, "M") = Abs(yekün)
            End If
        End If
    Next i
    Application.ScreenUpdating = True
    MsgBox " B i t t i "
End Sub

. . .

 

[mrc83]

Üstat verdiğin kodu ekteki yoğunlukta olan dosyada çalıştıramadım,

Aralıkları yanlış yazıyorum sanırım.

Tekrar bakma şansın var mı?

İlgin için çok teşekkürler.

 

[Emir Hüseyin Çoban]

. . .

AF:AI aralığında eksik ve fazla malzeme için neden 4 tane sütun var.
Sonuçlar hangi sütunlara yazılacak.

. . .

 

[mrc83]

Veriler AF6 ve AH6 dan başlayarak yazılacak Hüseyin Bey,

Genişlik olması açısından öyle yaptım tek sütunlarda iş görür tabiki.

 

[ZorBey_]

Merhaba iyi çalışmalar.
Sayın mrc83
Formülle Alternatif.

 

[Emir Hüseyin Çoban]

Üstat verdiğin kodu ekteki yoğunlukta olan dosyada çalıştıramadım,
Aralıkları yanlış yazıyorum sanırım.
Tekrar bakma şansın var mı?
İlgin için çok teşekkürler.

. . .

Sub kod()
    Application.ScreenUpdating = False
    Range("AF6:AH65536").ClearContents
    For i = 6 To Cells(Rows.Count, "B").End(3).Row
        If WorksheetFunction.CountIf(Range("Q:Q"), Cells(i, "B")) > 0 Then
            yekün = Cells(i, "O") - WorksheetFunction.VLookup(Cells(i, "B"), Range("Q:AD"), 14, 0)
            If yekün > 0 Then
                Cells(i, "AF") = yekün
            Else
                Cells(i, "AH") = Abs(yekün)
            End If
        End If
    Next i
    Application.ScreenUpdating = True
    MsgBox " B i t t i "
End Sub

. . .

 

[mrc83]

Çok teşekkür ediyorum,

İyi çalışmalar.