Makro ile koşullu toplama

[sratacc]

iyi günler diliyorum.

ekte gönderdiğim dosya içeriğinde koşullu biçimde hesap yapan bir userforma ihtiyacım var.

yardımlarınız için şimdiden teşekkürler.

 

[Milady Meriç]

Selam Dostum,

Ekteki dosyayı inceler misin?

Private Sub CommandButton1_Click()
Dim Milady As Variant
Dim Meric As Variant

If IsNumeric(TextBox1.Value) Then
    Milady = TextBox1.Value Mod 1000
    If TextBox1.Value <= 50000 Then
    TextBox2.Value = "90" & " TL"
    Else
    TextBox2.Value = 90 + (((TextBox1.Value - 50000) - Milady) / 1000) * 2 & " TL"
    End If
Else
Meric = MsgBox("Lütfen rakamsal bir deger giriniz")
End If
End Sub

 

[sratacc]

Selam Dostum,

Ekteki dosyayı inceler misin?

Private Sub CommandButton1_Click()
Dim Milady As Variant
Dim Meric As Variant

If IsNumeric(TextBox1.Value) Then
    Milady = TextBox1.Value Mod 1000
    If TextBox1.Value <= 50000 Then
    TextBox2.Value = "90" & " TL"
    Else
    TextBox2.Value = 90 + (((TextBox1.Value - 50000) - Milady) / 1000) * 2 & " TL"
    End If
Else
Meric = MsgBox("Lütfen rakamsal bir deger giriniz")
End If
End Sub

ve alekyüm selam üstad. cevabınız için teşekkür ederim. elinize emeğinize sağlık

 

[sratacc]

Milady Meriç'in hazırlamış olduğu hesaplama formu görselleştirilmiş haliyle(userform olarak) ektedir.