textboxta rakamda alınan hata

[kan-nas]

Private Sub ComboBox1_Change()
Dim bul As Range, syf As Worksheet
Set syf = Worksheets("AŞIM")
For Each bul In syf.Range("b2:b" & syf.Range("b65536").End(3).Row)
If bul.Value = ComboBox1.Text Then
TextBox1.Value = bul.Offset(0, 0)
TextBox2.Value = bul.Offset(0, 1)
TextBox3.Value = bul.Offset(0, 2)
TextBox4.Value = bul.Offset(0, 3)
TextBox5.Value = bul.Offset(0, 4)
Exit For
End If
Next bul
If TextBox2.Value = Empty Then
TextBox2.Value = ("EKSİK BLOKE YOKTUR")
End If
If TextBox5.Value = Empty Then
TextBox5.Value = ("AŞIM YOKTUR")
End If
End Sub
Private Sub TextBox2_Change()
Me.TextBox2.Value = Format(Me.TextBox2.Value, "###,###")
End Sub
Private Sub TextBox3_Change()
Me.TextBox3.Value = Format(Me.TextBox3.Value, "###,###")
End Sub
Private Sub TextBox4_Change()
Me.TextBox4.Value = Format(Me.TextBox4.Value, "###,###")
End Sub
Private Sub TextBox5_Change()
Me.TextBox5.Value = Format(Me.TextBox5.Value, "###,###")
End Sub
Private Sub UserForm_Activate()
ComboBox1.RowSource = "AŞIM!B5:B" & WorksheetFunction.CountA(Worksheets("AŞIM").Range("B1:B6536"))
End Sub
Private Sub UserForm_Initialize()
With UserForm1.ComboBox1
.Text = "Müşteri İsmini Buradan Seçiniz"
End With
End Sub

yukarıdaki kodu yazıp çalıştırdığımda Excel dosyasında 1.254.360,2 olan rakan Textbox geçirildiğinde 12.543.602 olarak atıyor. Nasıl düzeltitirm.

 

[Halit TÜRK]

Selam,

Formatlama kodunu şu şekilde yazınız,

Me.TextBox4.Value = Format(Me.TextBox4.Value, "###,###.#")

 

[kan-nas]

Halit Bey;
dedğiniz gibi yapınca format 12.543.602, oluyor sonuna virgül ekliyor.benim istediğim 1.254.360,2 olan rakamın textboxa alınınca 1.254.360 olması yada 1,254.360,2 olarak görülmesi.bendeki hata Textbox excelden aldığı değeri 1.254.360,2 olan rakamı 12.543.602olarak alıyor

 

[Ferhat Pazarçevirdi]

Hücreden ilk defa TextBox'a veri alırken aşağıdaki gibi bir kodlama yapın.

If IsNumeric(bul.Offset(0, 0)) Then _
    TextBox1.Value = Format(bul.Offset(0, 0), "#,##0.0")

.

 

[kan-nas]

Ferhat Bey . işlemi oldu Haili Bey sizede ilginiz için çok teşekkür ederim.Bir sorum daha olacak. Textbox1den Excele2e veri aktarırkrn 10.02.2008 olarak aktarıyorum ama bu 10.02.2008 tarih formatında aktarılmıyor. ikinci sorumda textbox1 deki 10.02.2008 den textbox2 deki 20.02.2008 tarihini çıkarmak istediğimde ve sonucun textbox3 e yansımasında sonuç sadece 20 -10 =10 un değerini veriyor. ilk soru: 10.02.2008 olarak girdiğim texbox1 i tarih formatında excele nasıl aktarırırm.textbox1 e yazdığım 20.10.2008 ile texbox2 ye yazdığım 20.11.2008 tarih değerini textbox3 e nasıl 30 gün olarak atrabilirim.

 

[Halit TÜRK]

Aktardığınız sütunu excel çalışma sayfasında tarihe göre formatladığınız mı ve aktarma işleminden sonra mı format bozuluyor mu?

 

[kan-nas]

Halit Bey ;dosyayı ekledim. Dosyada açıklamamda yazıyor.

 

[Halit TÜRK]

Textbox1den Excele2e veri aktarırkrn 10.02.2008 olarak aktarıyorum ama bu 10.02.2008 tarih formatında aktarılmıyor.

Aşağıdaki şekilde değiştiriniz...

ActiveCell.Offset(0, 7) = Format(TextBox6, "dd.mm.yyyy")
ActiveCell.Offset(0, 9) = Format(TextBox8, "dd.mm.yyyy")

Birde dosyanızda;
"yeni müşteri eklemede Trade Date alanına 10.02.2008 MAT Date alanına da 25.11.2008 yazıp hesaplama yaptığımda Süre 15.09 olarak yazıyor. Buraya sadece basit çıkarma yöntemi ile 45 gün yazacak" 45 günü nasıl hesapladınız acaba?

 

[Halit TÜRK]

Eğer yanlış yazmışsanız, aşağıdaki gibi deneyiniz..

Private Sub CommandButton2_Click()
TextBox12.Value = Val(TextBox11.Value) + Val(TextBox10.Value)
TextBox14.Value = CDate(TextBox8.Value) - CDate(TextBox6.Value)
End Sub

 

[kan-nas]

Halit Bey;çok teşekkür ederim. Ellerinize sağlık..

 

[Orion1]

Textbox12'yi aşğıdaki gibi yazın.

TextBox12.Value = CDbl(TextBox11.Value) + CDbl(TextBox10.Value)