textbox'a içeren sayıya göre sahifeden toplam alma

[kemal turan]

Mehaba,
Aşağıdaki kod ile filtreleme yapılan textbox4 deki rakama göre sahifeden toplam aldırmak istiyorum x=.. satırı hata veriyor.
Örnek = 90620226511 bir verimiz olsun bunun son 5 hanesi olan 26511 yazdığımda toplama gerçekleşsin

Sub TOPLAMSEVKFISI()
Set s1 = Sheets("ALISVERILER")
Dim x As Double
 x = ("*" & TextBox5.Value & "*")
 
Veri = WorksheetFunction.SumIfs(s1.Range("L:L"), s1.Range("I:I"), x)
satınalmahareketlerı.TextBox1 = Format(CDbl(Veri), "#,##0.00")

Veri1 = WorksheetFunction.SumIfs(s1.Range("M:M"), s1.Range("I:I"), x)
satınalmahareketlerı.TextBox2 = Format(CDbl(Veri1), "#,##0.00")

TextBox3 = Format(CDbl(Veri1) + CDbl(Veri), "#,##0.00")
End Sub

 

[bmutlu966]

Aşağıdaki şekilde deneyin.

Sub TOPLAMSEVKFISI()
Set s1 = Sheets("ALISVERILER")
Dim x As Double
 x = TextBox5.Value
 
Veri = WorksheetFunction.SumIfs(s1.Range("L:L"), s1.Range("I:I"), right(x,5))
satınalmahareketlerı.TextBox1 = Format(CDbl(Veri), "#,##0.00")

Veri1 = WorksheetFunction.SumIfs(s1.Range("M:M"), s1.Range("I:I"), right(x,5))
satınalmahareketlerı.TextBox2 = Format(CDbl(Veri1), "#,##0.00")

TextBox3 = Format(CDbl(Veri1) + CDbl(Veri), "#,##0.00")
End Sub

 

[kemal turan]

Aşağıdaki şekilde deneyin.

Sub TOPLAMSEVKFISI()
Set s1 = Sheets("ALISVERILER")
Dim x As Double
x = TextBox5.Value

Veri = WorksheetFunction.SumIfs(s1.Range("L:L"), s1.Range("I:I"), right(x,5))
satınalmahareketlerı.TextBox1 = Format(CDbl(Veri), "#,##0.00")

Veri1 = WorksheetFunction.SumIfs(s1.Range("M:M"), s1.Range("I:I"), right(x,5))
satınalmahareketlerı.TextBox2 = Format(CDbl(Veri1), "#,##0.00")

TextBox3 = Format(CDbl(Veri1) + CDbl(Veri), "#,##0.00")
End Sub

olmadı mutlu bey