boş textboxa 0 yazmak

[nrmsaracoglu]

Herkese mrb. Bu sitenin yeni üyesiyim. userformda 8 adet textbox kullanıyorum. bunların 4 tanesi rakam girişli. yapmak istediğim ise kaydet butonuna tıkladığımda bu 4 textboxtan herhangi biri boşsa hata veriyor bu hata yerine boş bıraktığım textboxlara 0 yazılabilirmi. Yardımlarınız için şimdiden çok tşk ederim

ActiveCell.Offset(0, 1) = TextBox1
.........
.........
.........
ActiveCell.Offset(0, 5) = CDbl(TextBox5.Text)
.........
..........
...........

 

[Orion1]

Herkese mrb. Bu sitenin yeni üyesiyim. userformda 8 adet textbox kullanıyorum. bunların 4 tanesi rakam girişli. yapmak istediğim ise kaydet butonuna tıkladığımda bu 4 textboxtan herhangi biri boşsa hata veriyor bu hata yerine boş bıraktığım textboxlara 0 yazılabilirmi. Yardımlarınız için şimdiden çok tşk ederim

ActiveCell.Offset(0, 1) = TextBox1
.........
.........
.........
ActiveCell.Offset(0, 5) = CDbl(TextBox5.Text)
.........
..........
...........

Sadece kayıt yapmakla bu işler olmuyor.
Kayıt yapma makrosundan çok kontrol kodları daha fazla yer tutuyor.

if not isnumeric(textbox5.text) then
    textbox5.setfocus
     msgbox "Lütfen sayısal bir değer giriniz"
     exit sub
end if

 

[nrmsaracoglu]

Sadece kayıt yapmakla bu işler olmuyor.
Kayıt yapma makrosundan çok kontrol kodları daha fazla yer tutuyor.

if not isnumeric(textbox5.text) then
    textbox5.setfocus
     msgbox "Lütfen sayısal bir değer giriniz"
     exit sub
end if

Öncelikle cevabınız için tşkler. haklısınız kontrol daha önemli ama ben vba da çok yeniyim.

 

[Orion1]

Öncelikle cevabınız için tşkler. haklısınız kontrol daha önemli ama ben vba da çok yeniyim.

Sayısal değer olan textboxlarınıaza userformun initailize olayında 0 değeri atayın.

Textbox5.text =0