Hesaplatma Hk.

[mekanikcii]

Merhaba

Ekte görselini bulabileceğiniz excel dosyamı günlük olarak dolduruyorum ve her doldurma işlemi için taslak olan dosyadan kopyala ve çoğalt işlemi gerçekleştiriyorum. Değerli fikirlerinizi almak istediğim konu bu excelde bir sayfa oluşturup Üretici, Model ve Seri Numarası kriterleri göz önünde bulundurarak toplam hata sayıyı hesaplayan bir sayfa oluşurmak istiyorum. 4 Çeşit Üretici, üreticilerin 7 çeşit modeli ve her modelin 2 çeşit seri numarası var toplamda 56 farklı ürünüm var. Bunların sıralaması günlük değişebiliyor. Yadımlarınızı bekliyorum.

 

[1Al2Ver]

Merhaba,

Öneri ; Üzerinde çalışma yapılabilmesi için, sonuçları elle girilmiş, örnek bir dosya eklerseniz, çabuk ve doğru çözümler elde edersiniz.

 

[mekanikcii]

@1Al2Ver Excel dosyası ekte, umarım anlatabilmişimdir.

 

[vardar07]

Modül içine ekleyip deneyiniz.

Sub topla()
Set sh = Sheets("TOPLAM")
son = sh.Cells(Rows.Count, 1).End(3).Row
For a = 3 To son
For syf = 1 To Sheets.Count
ss = Sheets(syf).Name
Set sm = Sheets(ss)
If ss <> "TOPLAM" Then
For Each veri In sm.Range("B3:V3")
sat = veri.Row: sut = veri.Column
If sh.Cells(a, 1) = sm.Cells(sat, sut) And sh.Cells(a, 2) = sm.Cells(sat + 1, sut) And sh.Cells(a, 3) = sm.Cells(sat + 2, sut) Then
tpl = tpl + sm.Cells(sat + 11, sut)
End If
Next
End If
Next
sh.Cells(a, 4) = tpl
tpl = 0
Next
End Sub

 

[mekanikcii]

Modül içine ekleyip deneyiniz.

Sub topla()
Set sh = Sheets("TOPLAM")
son = sh.Cells(Rows.Count, 1).End(3).Row
For a = 3 To son
For syf = 1 To Sheets.Count
ss = Sheets(syf).Name
Set sm = Sheets(ss)
If ss <> "TOPLAM" Then
For Each veri In sm.Range("B3:V3")
sat = veri.Row: sut = veri.Column
If sh.Cells(a, 1) = sm.Cells(sat, sut) And sh.Cells(a, 2) = sm.Cells(sat + 1, sut) And sh.Cells(a, 3) = sm.Cells(sat + 2, sut) Then
tpl = tpl + sm.Cells(sat + 11, sut)
End If
Next
End If
Next
sh.Cells(a, 4) = tpl
tpl = 0
Next
End Sub

Çok teşekkürler bu işlemi makrosuz yapabilir miyiz @vardar07 , formüle dökebilirmiyiz?

 

[1Al2Ver]

Sayın mekanikcii merhaba,

Sonuçları kontrol ediniz, Topla.Çarpım formülü ile yapılmıştır.

Kolay gelsin.

 

[mekanikcii]

Teşekkürler 1Al2Ver, ellerinize sağlık