Soru Textboxtaki sayıyı hücrede yüzdeli olarak yazdırma

[Kwothe7]

Merhaba,
Textbox herhangi bir sayı girildiğini varsayın. A1 hücresine bu sayıyla beraber "%" işaretininde eklenmesini istiyorum.

Kullanıcının textbox a ilgili sembol ile birlikte sayıyı yazdığında ya da hücreye yüzde biçimi verdiğimde bu sorunun çözüleceğini biliyorum ama bunu istemiyorum.

Örnek;
Textbox a kullanıcı 10 sayısını girdi. A1 hücresine bu veri 10% olarak aktarıldı.

 

[muygun]

Merhaba;

Private Sub TextBox1_Change()
Cells(1, 1) = "%" & TextBox1
Cells(2, 1) = Format(TextBox1 / 100, "0%")
End Sub

Cells(1, 1) = "%" & TextBox1
yada
Cells(2, 1) = Format(TextBox1 / 100, "0%")

İki koddan biri işinizi görür.

İyi çalışmalar.

 

[Muzaffer Ali]

Merhaba.

Private Sub TextBox1_Change()
Range("A1") = TextBox1.Text & "%"
End Sub

 

[Kwothe7]

Elinize sağlık, teşekkür ederim.