Userform da Formül Hatası

[Emir Hüseyin Çoban]

Merhaba Arkadaşlar,

Tabloma eklediğim userformdaki textbox11 e

Private Sub TextBox11_Change()
TextBox11.Value = Val(TextBox1) + Val(TextBox2) * 3
TextBox11 = Format(TextBox11, "dd/mm/yyyy")
End Sub

Kodunu ekledim. Ancak işlem sonucunu hatalı veriyor.

textbox1 girdiğim veri 07.09.2010
textbox2 girdiğim veri 30
işlem sonucunda textbox11 de "01.09.1997" sonucu veriyor.

Yardım ve fikirlerinizi bekliyorum.

 

[Orion1]

Val fonksiyonunu kullanmayın.
Bunu defalarca söylüyorum ama kimse kaala almıyor.Ayrıca bu kodu textboxın exit olayına yazsanız daha doğru olur

Private Sub TextBox11_Change()
on error resume next
TextBox11.Value = format(cdbl(TextBox1) + (cdbl(TextBox2) * 3),"dd/mm/yyyy")
on error goto 0
End Sub

 

[Emir Hüseyin Çoban]

Kodları textbox11 e uyguladım ancak, işlem sonuç vermedi.

Form konusunda pek fazla bilgim yok, val fonksiyonunu forumda yaptığım aramada bulmuştum

 

[Orion1]

Kodları textbox11 e uyguladım ancak, işlem sonuç vermedi.

Form konusunda pek fazla bilgim yok, val fonksiyonunu forumda yaptığım aramada bulmuştum

Bakın bakalım.
Formunuzda textbox1 ve textbox2 isimli textbox nesneleriniz varmı?

 

[Orion1]

Bu kodları textbox1 ve textbox2 ye yazmalısınız.

 

[Emir Hüseyin Çoban]

textbox1: 07.09.2010
textbox2: 30 verileri var,

tabloyu konuya eklesem, bir textboxa uygulayarak göstere bilir misiniz?

 

[Orion1]

textbox1: 07.09.2010
textbox2: 30 verileri var,

tabloyu konuya eklesem, bir textboxa uygulayarak göstere bilir misiniz?

Önce 5 numaralı mesajımı okuyun.

 

[Emir Hüseyin Çoban]

Private Sub TextBox1_Change()
On Error Resume Next
TextBox1.Value = Format(CDbl(TextBox1) + (CDbl(TextBox2) * 3), "dd/mm/yyyy")
On Error GoTo 0
End Sub

Private Sub TextBox2_Change()
On Error Resume Next
TextBox2.Value = Format(CDbl(TextBox1) + (CDbl(TextBox2) * 3), "dd/mm/yyyy")
On Error GoTo 0
End Sub

Private Sub TextBox11_Change()
On Error Resume Next
TextBox11.Value = Format(CDbl(TextBox1) + (CDbl(TextBox2) * 3), "dd/mm/yyyy")
On Error GoTo 0
End Sub

textbox11 işlem sonucunu vermiyor.

vadelerdeki herhangi bir textboxa uygularak birini göstere bilir misiniz?

 

[Orion1]

Formunuzda textbox1 nesnesi yokk i zaten.
Size kontrol edin varmı diye önceden söylemiştim.
Ayrıca bu yazdığınız kodlarıda formunuzun modülünde göremedim.
Ayrıca textbox11 de sonucu görüntülemek istiyorsanız textbox11'e hiç bir şey yazmamalısınız.Boş olmalı.

 

[Emir Hüseyin Çoban]

Formunuzda textbox1 nesnesi yokk i zaten.
Ayrıca bu yazdığınız kodlarıda formunuzun modülünde göremedim.

textbox1 nesnesinden kast ettiğiniz, formdaki "başlangıç günü"nün karşısındaki textbox değil mi?

Kodları forma uyguladım ancak, sonuç alamadığım için size boş halini göndermiştim.

 

[rahmi06]

Private Sub TextBox2_Change()
TextBox5 = (DateAdd("d", TextBox2, TextBox1))
TextBox8 = (DateAdd("d", TextBox2, TextBox5))
End Sub

Denermisiniz?

 

[Emir Hüseyin Çoban]

Merhaba Arkadaşlar,

Private Sub UserForm_Activate()
TextBox1.Value = Range("X36")
userform1.Caption = "Vade Günü Gir"
End Sub

Kodu giriş sayfasındaki X36 hücresinden veri alıyor. Hücrede tarih yazılı. "30.09.2010"
Ancak tarihi 9/30/2010 olarak alıyor.

TextBox1.Text = Format(Date, "dd.mm.yyyy")

Sorunu çözmek için bu koduda ekledim.
Ancak tarihleri şimdi nokta ile ayırılıyor ama "date" kodundan dolayı X36 daki veriyi değil, bugünün tarihini atıyor.

 

[Orion1]

Merhaba Arkadaşlar,



Kodu giriş sayfasındaki X36 hücresinden veri alıyor. Hücrede tarih yazılı. "30.09.2010"
Ancak tarihi 9/30/2010 olarak alıyor.



Sorunu çözmek için bu koduda ekledim.
Ancak tarihleri şimdi nokta ile ayırılıyor ama "date" kodundan dolayı X36 daki veriyi değil, bugünün tarihini atıyor.

TextBox1.Text = Format(range("X36").value, "dd.mm.yyyy")

 

[Emir Hüseyin Çoban]

Teşekkürler leumruk, rahmi06 ve Evren Gizlen

Yardımlarınız sayesinde tabloyu tamamladım. Sorunsuz çalışıyor.

Senet yazdırmak için bir çalışmaya ihtiyacınız olursa forumda paylaşabilirim.

 

[Emir Hüseyin Çoban]

Userformu açtığımda textboxlar üzerinde veri girişi yaparak "TAB" ve "ENTER" ilerleye biliyorum.
Ancak bazen de tuşlar çalışmıyor "tab" a bastıkça textboxta imleç boşluklar bırakara ilerliyor.

Forumda aratmama rahmen bir sonuç bulamadım. Hatanın sebebi nedir sizce?

 

[007hasanayik]

Userform ve formül üzerine benim de bir sorum var. Başka bir başlık açmaktansa, uygun bir başlığın altına devam etmenin daha iyi olacağını düşündüm.

Değerli üstadlar.
Userformumda bir adet textbox var. Bunu Excelde A sütunundaki boş hücreye yazdırıyorum. karşısındaki B sütununa ait hücreye ise formül girsin istiyorum. Formül EĞERSAY formülü. Sorunu çözdüm formül giriliyor ancak ne yaptıysam Eşittir işaretinden önceki boşluğu yok saydıramadım. Boşluğu sildiğimde ise hata veriyor. Bunu yapmanın bir mümkünatı var mıdır?.

Butona yazdığım o alanı ilgilendiren kod şu şekilde;

ActiveCell.Offset(0, 1).Value = " =EĞERSAY('TÜM BİLGİLER'!Z:Z;" & (TextBox1.Value) & ")"