Soru çoketopla hakkında yardım

[y_tekeli]

Ekte örnek dosya linki mevcut.
Malzeme sayfasında malzeme türüne göre toplam aldırmak istiyorum. Raporlama sayfasında ise vanalarda yapılan işlemleri ay bazlı toplam almak istiyorum. Veriler revizyon 2019 sayfasına giriliyor. Raporlama sayfasını yapmak istedim ama bir türlü toplam aldıramadımsonuç 0 geliyor. Acaba yöntem olarak çoketopla dışımda bir fonksiyon mu kullanmak gerek yoksa yazdığım kodda mı bir sıkıntı var.
https://dosya.co/ervdlek1tczv/104930.html

 

[Korhan Ayhan]

Eklediğiniz dosyayı indirdiğimde uzantısı belli değil. Yeniden yükleyip link paylaşır mısınız?

 

[Korhan Ayhan]

"Raporlama" sayfasında "PE" ve "ST" kırılımı neye göre yapılacak? Bu bilgiler "RVZ 2019" sayfasında nerede?

 

[y_tekeli]

rvz2019 sayfsında j10 Aa6000 arasına günlük veriler giriliyor. Yalnız burda şöyle bir durum var j sutununda veri doğrulamaya göre k sutunundan çıkan malzeme türü seçilip l sütununa adetler giriliyor. bu şekilde yan yana 3 lü grup halinde 10 ayrı sütun var.

 

[Korhan Ayhan]

Yazdığınız mesajda benim sorumun cevabı var mı?

 

[y_tekeli]

Kusura bakmayın hocam haklısınız. Eksik yada yanlış cevap vermiş olmamak için malzeme ve raporlama sayfasında iki formül yazdım ve yeniden dosya yükledim.
Bu formül 1. grup olan J K L sutunu için yapmak istediğim bunu AM sütununa kadar olan kısmı hesaplayacak şekilde yapmak.
http://dosya.altervista.org/download.php?file=7dc4752db67458c48fa8c4d86bf5f1ee
Ayrıca belirtmeden geçemeyeceğim alakanız için çok teşekkürler.

 

[y_tekeli]

İşin ehli ustalardan konu hakkında yardım bekliyorum

 

[Korhan Ayhan]

Merhaba,

Benmi yanlış anlıyorum.

"RAPORLAMA" sayfasında B6 ve B7 hücrelerinde "PE" ve "ST" ayrımları var. Bu kriterlere göre "KAYIP_VANA" verisini ikiye ayırdığınızı yorumluyorum.

Fakat bu "PE" ve "ST" kriterleri hangi sayfada mevcut? Ben bu sorunuzun cevabını bulamadım.

 

[y_tekeli]

Merhaba,

Benmi yanlış anlıyorum.

"RAPORLAMA" sayfasında B6 ve B7 hücrelerinde "PE" ve "ST" ayrımları var. Bu kriterlere göre "KAYIP_VANA" verisini ikiye ayırdığınızı yorumluyorum.

Fakat bu "PE" ve "ST" kriterleri hangi sayfada mevcut? Ben bu sorunuzun cevabını bulamadım.

hocam ham veriler rvz 2019 sayfasında kriterler malzeme sayfasında vanalarla ilgili kısım V sütununda. Kendimden şüphe etmeye başladım neden anlaşamadık

 

[y_tekeli]

çözüm yokmudur acaba

 

[Korhan Ayhan]

Deneyiniz.

Sub Rapor()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Set S1 = Sheets("RVZ 2019")
    Set S2 = Sheets("RAPORLAMA")
    Son_Satir = S1.Range("B" & Rows.Count).End(3).Row
    With S2
        .Range("C6:O15").ClearContents
        Son = .Cells(.Rows.Count, 1).End(3).Row
        For X = 6 To Son Step 2
            For Y = 10 To 37 Step 3
                Sutun_1 = Split(Cells(1, Y).Address, "$")(1)
                Sutun_2 = Split(Cells(1, Y + 1).Address, "$")(1)
                Sutun_3 = Split(Cells(1, Y + 2).Address, "$")(1)
                For Z = 3 To 14
                    Sonuc = Application.WorksheetFunction.SumIfs(S1.Range(Sutun_3 & "10:" & Sutun_3 & Son_Satir), S1.Range(Sutun_1 & "10:" & Sutun_1 & Son_Satir), .Cells(X, 1), S1.Range(Sutun_2 & "10:" & Sutun_2 & Son_Satir), .Cells(X, 2), S1.Range("AX10:AX" & Son_Satir), .Cells(1, Z))
                    .Cells(X, Z) = .Cells(X, Z) + Sonuc
                    Sonuc = 0
                    Sonuc = Application.WorksheetFunction.SumIfs(S1.Range(Sutun_3 & "10:" & Sutun_3 & Son_Satir), S1.Range(Sutun_1 & "10:" & Sutun_1 & Son_Satir), .Cells(X, 1), S1.Range(Sutun_2 & "10:" & Sutun_2 & Son_Satir), .Cells(X + 1, 2), S1.Range("AX10:AX" & Son_Satir), .Cells(1, Z))
                    .Cells(X + 1, Z) = .Cells(X + 1, Z) + Sonuc
                    Sonuc = 0
                Next
            Next
        Next
    End With
    Set S1 = Nothing
    Set S2 = Nothing
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    MsgBox "Rapor oluşturulmuştur.", vbInformation
End Sub

 

[y_tekeli]

Deneyiniz.

Sub Rapor()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Set S1 = Sheets("RVZ 2019")
    Set S2 = Sheets("RAPORLAMA")
    Son_Satir = S1.Range("B" & Rows.Count).End(3).Row
    With S2
        .Range("C6:O15").ClearContents
        Son = .Cells(.Rows.Count, 1).End(3).Row
        For X = 6 To Son Step 2
            For Y = 10 To 37 Step 3
                Sutun_1 = Split(Cells(1, Y).Address, "$")(1)
                Sutun_2 = Split(Cells(1, Y + 1).Address, "$")(1)
                Sutun_3 = Split(Cells(1, Y + 2).Address, "$")(1)
                For Z = 3 To 14
                    Sonuc = Application.WorksheetFunction.SumIfs(S1.Range(Sutun_3 & "10:" & Sutun_3 & Son_Satir), S1.Range(Sutun_1 & "10:" & Sutun_1 & Son_Satir), .Cells(X, 1), S1.Range(Sutun_2 & "10:" & Sutun_2 & Son_Satir), .Cells(X, 2), S1.Range("AX10:AX" & Son_Satir), .Cells(1, Z))
                    .Cells(X, Z) = .Cells(X, Z) + Sonuc
                    Sonuc = 0
                    Sonuc = Application.WorksheetFunction.SumIfs(S1.Range(Sutun_3 & "10:" & Sutun_3 & Son_Satir), S1.Range(Sutun_1 & "10:" & Sutun_1 & Son_Satir), .Cells(X, 1), S1.Range(Sutun_2 & "10:" & Sutun_2 & Son_Satir), .Cells(X + 1, 2), S1.Range("AX10:AX" & Son_Satir), .Cells(1, Z))
                    .Cells(X + 1, Z) = .Cells(X + 1, Z) + Sonuc
                    Sonuc = 0
                Next
            Next
        Next
    End With
    Set S1 = Nothing
    Set S2 = Nothing
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    MsgBox "Rapor oluşturulmuştur.", vbInformation
End Sub

Elinize sağlık Korhan hocam.