cdbl komutu

Katılım
28 Kasım 2008
Mesajlar
191
Excel Vers. ve Dili
excel 2003
excel 2010
Merhaba,

Kendi yaptığım userformda bulunan değerlerle ilgili işlem yapmak istediğimde textboxta değer varsa sorun yok. Ama textboxta değer yoksa hata veriyor. Ne yaptımsa çözemedim. Komut satırım aşağıdaki gibi. Yardımlarınız rica olunur.

anaform.tb_belirsiz = CDbl(anaform.tb_belirsiz) + CDbl(anaform.tb_ktut)

(anaform.tb_ktut değer varsa sorun olmuyor ama değer yoksa 0 değeri vermiyor. Hata veriyor.)
Type mismatch hatası alıyorum.
 

AdemCan

Altın Üye
Destek Ekibi
Katılım
1 Eylül 2008
Mesajlar
1,334
Excel Vers. ve Dili
2019 TR
Merhaba, bahsettiğiniz satırdan önce anaform.tb_ktut içeriğini kontrol etmek için
Kod:
If anaform.tb_ktut.Value = Empty Then anaform.tb_ktut.Value = 0
satırını kullanabilirsiniz. Bu şekilde anaform.tb_ktut da değer yoksa 0 olarak kabul eder.
 
Katılım
28 Kasım 2008
Mesajlar
191
Excel Vers. ve Dili
excel 2003
excel 2010
Merhaba, bahsettiğiniz satırdan önce anaform.tb_ktut içeriğini kontrol etmek için
Kod:
If anaform.tb_ktut.Value = Empty Then anaform.tb_ktut.Value = 0
satırını kullanabilirsiniz. Bu şekilde anaform.tb_ktut da değer yoksa 0 olarak kabul eder.
Çok teşekkür ederim.
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Birde yanlışlıkla metin giripte deneyin
 

Zeki Gürsoy

Uzman
Uzman
Katılım
31 Aralık 2005
Mesajlar
4,225
Excel Vers. ve Dili
Office 2019 (64 bit) - Türkçe
CDbl tür dönüşüm fonksiyonu, kutu boş olduğunda veya sistem ayarlarındaki sayı biçimi ile - ondalık ayraç söz konusu olduğunda - örtüşmediğinde hata döndürür. Val fonksiyonu sorunsuz çevirir ancak Türkiye ondalık ayraç virgül olduğundan virgül sonrasını yok sayarak tamsayı döndürür.

Özetle, IF sınaması ile kutuyu kontrol etmeniz gerekir.

.
 

AdemCan

Altın Üye
Destek Ekibi
Katılım
1 Eylül 2008
Mesajlar
1,334
Excel Vers. ve Dili
2019 TR
Yanlışlıkla metin girilirse hata vermemesi için paylaştığım satır aşağıdaki şekilde kullanılabilir.
Kod:
If Not IsNumeric(anaform.tb_ktut.Value) Or anaform.tb_ktut.Value = Empty Then anaform.tb_ktut.Value = 0
 
Üst