TextBox'ta yüzde oranı

[s.savas]

Merhaba arkadaşlar.
Aşağıdaki kod ile TextBox'a sabitler isimli sekmeden aldığım veriyi % işareti ile göstermek istiyorum, fakat formatını ayarlayamadım.
Aşağıdaki örnek %1 olarak göstermesi gereken veriyi %100 olarak gösteriyor.
Ayrıca ondalık olarak da göstermesini istiyorum % 18,50 gibi.
İlgilenecek arkadaşlara teşekkür ederim.

Private Sub UserForm_Initialize()
TextBox1.Value = Sheets("Sabitler").Range("E2").Value
TextBox1.Value = Format(CDbl(TextBox1.Value * 1), "#,##0.00")
TextBox2.Value = Sheets("Sabitler").Range("E3").Value
TextBox2.Value = Format(TextBox2.Value, "#,##0,00%")
End Sub

 

[ynmcan]

Syn. S.Savaş ;
Aşağıdaki kodu deneyin. İşinize yararmı ?
Örnek dosyayı inceleyin.

Private Sub UserForm_Initialize()
TextBox1.Value = "% " & Sheets("Sabitler").Range("E2").Value
TextBox2.Value = "% " & Sheets("Sabitler").Range("E3").Value
End Sub

 

[Levent Menteşoğlu]

TextBox2.Value = Sheets("Sabitler").Range("E3").Value
TextBox2.Value = Format(TextBox2.Value, "#,##0,00%")

Yukarıdaki iki satırı silip yerine aşağıdaki satırı kopyalayın.

TextBox2.Value = Format(Range("e3").Value, "#,##0.00 %")

 

[s.savas]

Teşekkür ederim üstatlar.