Userform üzerinden hesaplama Yapmak

[İsmail Küçükşengün]

Merhabalar;

Userform üzerindeki TextBox14. de yazılı bulunan rakamın, excelin
"hesap" sayfasındaki AL.2 hücresinde yazılı bulunan sayıyla çarpılıp
1.000'e bölümü ile ortaya çıkacak sonucun kendiliğinden TextBox 124'
"#,##0.00" formatıyla yazdırılması için nasıl bir kod ve nereye yazılmalıdır.

Örnek: TextBox14 = 13.670,00
Hesap sayfası AL.2 hücresinde = 5
SONUÇ: 68,35 in TextBox.124'e (formatıyla) yazdırılması.

Şimdiden Teeşekkürlerimi sunarım.

 

[veyselemre]

[vb:1:a41a66acc1]Private Sub TextBox14_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox14.Value) Then TextBox124 = Format([hesap!AL2] * TextBox14/1000, "#,##0.00")
End Sub
[/vb:1:a41a66acc1]

 

[Mahmut Bayram]

Şöyle bir şey işinizi görebilir mi?
[vb:1:9332a9d529]Private Sub CommandButton1_Click()
Dim i
Dim y
i = TextBox14.Text
y = Sheets("hesap").Range("AL2").Value
TextBox124 = y * i / 1000
TextBox124 = Format(TextBox2, "#,##0.00")
End Sub[/vb:1:9332a9d529]

veyselemre nin cevabını yeni gördüm. Onun ki daha güzel ve kısa. :bravo:

 

[İsmail Küçükşengün]

Sn. Patner;
İlgine çok teşekkür. Fakat butonla değil, kendiliğinden yazması içindi.
Fakat maşallah siz de bugünlerde hızlısınız.

Sn. Veyselemre;

Daha önceleri olduğu gibi (KDV bey.) yine tam çözüm.
Maşallah bugünlerde çok hızlısınız.
Bu hızınızın ve yardımseverliğinizin hiç eksilmemesi temennisiyle.

Selam ve saygılar.

 

[heykali]

Sayın Veyselemre verdiğiniz örneği yapmaya çalıştım
bunlar nedir bilmiyorum ama arza verdi bende kaldırayım dedim çalışıyor teşekkürler ancak text box 124 e tıklayınca sonuç gözüküyor.
[vb:1:a41a66acc1] <<<<<<<<<<<<bunlar nedir?
teşekkürler