userform üstündeki textbox ta belirlenen bir değerin görünmemesi

[by_IsTaNBuL]

arkadaşlar userform üzerindeki texbox1 excel de bir hücreden veri alıyor.
fakat hücrede formül bozulmasın diye sürekli şu rakam mevcut 0,000000000001
ben commandbutona hücreden veri almak için tıkladıgım zaman dogal olarak bos oldugunda bu sayıyı getiriyor. sinir bozucu bi iş . yani kısaca 0,000000000001 sayısından buyuk olursa textboxta göreyim istiyorum. text boxta bu sayıyı ( 0,000000000001 ) görmek istemiyorum.
yardım ederseniz sevinirim. şimdiden teşekkürler. herkese kolay gelsin.

 

[ynmcan]

Syn. By_IsTaNBuL;
textbox1' everi aldırdığınız kodun başına

If Range("[COLOR="Red"]verii aldığı hücre[/COLOR]")>0,000000000001 then
Textbox1.value=""
else

satırını ekleyin.

Örnek bir dosya yollarsanız, daha sağlıklı yardımcı olabiliriz.

 

[by_IsTaNBuL]

dosyayı ekledim . verdiğiniz kodu denedim ama olmadı yada ben beceremedim.
yardımınız için tekrar tesekkur ederim .

 

[NBATMAN]

Merhaba,

aşağıdaki gibi deneyiniz.

If Range("b3").Value > 0.000000000001 Then
TextBox1.Value = Range("b3").Value
Else
TextBox1.Value = ""
End If

 

[by_IsTaNBuL]

olmuyor bi türlü

malesef olmuyor . problemi birde söyle sorayım.
0,01 ile 0,000000000000000000000000000000000000000000000001 arasında ki sayıları textboxta gösterme. bu sayıdan büyükse textboxta göster.
nasıl yapabilirim acil bir durum yardımcı olursanız çok sevinirim.
teşekkür ederim .

 

[Skorpiyon]

Sayın by_IsTaNBuL,

Aşağıdaki şekilde bir dener misiniz ?

Private Sub CommandButton1_Click()
TextBox1 = Format(Range("b3"), "0.00%")
TextBox2 = Format(Range("b4"), "0.00")
TextBox3 = Format(Range("b5"), "0.00")
TextBox4 = Format(Range("b6"), "0.00%")
If Range("B3") < 0.01 Then
TextBox1 = ""
Else
TextBox1.Value = Range("b3").Value
End If
If Range("B4") < 0.01 Then
TextBox2 = ""
Else
TextBox2.Value = Range("b4").Value
End If
If Range("B5") < 0.01 Then
TextBox3 = ""
Else
TextBox3.Value = Range("b5").Value
End If
If Range("B6") < 0.01 Then
TextBox4 = ""
Else
TextBox4.Value = Range("b6").Value
End If
End Sub

Ayrıyeten. lütfen aynı soruyu farklı başlıklar altında açarak sormayınız.

 

[ynmcan]

malesef olmuyor . problemi birde söyle sorayım.
0,01 ile 0,000000000000000000000000000000000000000000000001 arasında ki sayıları textboxta gösterme. bu sayıdan büyükse textboxta göster.
nasıl yapabilirim acil bir durum yardımcı olursanız çok sevinirim.
teşekkür ederim .

Syn. By_IsTaNBuL;
Ekteki dosyayı inceleyin. İstediğiniz bumu?

 

[by_IsTaNBuL]

çok tesekkurler . iyi çalışmalar dilerim