User Form da formül

[yoruk06]

Merhaba, Hazırladığım form üzerinde miktar ;fiyat; tutar; kdv ve toplam tutar textbox ları var miktar ve fiyatı form üzerinde girdiğim zaman tutarı ve oradan da kdv ile toplam tutarı hesaplasın istiyorum. Tutardan sonrasını yapamadım. Yardım ederseniz memnun olurum.

 

[veyselemre]

yaptığınız örneği eklerseniz üzerinde düzeltmeleri yaparız

 

[Mahmut Bayram]

syn yoruk06
2 türlü yaptım
inputbox'lu
ve de userform lu
hangisi işinizi görürse

KOLAY GELSİN

 

[yoruk06]

userform da formül uygulaması

Formülleri uyguluyamadaım dosya gönderiyorum. İlginiz için teşekkür ederim.

 

[veyselemre]

[vb:1:614c9dfff4]Private Sub cmdkayıt_Click()
Range("A1").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("A2").Value = "" Then
Range("A2").Value = 1
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1
End If
ActiveCell.Offset(0, 1).Value = Textsekli.Value
ActiveCell.Offset(0, 2).Value = Texttarih.Value
ActiveCell.Offset(0, 3).Value = Textfatno.Value
ActiveCell.Offset(0, 4).Value = Textfirma.Value
ActiveCell.Offset(0, 5).Value = Textcinsi.Value
ActiveCell.Offset(0, 6).Value = Textmiktar.Value
ActiveCell.Offset(0, 7).Value = Textfiyat.Value
ActiveCell.Offset(0, 8).Value = Texttutar.Value
ActiveCell.Offset(0, 9).Value = Textkdv.Value
ActiveWorkbook.Save
Textsekli.Value = ""
Texttarih.Value = ""
Textfatno.Value = ""
Textfirma.Value = ""
Textcinsi.Value = ""
Textmiktar.Value = ""
Textfiyat.Value = ""
Texttutar.Value = ""
Textkdv.Value = ""
End Sub
Private Sub cmdkapat_Click()
Unload Formveri
Sheets("form").Select
End Sub
Private Sub Textfiyat_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Textfiyat = Format(Textfiyat, "#,##0.00")
End Sub
Private Sub textmiktar_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Textmiktar = Format(Textmiktar, "#,###.##")
End Sub
Private Sub Textoran_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Texttutar = Format(Textmiktar * Textfiyat, "#,##0.00")
Textkdv = Format(Round(Texttutar * Textoran / 100, 2), "#,##0.00")
End Sub
[/vb:1:614c9dfff4]

 

[yoruk06]

Bende içinden çıkamayınca ufak bir değişiklik yapıp. Oranı kaldırdım ve
Private Sub UserForm_Click()
Texttutar.Value = Textmiktar.Value * Textfiyat.Value
Textkdv.Value = (Textmiktar.Value * Textfiyat) * 0.18
End Sub
bu şekilde çözmeye çalışmıştım.
Çok teşekkür ederim.