Soru asg durumu

[sirkülasyon]

Private Sub Worksheet_Change(ByVal Target As Range)

[L3] = Sheets("Katsayılar").Range("D2") * 12 * cocuk(Sheets("Personel").Range("b"), Sheets("Personel").Range("e"), Sheets("Personel").Range("f") / 100 * 15 / 100 / 12)
        
End Sub

Sheets("Katsayılar").Range("D2")= Brüt Asgari Ücret 2943,00 TL
Sheets("Personel").Range("B") = Personelin Kendisi
Sheets("Personel").Range("E") = Personelin medeni Durumu
Sheets("Personel").Range("F") = Personelin Çocuk Sayısı

Cocuk kullanıcı tanımlı kodda aşağıda belirtilmiştir.

Function cocuk(kendisi, medenihali, cocuklar)
deger1 = 0
deger2 = 0
deger3 = 0

Son = 8
If cocuklar > Son Then cocuklar = Son

ReDim veri(Son)
veri(1) = 7.5
veri(2) = 7.5
veri(3) = 10
veri(4) = 5
veri(5) = 5
veri(6) = 5
veri(7) = 5
veri(8) = 5

If kendisi <> "" Then
deger1 = 50
End If
If medenihali = "EVLİ" Then
deger2 = 10
End If

For i = 1 To Val(cocuklar)
deger3 = deger3 + veri(i)
Next

cocuk = deger1 + deger2 + deger3
If deger1 + deger2 + deger3 > 100 Then cocuk = 100

End Function

makro da ne yapabilirim ki L sütununa asgari ücret gelsin
Teşekkür ederim