0,00 görünümünde makroya ek yapma

[sirkülasyon]

If TextBox5 > 20 Then
Cells(Satir, "G") = TextBox5.Value
Cells(Satir, "H") = TextBox5 - 20
Cells(Satir, "I") = 20

Textbox5 değeri 20 TL den büyükse
I sütununa 20 TL nin üstünü atıyor.
Benim istediğim 26,50 TL ise Textbox5
I sütununa 6,50 TL yazsın buna ek ne yapmam lazım

Teşekkürler

 

[YUSUF44]

Cells(Satir, "I") = TextBox5 - 20

olmuyor mu?

 

[sirkülasyon]

Yusuf Abi; taleplerim doğrultusunda http://www.excel.web.tr/f48/userformdan-sayfaya-aktar-t127695.html linkinde bedri41 rumuzlu abim yapmıştı tüm makroları.
Ekteki formda da görürsün zaten, Tutar kısmına meblağı girdiğin zaman örneğin 22,50 girdiğin zaman
G sütununa 22,50
H sütununa 2,50
I sütununa 20,00 yazması lazım.
G sütununda ve I sütununda sıkıntı yok. Ama ne hikmetse H sütununda sıkıntı var.
Yusuf Abi bir buna bak kurban olayım ya

 

[YUSUF44]

Sorunu anlayamadım. Örnek dosyada form aç deyip çıkan formda belirttiğiniz gibi tutarı 22,50 olarak girip aktar/kaydet dediğimde aynen istediğiniz gibi g'de 22,50; H'da 2,50 ve I'da da 20 kaldı. Başka rakamlar denediğimde de aynı istediğiniz gibi sonuç verdi. Hata nerede?

Bir de merak ettim, bu form ne için? 20TL'lik resmi görüşme sınırını neye göre belirlediniz?