Aşağıdaki kodlar üzerinde değişiklik yapmak istiyorum

[ferhatgurbuz]

Function gosterge(değer As Integer)

If değer = 11 Then gosterge = 1320
If değer = 12 Then gosterge = 1380
If değer = 13 Then gosterge = 1440
If değer = 14 Then gosterge = 1500
If değer = 21 Then gosterge = 1155
If değer = 22 Then gosterge = 1210
If değer = 23 Then gosterge = 1265
If değer = 24 Then gosterge = 1320
If değer = 25 Then gosterge = 1380

If değer > 159 Then gosterge = "BÖYLE DERECE YOK"
End Function

Yukarıdaki kodlar gibi bir şey istiyorum

Eğer j11=Bekar ise AO11 hücresine 45,60 yazılsın
Eğer J11=Evli, eşi çalışmayan, 1Ç ise AO11 hücresine 61,56 YTL gibi