Asgari Geçim

var olasın ustam

Rica edrim abey.
Dizi mantığı ve evaluete olarak toplaçarpım olarak alttaki kodu deneyebilrsiniz.

Sub getir()

    Dim son As Long

    agitutarý.Value = ""

    If cocuk.Value = Empty Or medenihal.Value = Empty Then Exit Sub

    With sh

        son = .Cells(Rows.Count, "C").End(3).Row

        If son < 2 Then Exit Sub

        agitutarý.Value = Evaluate("SUMPRODUCT((" & .Name & "!C2:C" & son & "=""" & medenihal.Value & """)" & _

                                           "*(" & .Name & "!D2
                                            "*(" & .Name & "!E2:E" & son & "))")

    End With



End Sub

Deryasınız Derya