textbox'a yazılan sayıyı metin formatında yazdırmak

[muratcx]

Merhaba arkadaşlar,

Userformda textbox a yazdığım 00123456 gibi sayısal değeri hücreye metin olarak yazdırmak istiyorum
Sheets("SAYFA1").Range("A1").Value = TextBox1.Text

Yukarıdaki gibi yazdığımda değer sayısal olduğundan soldaki 00 ' ı hücreye yazmıyor
İlgili sütunu metin formatına çevirdim, isteğe uyarlanmış olarak değiştirdim sonuç alamadım

Yardımlarınızı rica ediyorum.

 

[Ömer]

Merhaba,

Sheets("SAYFA1").Range("A1").Value = Format(TextBox1.Text, "00000000")

Bu şekilde deneyin.

 

[muratcx]

Ömer bey,

İlginize teşekkür ederim verdiğiniz kodu denedim ancak 00 ları gene yazmadı.
Başka bir çözüm bulunabilir mi?

 

[Ömer]

A1 hücresi metin formatında değil mi?

Kodların başına ekleyin.

Range("A1").NumberFormat = "@"

.

 

[muratcx]

Ömer bey,

Sorunum çözüldü tekrar teşekkür ederim.