Soru Artanlı Km Katsayısı bulma

[sirkülasyon]

Üstadım
G4 : G aralığında ki sayı:
1 ise katsayısı 0,40
2 ise katsayısı 0,41
3 ise katsayısı 0,42 gibi hep bir artırılarak
50 ise katsayısı 0,89' a kadar geliyor.
Eğer sayı 51 ve üstü ise 0,90 sabit katsayı yazılacak.
Bu hesaplamaya göre
G4 hücresine 3 yazar isem H4 hücresine 0,42
G4 hücresine 32 yazar isem H4 hücresine 0,71 olacak şekilde
Sayfa1 G4:G aralığında bir hücreye 1-50 arasında bir rakam yazarsam eğer H4:H aralığında katsayısını yazmak istiyorum.
Bunu Private Sub Worksheet_Change(ByVal Target As Range) olayına nasıl yazabilirim?
Saygılarımla

 

[Seyit Tiken]

Örnek fonksiyonu kendinize uyarlayınız.

Function gosterge(deger As Integer)
If deger = 1 Then gosterge = 0.4
If deger = 2 Then gosterge = 0.41
If deger = 3 Then gosterge = 0.42
If deger = 4 Then gosterge = 0.43
If deger = 5 Then gosterge = 0.44
If deger = 6 Then gosterge = 0.45
If deger = 7 Then gosterge = 0.46
If deger = 8 Then gosterge = 0.47
If deger = 9 Then gosterge = 0.48

If deger > 50 Then gosterge = 0.9
End Function

=gosterge(G4)

 

[ÖmerFaruk]

Alternatif olarak şu formülden de yararlanabilirsiniz

=EĞER(G4<51;G4/100+0,39;0,9)

 

[YUSUF44]

Aşağıdaki kodları sayfanın kod bölümüne yapıştırınız:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("G4:G" & Rows.Count)) Is Nothing Then Exit Sub
If Target = "" Then
    Target.Offset(0, 1).ClearContents
ElseIf Target < 1 Then
    Target.Offset(0, 1).ClearContents
ElseIf IsNumeric(Target) = True Then
    Target.Offset(0, 1) = WorksheetFunction.Min(0.39 + Target / 100, 0.9)
End If
End Sub

 

[sirkülasyon]

Seyit Uzmanıma ve Yusuf Abime
Yardımlarını esirgemediği için teşekkür eder, saygılarımı sunarım.