Soru SGK Gün

[sirkülasyon]

  If IsNumeric(Sheets("Puantaj").Range("M" & i).Value) Then
                Dim toplam As Double
                Dim sonuc As Double
                toplam = Sheets("Puantaj").Range("M" & i).Value
                sonuc = toplam / 7.5
                 If sonuc > 0.5 Then
                sonuc = Application.WorksheetFunction.RoundUp(sonuc, 0)
                End If
                 Sheets("Puantaj").Range("N" & i).Value = sonuc
                End If

Yukarıda M hücresinde ki rakam toplamını 7,5' bölüyorum. Çıkan sonucu 30 dan büyük ise 30 ile sınırlayamadım. Rica etsem yardımcı olabilir misiniz

 

[DoğanD]

Aşağıdaki gibi dener misiniz?

  If IsNumeric(Sheets("Puantaj").Range("M" & i).Value) Then
                Dim toplam As Double
                Dim sonuc As Double
                toplam = Sheets("Puantaj").Range("M" & i).Value
                sonuc = toplam / 7.5
                 If sonuc > 0.5 Then
                sonuc = Application.WorksheetFunction.RoundUp(sonuc, 0)
                if sonuc > 30 then sonuc = 30
                End If
                 Sheets("Puantaj").Range("N" & i).Value = sonuc
                End If

 

[sirkülasyon]

Çok Teşekkür ederim. Sağ Olasın