3 kritere karşılık gelen miktarları toplamak

[programer]

Arkadaşlar herkese hayırlı akşamlar. Ekteki örnek dosyada yapmak istediğim Seçtiğim 3 kritere karşılık gelen miktarları toplamak. Gerekli detay dosyanın içinde. Yardımlarınız için şimdiden teşekkürler.

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub CommandButton1_Click()
Dim SUT As Integer
On Error Resume Next
For SUT = 2 To Cells(65536, "J").End(3).Row
If Cells(SUT, "J") = Val(TextBox1) And Cells(SUT, "K") = Val(TextBox2) And Cells(SUT, "L") = ComboBox1 Then
TextBox3 = Val(TextBox3) + Cells(SUT, "M")
End If
Next
End Sub

 

[programer]

Sayın N.Ziya Hiçdurmaz yardımınız için teşekkür ederim kod gayet güzel çalışıyor.

 

[N.Ziya Hiçdurmaz]

Bir şey değil Sayın programer