Araç plakasına göre toplam

[kelkitli]

Selamlar,

TextBox5 = Format(Evaluate("=SumProduct((" & sRangeA & ">=" & Criter1 & ")*(" & sRangeB & "<=" & Criter2 & ")*(" & sRangeD & "))"), "#,##0.00")

sRangeA = Range("B2:B10000").Address
sRangeB = Range("B2:B10000").Address
sRangeD = Range("E2:E10000").Address

Criter1=DTPicker1
Criter2=DTPicker2
Bu şekilde 2 tarih arası toplamları alıyorum. Ancak Label94 de yazılı araç plakasına göre toplam almak istiyorum. Nasıl bir değişiklik gerekir.

 

[Zeki Gürsoy]

TextBox5 = Format(Evaluate("=SumProduct((" & sRangeA & ">="  & Criter1 & ")*(" & sRangeB & "<=" & Criter2  & ")[B]*(hangiaralık="  & Label94.caption & ")[/B]*(" & sRangeD & "))"), "#,##0.00")

 

[kelkitli]

Zeki Bey, cevabınız için çok teşekkür ederim.

TextBox5 = Format(Evaluate("=SumProduct((" & sRangeA & ">=" & Criter1 & ")*(" & sRangeB & "<=" & Criter2 & ")*(" & sRangeD & " = " & Label94.Caption & ")*(" & sRangeD & "))"), "#,##0.00")

Şu şekilde yazdım hata verdi hatalı bir yazımmı var.

 

[kelkitli]

Private Sub CommandButton1_Click()
s = Sheets("AKARYAKITVERME").[a65536].End(3).Row
sRangeA = "Çalışma!b2:b" & s
sRangeB = "Çalışma!b2:b" & s
sRangeC = "Çalışma!c2:c" & s
sRangeD = "Çalışma!e2:e" & s
Criter1 = Format(DTPicker1, "00000")
Criter2 = Format(DTPicker2, "00000")
Criter3 = Label1
TextBox1 = Evaluate("=SumProduct((" & sRangeA & ">=" & Criter1 & ")*(" & sRangeB & "<=" & Criter2 & ")*(" & sRangeC & "=" & Criter3 & ")*(" & sRangeD & "))")
MsgBox "Bitti."
End Sub

Şu şekil yapmaya çalıştım ama hata veriyor. Nerede hata yapıyorum arkadaşlar.

 

[kelkitli]

Arkadaşlar dosyayı ekliyorum.

 

[Ömer]

Şu şekil yapmaya çalıştım ama hata veriyor. Nerede hata yapıyorum arkadaşlar.

Merhaba,

Bu şekilde deneyin.

Private Sub CommandButton1_Click()
 
    s = Sheets("AKARYAKITVERME").[a65536].End(3).Row
 
    sRangeB = "AKARYAKITVERME!b2:b" & s
    sRangeC = "AKARYAKITVERME!c2:c" & s
    sRangeD = "AKARYAKITVERME!e2:e" & s
 
    Criter1 = CDbl(DTPicker1)
    Criter2 = CDbl(DTPicker2)
    Criter3 = """" & Label1.Caption & """"
 
    TextBox1 = Evaluate("=SumProduct((" & sRangeB & ">=" & Criter1 & _
                       ")*(" & sRangeB & "<=" & Criter2 & _
                       ")*(" & sRangeC & "=" & Criter3 & ")*(" & sRangeD & "))")
 
    MsgBox "Bitti."
 
End Sub

.

 

[kelkitli]

Sayın Ömer Hocam teşekkür ederim. İşlem tamam.