+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Asgari Geçim (/konu-asgari-gecim.html)
RE: Asgari Geçim - malatyalı - 27/06/2021
var olasın ustam
RE: Asgari Geçim - feraz - 27/06/2021
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
" & son & "=" & Val(cocuk.Value) & ")" & _
"*(" & .Name & "!E2:E" & son & "))")
End With
End Sub
RE: Asgari Geçim - malatyalı - 27/06/2021
Deryasınız Derya